发布网友 发布时间:2022-05-04 23:46
共1个回答
热心网友 时间:2022-06-27 08:40
Sub 删除有超链接的图片() On Error Resume Next Dim sht As Worksheet Dim shp As Shape For Each sht In ThisWorkbook.Worksheets For Each shp In sht.Shapes If Len(shp.Hyperlink.Name) = 0 Then shp.Delete Next Next End Sub