VBA实现设置链接单元格功能

在Excel设置链接单元格非常简单，选中形状（图片），在公式栏中输入=A1，就完成了链接单元格，修改A1单元格第值，将自动更新形状文字。

如何使用VBA来实现呢？先来尝试一下。

Sub demo1()
    Set s = ActiveSheet.Shapes(1)
    s.Formula = "=A1"  
End Sub

运行代码出现如下运行时错误。

Shape对象并没有Formula属性，所以上述代码无法执行，修改代码如下。

Sub demo2()
    Set s = ActiveSheet.Shapes(1)
    s.Select
    Selection.Formula = "=A1"
End Sub

修改代码可以正确执行，VBA某些操作只能是先选中，然后再操作Selection对象，这里也谈不上什么道理，只是VBA对象模型就是这么设计的，大家记录下来，就可以了。

不选中对象是否可以完成这个任务呢？答案是肯定的。

ActiveSheet.Shapes(1).DrawingObject.Formula = "=A1"

多研究和学习VBA对象模型，解决问题时就可以有不同的思路。