时间戳

首页 > 解决方案 > 在 VBA for Word 中更改组内形状的颜色

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

问题描述

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

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

标签： vbams-word

解决方案

试试这个：

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

推荐阅读