Question

我正在尝试更改形状中的公式而不选择它但会不断出现运行时错误。

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

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

这些似乎都不起作用。有没有办法在不先选择形状的情况下更改公式？

Answer 1

请在此处找到您问题的答案：

Link cell with Excel Shape

祝你好运

Answer 2

你上次尝试时错过了两个角色。那将是

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

Excel vba更改形状公式而不选择形状

2 个答案: