VBA程序在PPT中使用宏命令删除空白的文本框

打开PPT，切换到视图菜单下，点击宏，输入宏的名称(如clear)，点击创建。进入命令窗口，复制以下命令编译执行即可。

Sub clear()
Dim found As Boolean
Dim textflag As Boolean
Dim trng As TextRange
Do
found = False
For Each Sld In ActivePresentation.SlidesFor Each shp In Sld.ShapesIf shp.HasTextFrame Thentextflag = FalseIf shp.TextFrame.HasText ThenSet trng = shp.TextFrame.TextRangeFor i = trng.Characters.Count To 1 Step -1If trng.Characters(i) <> " " Thentextflag = TrueExit ForEnd IfNextEnd IfIf shp.Type <> 1 ThenIf Not shp.TextFrame.HasText Or textflag = False ThenActiveWindow.View.GotoSlide Index:=shp.Parent.SlideIndexshp.Selectshp.Deletefound = TrueEnd IfEnd IfEnd IfNext shp
Next Sld
Loop While found = True
End Sub

注意：上面的宏名称是clear，可以改成自己喜欢的名字。

VBA程序在PPT中使用宏命令删除空白的文本框相关推荐

ppt中查看所有元件，比如文本框
或者
隐藏添加删除程序中的程序在控制面板中的“添加/删除程序”项
隐藏添加删除程序中的程序在控制面板中的"添加/删除程序"项是我们要卸载程序一个程序最彻底的地方.但很多时候为了防止自己安装的程序不被别人卸载,我们希望能够在"添加/删除程 ...
php tr 用法,Linux_Linux系统中tr命令删除和替换文本字符的基本用法，通过使用 tr，您可以非常容易 - phpStudy...
Linux系统中tr命令删除和替换文本字符的基本用法通过使用 tr,您可以非常容易地实现 sed 的许多最基本功能.您可以将 tr 看作为 sed 的(极其)简化的变体:它可以用一个字符来替换另一个 ...
在asp.net 中实现只允许数字输入的文本框
在asp.net 中实现只允许数字输入的文本框,其实是十分简单的,只需要利用customervalitor控件的功能就可以了.比如,先添加一个文本框,再添加一个customervalitor控件, ...
ppt中插入和删除动画
插入: 点击组件->工具栏的动画->选择样式改变动画顺序: 1.点击动画之后,我们即可看到有一些动画的排序先后了,我们点击其中的一个动画序号,然后就有向前以后和向后移动的顺序操作. 2. ...
在Axure中通过全局变量实现两个文本框与中继器联动
需求背景:使用web的方式实现SQL中的Group操作实现方式:在一个文本框中输入字段名,在一个下拉列表框中选择一种聚合函数,单击图标,想中继器表单中添加一条记录,显示被添加的聚合字段以及聚合函数 ...
如何让竖行文本框从下往上_如何在Office文档中插入(使用)横排、竖排文本框并设置文字方向...
①:为什么要使用文本框? 文本框相当于一个容器,里面可以容纳文字对象!放置于文本框的文字对象,基于文本框,可形成一个统一的整体: ②:使用文本框有什么好处? 作为一个容器,文本框就像图片对象一样,周边 ...
CDC在OnPaint函数中采用TextOut函数初始化静态文本框
创建静态文本框之后如果想要在程序段中初始话文本框中的内容可以采用CDC类中的TextOut()函数,但是如果在OnPaint()中直接书写代码会导致待输出字符被静态文本框覆盖这是因为对话框上的文本控件 ...
linux系统如何卸载所有程序,Linux系统中完全卸载删除程序的命令
如果您在数据中心服务器或本地服务器中使用Ubuntu或任何其他基于debian的发行版系统,您可能会遇到需要卸载软件的情况.一般情况下,您会登录并运行命令:sudo apt-get remove pa ...

VBA程序在PPT中使用宏命令删除空白的文本框

VBA程序在PPT中使用宏命令删除空白的文本框相关推荐

最新文章

热门文章

VBA程序 在PPT中使用宏命令删除空白的文本框

VBA程序 在PPT中使用宏命令删除空白的文本框相关推荐

最新文章

热门文章

VBA程序在PPT中使用宏命令删除空白的文本框

VBA程序在PPT中使用宏命令删除空白的文本框相关推荐