本示例检查演示文稿第一张幻灯片上的第一个形状,以查看其是否为表格。如果是表格,则显示“该图形为表格”的字样。

With ActivePresentation.Slides(1).Shapes(1)
    If .HasTable = ksoTrue Then
         MsgBox "该图形为表格!"
    End If
End With