在 VBA for Word 中更改组内形状的颜色

Question

您好，我想更改名为“icon1”的特定形状的颜色，该形状位于名为“box”的组中。但是这个组中还有其他形状和文本框（其他形状：“icon2”，“icon3”/“text1”，“text2”）我不想改变颜色。我试图更改“icon1”的颜色，但 VBA 提示无法找到具有此名称的项目。

Sub changeshapecolor()
ActiveDocument.Shapes.Range(Array("icon1")).Fill.ForeColor.RGB = RGB(255, 200, 128)
End Sub

因为我认为 VBA 找不到“icons1”，因为形状在一个组中，我也尝试过使用此代码，但它也不起作用。

ActiveDocument.Shapes.Range(Array("box")).GroupItems("icon1").Fill.ForeColor.RGB = RGB(255, 200, 128)

我不知道如何解决我的问题，你能帮我吗？

Answer 1

试试这个：

ActiveDocument.Shapes("box").GroupItems("icon1").Fill.ForeColor.RGB = RGB(255, 200, 128)

Change the color of a shape inside a group in VBA for Word