本示例显示活动文档中的图形和嵌入式图形的数目。

Set doc = ActiveDocument
Msgbox "InlineShape = " & doc.InlineShapes.Count & _
vbCr & "Shapes = " & doc.Shapes.Count