要使用宏批量删除：
在Ppt中，首先选择要删除内容的位置(新建-复制下一个代码-运行宏)。
Sub Test()
Dim oSlide As Slide、oShape As Shape
Dim mywidth as single、my height as single、mytop as single和my left as single
On Error Resume Next
If Ac 1 Then
If Err。Number 0 Then
Msgbox' none' vbcrlf' choose one '、VB exclamation vbokonly
Err。Clear
Exit Sub
End If
msgbox ' choose exceed 1 ' vbc rlf ' choose one '，VB exclamation vbokonly
Exit Sub
End If
Set oShape=Ac(1)
MyTop=oS
MyLeft=oS
MyHeight=oS
MyWidth=oS
For Each oSlide In Ac
For Each oShape In oSlide。Shapes
If ABS (mytop-OS) 1和my left-OS(ABS)1和my height-OS(ABS)1和my width-OS(ABS)1 then
操作系统
End If
next
next
End Sub
1.《【多张ppt图片怎么删除】巨集会在PPT中批次删除每页相同位置(插图文字等)的内容。》援引自互联网，旨在传递更多网络信息知识，仅代表作者本人观点，与本网站无关，侵删请联系页脚下方联系方式。
2.《【多张ppt图片怎么删除】巨集会在PPT中批次删除每页相同位置(插图文字等)的内容。》仅供读者参考，本网站未对该内容进行证实，对其原创性、真实性、完整性、及时性不作任何保证。
3.文章转载时请保留本站内容来源地址，https://www.lu-xu.com/keji/2503483.html
