将公式放入excel图表中

我想使用VBA填充Excel图表上的文本框。我试过这个：

 ActiveSheet.ChartObjects("Chart 1").Chart.Shapes(1).Formula = "Sheet1!A1"

它不起作用，但它起作用了：

 ActiveSheet.ChartObjects("Chart 1").Chart.Shapes(1).Select
 Selection.Formula = "=Sheet1!A1"

---

我可能需要在

形状（1）

和

.Formula

之间放置一些东西，但我找不到它。有什么建议吗？

请注意，第二个公式（有效的公式）在图纸名称前包含一个等号：

“=Sheet1！A1”

而第一个没有：

---

“Sheet1！A1”

谢谢您的回答。这段代码被简化了。当我确保在第一个示例中包含“=”符号时，它仍然不起作用。我的想法是，选择形状可以建立一个新级别的对象，该对象可以接受公式，但第一个公式中的直接代码不能做到这一点。显然，OM的这一部分在Excel 2003到2007的“升级”中被破坏了。在XL2010中，使用

.TextFrame.Characters.Parent.formula

，我不知道如何将公式应用于形状（嵌入图表或仅在图纸中），而不首先选择它。顺便说一句，

.TextFrame.Characters.Parent的
TypeName
是
TextBox
，但您不能直接在TextBox上下文中引用
.Formula
。。。奇怪。为了完成我之前的评论，实际上您可以通过
ActiveChart.textboxs
集合（对象成员中未提及…）访问文本框及其
.Formula
属性。