MS Excel 2003 VBA – 有没有办法将一组形状/对象定义为“组”

所以我有这个全球的映射scheme，每个国家都是个人的形状。 我学会了如何根据特定的标准来操纵颜色/填充。 所以我这样做的方式，或者我知道一次一个形状/对象的方式。

例如，美国是“C_USA”，加拿大是“C_CAN”等。

那么有没有一种方法可以将国家定义为组？ 即。 我想把美国，加拿大和墨西哥放到一个北美洲的小组中，这样我就可以给这个小组打一个小组，而不是全部三个小组。

当我在欧洲结束，真的很臭！ 🙂

谢谢！

Answer 1

您可以按如下方式将形状组合在一起

Dim NA_Group As Shape Set NA_Group = ActiveSheet.Shapes.Range(Array("C_CAN", "C_USA", "C_MEX")).Group 

请注意，一旦完成这一步，就不能再通过名称来访问各个形状，而不必先取消它们，或者在 NA_Group中寻址它们。

一旦你把他们分组，你可以把整个组看作一个单一的形状：

 NA_Group.Fill.ForeColor.RGB = RGB(255, 255, 0) NA_Group.Line.ForeColor.RGB = RGB(255, 0, 0) '// etc.