vba - 遍历ppt群成员的难点(vba绝对初学者)

Question

谢谢道格 :-)

我需要一个非程序员的想法如何实现对组的迭代。

我从 SO 开始只要我只采用形状的.Names，它就可以正常工作。

但我也需要尝试检查组中每个项目的类型我有一整套问题的形状 (Sub CheckTextConformity)

这是运行时的代码 - 但忽略了组。我的想法是为组调用 A 子例程 - 但是如果组也包含组等等怎么办？

我从 Sub CheckAndReportOhneGroups() 调用 Sub WhatTypes... 并根据类型调用 CheckTextConformity 以提供有关形状的信息(尤其是文本信息)。

Answer 1

要处理组(可能还有组中的组)，请使用如下内容:

Sub Example()

Dim oSh As Shape
Dim oSl As Slide

For Each oSl In ActivePresentation.Slides
    For Each oSh In oSl.Shapes
        If oSh.Type = msoGroup Then
            'Debug.Print "GROUP"
            Call DealWithGroups(oSh)
        Else
            Debug.Print oSh.Name & vbTab & oSh.Type
        End If
    Next
Next

End Sub

Sub DealWithGroups(oSh As Shape)
    Dim x As Long
    Debug.Print "GROUP"
    For x = 1 To oSh.GroupItems.Count
        If oSh.GroupItems(x).Type = msoGroup Then
            Call DealWithGroups(oSh.GroupItems(x))
        Else
            Debug.Print vbTab & oSh.GroupItems(x).Name & vbTab & oSh.GroupItems(x).Type
        End If
    Next
End Sub

是的。蛇在吃自己的尾部。 ;-)