删除ppt文件内所有同一位置的内容

转载遵循 CC 4.0 BY-SA 版权协议

在视图中创建宏，然后选中要删除的区域和内容，运行宏。done。

Sub Test()Dim oSlide As Slide, oShape As Shape
Dim myWidth As Single, myHeight As Single, myTop As Single, myLeft As SingleOn Error Resume Next
If ActiveWindow.Selection.ShapeRange.Count <> 1 Then
If Err.Number <> 0 Then
MsgBox "none" & vbCrLf & "choose one", vbExclamation + vbOKOnly
Err.Clear
Exit Sub
End If
MsgBox "choose exceed 1" & vbCrLf & "choose one", vbExclamation + vbOKOnly
Exit Sub
End IfSet oShape = ActiveWindow.Selection.ShapeRange(1)
myTop = oShape.Top
myLeft = oShape.Left
myHeight = oShape.Height
myWidth = oShape.WidthFor Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
If Abs(myTop - oShape.Top) < 1 And Abs(myLeft - oShape.Left) < 1 And Abs(myHeight - oShape.Height) < 1 And Abs(myWidth - oShape.Width) < 1 Then
oShape.Delete
End If
Next
Next
End Sub

删除ppt文件内所有同一位置的内容相关推荐

使用poi替换ppt文件内的变量参数,包含ppt和pptx格式
使用poi替换ppt文件内的变量参数,包含ppt和pptx格式依赖的jar包 <dependencies><dependency><groupId>org.apa ...
Python遍历子目录，利用python-pptx删除ppt文件最后一页
需求背景美女同事给了一堆PPT文件,问我能否把快速最后一页删除?先告诉她,当然没问题,在仔细看任务内容,确实所有PPT课件最后一页是广告内容,人工删除还挺费事的,幸好有利器安装必需组件 pip i ...
删除PPT所有页面中同一个位置的图片
Sub DeletePicturesAtSelectedPosition()Dim i As IntegerDim j As IntegerDim pic As ShapeDim left As Si ...
Python_删除TXT文件中不想要的内容
直接上代码(我们这个代码是将新的文件复制出来,不会修改原文件): file = open("../../..TXT文本路径", "r") # 以只读模式读取文件 ...
java删除xml文件中尖括号之外的内容
s = s.replaceAll(">[\\s].*<","><").trim();//替换\t 空格 \n s = s.replace ...
Windows命令之 -- Del 删除指定文件
语法 del [Drive:][Path] FileName [ ...][/p] [/f] [/s] [/q] [/a[:Attributes]] erase [Drive:][Path] File ...
怎么恢复回收站删除的文件？3个方法汇总助您快速解决
怎么恢复回收站删除的文件?回收站里的文件删除之后去哪里了?回收站是用来存放各种删除的文件,虽然文件已经在电脑上的其他地方被删除,比如在桌面上删除了某个文件,但却依然保存在回收站里.回收站文件恢复的方式 ...
PPT文件过大如何压缩变小
随着全图型PPT越来越受欢迎,我们在PPT中使用的图片数量也越来越多.而过多的图片会导致PPT文件过大,导致邮件发送PPT文件或打开邮件中的PPT文件时速度很慢,会耗费大量时间,而有的邮箱是有邮件附件 ...
Shift + Delete删除的文件如何恢复？
使用shift + delete 组合键不小心把电脑上的重要文件删除了还能恢复吗?不要着急!看似被彻底删除的文件依然有办法恢复. 文件删除操作可以帮助我们清理电脑里无用的文件并释放磁盘空间,关于如何删 ...

删除ppt文件内所有同一位置的内容

删除ppt文件内所有同一位置的内容相关推荐

最新文章

热门文章