Question

我是VBA编程的新手，但由于我有一些C ++经验，我认为我可以用VBA完成这项任务。

我有100多张幻灯片演示文稿，其中包含表格，图片和绘图。每张幻灯片上绘制的形状不同，但它们的共同属性是它们与设置位置和大小的图片重叠。

我想对每张幻灯片进行基本操作，例如某些形状的分组，删除和定位。目标是更改幻灯片的格式。

我做了我的研究，但由于我想保持某些形状不变，而且文件不是由我创建的，所以我不知道这些形状＆＃39;名字或指数，我无法找到解决这个问题的方法。我认为最好通过它们在幻灯片上的相对位置来引用形状，即它们是在特定选择内还是在幻灯片上某个点的范围内（左上角，例如）。

是否有可能提出这种参考或条件？

提前感谢您的回答。

Answer 1

一般来说，您拥有Shape的集合，您可以按索引访问元素，例如如果你不知道索引，但是你知道唯一标识感兴趣的Shape的其他特征，你必须遍历该集合，并查询直到找到你的Shape。

请参阅示例代码，您必须对其进行调整。

Sub PickShapeByPos()
    Dim sl As Slide
    Dim shidx As Integer, sh as Shape

    Dim topref As Integer, leftref As Integer
    ' Your code to set the reference point

    For Each sl In ActivePresentation.Slides
        For shidx = sl.Shapes.Count To 1 Step -1
            Set sh = sl.Shapes(shidx)
            If ((sh.Top - topref < 10) And (sh.Left - leftref < 10)) Then
                ' Found it!
                ...
            End If
        Next
    Next
End Sub

（PS：我目前没有Office系统，因此这段代码可能需要很少的调整）。

Answer 2

从sancho.s的答案开始，我想出了下面的建议。它是一个函数，返回符合您传递给函数的任何幻灯片的Top和Left条件的形状。它还允许您设置起始索引，因此您可以重复调用它，而不是一遍又一遍地拾取符合规范的第一个形状。

Sub TestShapeByLocation()
    Dim oSl As Slide
    Dim oSh As Shape
    Dim x As Long

    Set oSl = ActivePresentation.Slides(1)

    x = 1
    ' get the first shape that meets our specs
    Set oSh = ShapeByLocation(oSl, x, 100, 100)
    Do While Not oSh Is Nothing
        ' do whatever to the shape
        oSh.Left = oSh.Left + 100
        ' and get the next shape that meets our specs
        x = x + 1
        Set oSh = ShapeByLocation(oSl, x, 100, 100)
    Loop

End Sub

Function ShapeByLocation(oSl As Slide, lIndex As Long, _
        sngTop As Single, sngLeft As Single) As Shape

    Dim x As Long
    With oSl
        For x = lIndex To .Shapes.Count
            If .Shapes(x).Left <= sngLeft Then
                If .Shapes(x).Top <= sngTop Then
                    Set ShapeByLocation = .Shapes(x)
                    Exit Function
                End If
            End If
        Next
    End With
End Function

VBA PowerPoint：根据形状的相对位置来查看形状

2 个答案: