text 如何计算幻灯片上的形状？

Posted 2021-05-02

Sub Count_shapes_on_slide()

Dim p As Presentation
Set p = ActivePresentation

Dim No As Integer
Dim i As Integer
Dim PPS As Slide
Dim Sh As Shape
'***************************
i = InputBox("Enter Slide number")

'shows number of shapes on slide
No = p.Slides(i).Shapes.Count
MsgBox (No) & " shapes found"

For Each Sh In p.Slides(i).Shapes
    If Sh.Type <> msoPicture Then MsgBox (Sh.Type)
Next Sh

End Sub