Office学习社区 › 宏和VBA小程序开发 › ppt删除很多个空文本框的VBA代码

jhaiwa 发表于 2017-10-28 08:16:55

ppt删除很多个空文本框的VBA代码

　　 　　 　　使用下面的ＶＢＡ代码，可以让你在ＰＰＴ中，删除没有内容的文本框。
　　Dim found As Boolean
　　Do
　　found = False
　　For Each Sld In ActivePresentation.Slides
For Each shp In Sld.Shapes
If shp.HasTextFrame Then
If shp.Type1 Then
If Not shp.TextFrame.HasText Then
ActiveWindow.View.GotoSlide Index:=shp.Parent.SlideIndex
shp.Select
shp.Delete
found = True
End If
End If
End If
　　Next shp
　　Next Sld
　　Loop While found = True
　　上面的代码你可以自己建立一个宏，将其放在宏内使用即可。

pzhkyc 发表于 2017-10-30 00:53:59

我来了~~~~~~~~~ 闪人~~~~~~~~~~~~~~~~

lc1987 发表于 2017-10-31 03:26:16

很不错啊

查看完整版本: ppt删除很多个空文本框的VBA代码