wpsppt去白边宏代码

发布网友发布时间：2022-12-26 23:33

共1个回答

热心网友时间：2023-10-17 16:24

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

Sub clear( )

2 Dim found As Boolean

3 | Dim textflag As Boolean

4 | Dim trng As TextRange

5|Do

6 found = False

7 For Each Sld In ActivePresentation

For Each shp In Sld. Shapes

If shp. HasTextFrame Then

textflag = False

If shp. TextFr ame.HasText T

Set trng = shp. TextFrame. T

For i = trng. Character:

If trng. Characters(i)

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com