Vba PowerPoint Shape 各种Type参考(转)

原址：https://docs.microsoft.com/en-us/office/vba/api/office.msoshapetype（如有侵权，请联系删除）

Vba 检测Type:

Sub dd()
    Dim oShape As Shape
    Dim oSlide As Slide
    Set oSlide = Application.ActivePresentation.Slides(8)
    For Each oShape In oSlide.Shapes
        Debug.Print oShape.Type
        'Debug.Print oShape.TextFrame.TextRange.Text    如不能输出Text，为例如Table,可以通过判断跳过
    Next
End Sub