admin 管理员组

文章数量: 887021


2023年12月22日发(作者：发卡网源码推荐)

 如果形状是做在母版中的，比较简单，直接进入母版去删。

 本文介绍的是如何删除不在母版中，但是又是相同的图片或形状或文本框。这些要删除的形状有共同的特征就是，要么是名字一样，要么是说明一样，要么是内容一样。

 作为个引子，大家还可以继续发挥，找到要删除形状的共同属性，把类似位置一样，颜色一样、尺寸一样的也删除掉。本文就不一一展开了。

以PowerPoint 2007为例：

1、“视图”->“宏”，输入宏名DeleteShapes后（宏名可任意），创建宏，并在模块中添加以下代码：

'''''''''''''''''''''''''''''''''''''''''''''''''''''

'如何在PPT中批量删除相同的形状：图片、文本框等

'''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub DeleteShapes()

Dim SelSlide As Slide

'Dim SelPicName As String '控件有标题名字

'Dim SelPicText As String '没名字只有说明的

Dim SelText As String '文本框

Dim i As Long

If = ppSelectionNone Then

MsgBox ("请选中待删除的形状！")

Elsess

' SelPicName =

' SelPicName = ativeText

SelText =

If vbYes = MsgBox("是否要删除所有幻灯片中的同样的形状：“" + SelText + "”？",

vbYesNo, "信息提示") Then 'SelText相应替换为SelPicName或SelPicText

For Each SelSlide In

On Error Resume Next

'(SelPicName).Delete '删有名字的最简单，直接删

For i = 1 To '没名字的得匹配相关属性

'If (i).AlternativeText = SelPicText Then

If (i). = SelText Then

(i).Delete

End If

Next

Next

End If

End If

End Sub

保存

回到ppt中，选择要删除的形状，执行宏，即可！


本文标签： 删除 形状 名字 宏名 属性

版权声明：本文标题：如何在PPT中删除相同的图片、形状、文本框 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/free/1703233790h443355.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。