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