笔记2022

IDONTCAREq

已于 2022-02-25 11:23:04 修改

阅读量149

点赞数

文章标签： linux

于 2022-02-19 15:42:45 首次发布

本文链接：https://blog.csdn.net/IDONTCAREq/article/details/123019339

版权

kali获得root权限 sudo su -

ppt批量宏

Sub Delete()
Dim SelSlide As Slide
Dim SelPicName As String
If ActiveWindow.Selection.Type = ppSelectionNone Then MsgBox ("请选中待删除的图片！") Else
SelPicName = ActiveWindow.Selection.ShapeRange.Name
If vbYes = MsgBox("是否要删除所有幻灯片中的同名图片“" + SelPicName + "”？", vbYesNo, "信息提示") Then
For Each SelSlide In ActivePresentation.Slides
On Error Resume Next
SelSlide.Shapes(SelPicName).Delete
Next
End If
End Sub