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

Question

所以我有这个全球映射方案，上面的每个国家都是单独的形状。我学会了如何根据某些标准来操作颜色/填充。所以我这样做的方式，或者我知道一次一个形状/对象的方式。

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

那么有没有办法可以将国家定义为组？IE。我想将 USA、CAN 和 MEX 放入一个北美组，这样我就可以为该组调用一个子组，而不是单独调用所有三个组。

当我在欧洲时，它真的很臭！:)

谢谢！

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.