如果我有形状名称列表,如何使用 VBA 将它们添加到组中。形状名称列表是动态的,即形状的名称和形状的数量可以在每次运行代码时发生变化。
例如,我有一个形状名称“shape1”、“shape2”、“shape3”、“shape4”的列表。它们位于字符串数组中。我循环遍历数组,将每个形状添加到形状数组中,但无法使 .Group 方法起作用。我尝试过将形状列表作为字符串、形状数组传递给组...但到目前为止还没有运气
'Using a static example to keep it simple but this list of shapes can change
strContents = "shape1,shape2,shape3,shape4)"
strGroupMembers = Split(strContents, ",")
ReDim shpArray(0 To UBound(strGroupMembers) - 1)
For intCounter = 0 To UBound(strGroupMembers) - 1
Set shpArray(intCounter) = ActiveWindow.View.Slide.Shapes.Range(strGroupMembers(intCounter))
Next
'This line is causing the error
ActiveWindow.View.Slide.Shapes.Range(shpArray).Group
我尝试将形状列表作为变量中的逗号分隔字符串传递给 group 方法,现在尝试创建形状数组并传递该参数,但总是会收到 object required 错误。