在 VBA 中向形状文本添加公式

在VBA中，我们可以通过操作Shape对象的TextFrame.TextRange属性来向形状文本中添加公式。

步骤

1. 选择要添加公式的形状。

   Dim shp As Shape
   Set shp = ActiveSheet.Shapes("Shape1") '更改为你的形状名称
   

2. 在形状中插入带有公式的文本框。

   shp.TextFrame.TextRange.Text = "f(x) = " '加入公式前的文本
   shp.TextFrame.TextRange.InsertAfter "x^2 + 3x + 5" '加入公式
   

3. 将文本框的Font属性设置为等式字体。

   shp.TextFrame.TextRange.Font.Name = "Cambria Math" '设置字体
   shp.TextFrame.TextRange.Font.Size = 14 '设置字号
   

将以上步骤整合在一起：

Sub AddFormulaToShape()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes("Shape1") '更改为你的形状名称
    shp.TextFrame.TextRange.Text = "f(x) = " '加入公式前的文本
    shp.TextFrame.TextRange.InsertAfter "x^2 + 3x + 5" '加入公式
    shp.TextFrame.TextRange.Font.Name = "Cambria Math" '设置字体
    shp.TextFrame.TextRange.Font.Size = 14 '设置字号
End Sub

结论

通过以上的步骤，我们可以在VBA中向形状文本中添加公式，并且可以控制等式字体的样式。