主页 / coding / 问题 / 77135332
Accepted
Ben
Asked: 2023-09-19 22:12:19 +0800 CST

使用 VBA 将形状分配给 Powerpoint 中的组

  • 772

如果我有形状名称列表，如何使用 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 错误。

vba

2 个回答

  1. Best Answer

    该Range方法采用一个字符串数组。由于您没有声明它，所以它变成了变体数组。

    Dim strGroupMembers() As String
strContents = "shape1,shape2,shape3,shape4"
strGroupMembers = Split(strContents, ",")

ActiveWindow.View.Slide.Shapes.Range(strGroupMembers).Group

    其他方式：

    shpArray = Array("shape1", "shape2", "shape3", "shape4")
ActiveWindow.View.Slide.Shapes.Range(shpArray).Group
    • 0

  2. 现在它正在工作，我正在尝试给该组命名。我没有立即将其分组，而是将其分配给一个对象变量，并尝试使用 group 方法，但不断收到错误：

    'ActiveWindow.View.Slide.Shapes.Range(strGroupMembers).Group    
Dim objGroup As Shape    
Set objGroup = ActiveWindow.View.Slide.Shapes.Range(strGroupMembers)    
objGroup.Group '<--- Error - method not found.
objGroup.Name = "Test"
    • 0

相关问题