我正在尝试创建一个代码,从特定形状复制形状并更改形状的名称以方便操作 - 我想要更改的是位于该形状中的文本。我尝试过,但没有成功。
这是我的代码:
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"
一直报错的问题:
未找到该元素
正如错误消息所说,一个组不支持文本框。要访问和设置Textbox
新创建/复制的组的内部,您需要通过GroupItems
组形状的属性访问它。
您可以按索引或按名称访问组项目。尝试以下任一方法:
wrdDoc.Shapes("Groupe 643").GroupItems("Text Box 644").TextFrame.TextRange.text = "FME1"
或者
wrdDoc.Shapes("Groupe 643").GroupItems("1").TextFrame.TextRange.text = "FME1"
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句