Deletes the text associated with the specified shape.
expression.DeleteText
expression Required. An expression that returns a TextFrame object.
Example
If shape two on myDocument contains text, this example deletes the text.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(2).TextFrame.DeleteText