DeleteText 方法

       

删除与指定形状相关的文本。

expression.DeleteText

expression  必选。该表达式返回一个 TextFrame 对象。

示例

如果 myDocument 中的第二个形状包含文本,则本示例删除该文本。

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(2).TextFrame.DeleteText