Check whether the text frame contains text. To do so, check that the HasText property of the TextFrame object is msoTrue : Slide Text « PowerPoint « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. PowerPoint
  3. Slide Text

Check whether the text frame contains text. To do so, check that the HasText property of the TextFrame object is msoTrue

 
Sub shape()
    With ActivePresentation.Slides(1).Shapes(1).TextFrame
        If .HasText = msoTrue Then MsgBox .TextRange.Text
    End With
End Sub








Related examples in the same category

1.Use the AddTextEffect to add a WordArt. The WordArt item uses 54-point bold ITC Avant Garde Gothic.
2.Use the AddTextbox Method to add a text box to the eighth slide and assign text to it
3.Returning and Setting the Text in a Text Range
4.Returns the second through fifth words from the first shape on the first slide in the active presentation:
5.Set the text of the second paragraph in the second shape on the sixth slide in the presentation
6.Formatting the Text in a Text Range
7.Formatting the Bullets for a Text Range
8.To use a picture as a bullet, set the Type property of the BulletFormat object to ppBulletPicture and then use the Picture method with the Picture argument