Vba PowerPoint Shape 各种Type参考(转)

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

 

Name	Value	Description
mso3DModel	30	3D model
msoAutoShape	1	AutoShape
msoCallout	2	Callout
msoCanvas	20	Canvas
msoChart	3	Chart
msoComment	4	Comment
msoContentApp	27	Content Office Add-in
msoDiagram	21	Diagram
msoEmbeddedOLEObject	7	Embedded OLE object
msoFormControl	8	Form control
msoFreeform	5	Freeform
msoGraphic	28	Graphic
msoGroup	6	Group
msoIgxGraphic	24	SmartArt graphic
msoInk	22	Ink
msoInkComment	23	Ink comment
msoLine	9	Line
msoLinked3DModel	31	Linked 3D model
msoLinkedGraphic	29	Linked graphic
msoLinkedOLEObject	10	Linked OLE object
msoLinkedPicture	11	Linked picture
msoMedia	16	Media
msoOLEControlObject	12	OLE control object
msoPicture	13	Picture
msoPlaceholder	14	Placeholder
msoScriptAnchor	18	Script anchor
msoShapeTypeMixed	-2	Mixed shape type
msoTable	19	Table
msoTextBox	17	Text box
msoTextEffect	15	Text effect
msoWebVideo	26	Web video

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