2012-11-01 99 views
0

我试图改变形状内的公式而不选择它,但不断收到运行时错误。Excel vba更改形状公式而不选择形状

下面是一些到目前为止,我已经试过代码:

Sheets("Quote").Shapes.Range(Array("Rectangle 87")).Formula = " =CommAnnualOutput" 
    Sheets("Quote").Shapes("Rectangle 87").Formula = " =CommAnnualOutput" 
    Sheets("Quote").Shapes("Rectangle 87").DrawingObjects.Formula = " =CommAnnualOutput" 

这些都不似乎工作。有没有办法改变公式而不先选择形状?

回答

2

请找到答案在这里你的问题:

Link cell with Excel Shape

好运

+0

我看过这个问题,但它似乎没有工作。事实证明,这是因为我在第二个等号之前留下了一个空间,这个空间给出了运行时错误。谢谢你的帮助! – evoandy

+0

欢迎您,在您的项目中享受进步! –

0

你错过了你的最后一次尝试两个字符。这将是

Sheets("Quote").Shapes("Rectangle 87").DrawingObject.Formula = "=CommAnnualOutput"