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

【问题标题】：Change the color of a shape inside a group in VBA for Word在 VBA for Word 中更改组内形状的颜色
【发布时间】：2021-04-09 18:56:03
【问题描述】：

您好，我想更改名为“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)

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

【问题讨论】：

标签： vba ms-word

【解决方案1】：

试试这个：

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

【讨论】：