Sub shape() If ActivePresentation.Slides(1).Shapes(1).HasTextFrame = msoTrue Then MsgBox "The shape contains a text frame." End If End Sub