Excel vba更改形状公式，无需select形状

我试图改变一个形状内的公式没有select它，但不断得到一个运行时错误。

以下是我迄今尝试过的一些代码：

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

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

Answer 1

请在这里find你的问题的答案：

链接单元格与Excel形状

祝你好运

Answer 2

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

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