学习使用，大佬勿喷，仅供交流学习，24小时内自行删除 软件下载链接： [c-downbtn type='lz' url='https://xunmeng233.lanzoup.com/isOAnys6nvc' pwd='']资源文件下载[/c-downbtn]

1.视图-----宏-----宏名（随便输入）-----创建 2. 粘贴以下的代码： Sub DeletePic() Dim SelSlide As Slide Dim SelPicName As String If ActiveWindow.Selection.Type = ppSelectionNone Then...