使用VBA excel复制形状并更改文字

我试图创build一个代码，从一个特定的形状复制形状，并更改形状的名称，以便于操纵 – 我想改变的是位于该形状的文本。 我试过了，但是我没有成功。

这是我的代码：

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" 

错误一直在说的问题：

该元素未find

Answer 1

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

您可以按索引或按名称访问组项目。 尝试以下任一方法：

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

要么

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