Question

我试图创建一个从特定形状复制形状的代码，并更改形状的名称以方便操作 - 我想要更改的是位于该形状的文本。我尝试过，但我没有成功。

这是我的代码：

If frame.Value = "2" Then
wrdDoc.Shapes("Groupe 643").Duplicate
wrdDoc.Shapes("Groupe 643").Name = " Groupe 644"

 Set shp = wrdDoc.Shapes("Groupe 643")

With shp
    .Left = Sheets("Feuil1").Range("J3")
End With
wrdDoc.Shapes("Groupe 644").TextFrame.TextRange.Text = "FME1"

错误一直存在的问题：

找不到元素

Answer 1

正如错误消息所述，组不支持文本框架。要在新创建/复制的组中访问和设置Textbox，您需要通过组形状的GroupItems属性访问它。

您可以按索引或按名称访问组项。请尝试以下任一操作：

wrdDoc.Shapes("Groupe 643").GroupItems("Text Box 644").TextFrame.TextRange.text = "FME1"

或

wrdDoc.Shapes("Groupe 643").GroupItems("1").TextFrame.TextRange.text = "FME1"

使用VBA excel

1 个答案: