按名称引用多个形状

Question

当我点击命令按钮时，我正试图将多个形状（只是插入 - >形状创建的标准矩形）变成黄色。我选择了所有形状并将它们命名为“rect”。名称管理器确认名称存在且包含所有指定的形状。但是，当我尝试运行此

时

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

我收到运行时错误“找不到具有指定名称的项目。”奇怪的是，只用一个形状就可以完美地运行，但是当名称引用多个形状时，它就不起作用了。有任何想法吗？谢谢。

Answer 1

根据需要选择所有形状并运行以下代码

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