如何批量删除ppt中的同一图片

0 个评论
最近编辑网上下载的PPT,发现有些图片不想要,在PPT里面又有很多,一张一张删除太麻烦,在网上找到的脚本,很好用 1、首先打开需要编辑的PPT幻灯片,进入到编辑首页中。 2、然后点击打开视图中的“宏”。 3、然后在弹出来的窗口中输入一个宏名,点击打开“新建”。 4、然后在弹出来的窗口中输入以下的代码。 Sub DeletePic() Dim SelSlide As Slide Dim SelPicName As String If ActiveWindow.Selection.Type = ppSelectionNone Then MsgBox (" 请选中待删除的图片!...
2020-02-12 / EXCEL编程VBA / 66 views浏览
阅读全文

把职称复制到另外一个表

0 个评论
Sub Macro1() ' ' Macro1 Macro ' ' Dim a Dim i Dim j Dim v1, v2 As String Dim l1, l2 Dim m Dim n Dim sh1, sh2 As Worksheet Set sh1 = Worksheets(1) '表1 Set sh2 = Worksheets(2) '表2 For a = 1 To 10 '一次处理 表1 的 10行 i = Selection.Row j = Selection.Column v1 = Trim(Selection.Value) '去掉前后空白的...
2017-11-12 / EXCEL编程VBA / 2,465 views浏览
阅读全文