通过名称引用多个形状

我试图转换多个形状（只是通过插入 – >形状创build的标准矩形）黄色，当我点击一个命令button。 我select了所有形状并将其命名为“rect”名称pipe理器确认该名称存在，并包含所有指定的形状。 但是，当我尝试运行这个

ActiveSheet.Shapes("rect").Fill.ForeColor.RGB = RGB(255, 255, 0) 

我得到一个运行时错误“没有find具有指定名称的项目”。 奇怪的是，这只适用于一个形状，但是当名称涉及多个形状时，这是行不通的。 有任何想法吗？ 谢谢。

Answer 1

根据需要select所有形状并运行下面的代码

 Sub Carmello() Selection.Group.Select Selection.Name = "rect" ActiveSheet.Shapes("rect").Fill.ForeColor.RGB = RGB(255, 255, 0) End Sub