如何用VBA批量删除PPT中所有图片带的超链接

gavincar

PPT中有很多图片因为从网上粘贴过来，带了好多超链接，如何通过VBA批量删除。
谢谢。

andy_wang123

Private Sub CommandButton1_Click()
   '变量说明
   'Start_Page_No 开始页码
   'End_Page_No 结束页码
   Dim Start_Page_No, End_Page_No As Integer
   Dim I, J As Integer
   Start_Page_No = 2: End_Page_No = 3
   For I = Start_Page_No To End_Page_No
        For J = 1 To ActivePresentation.Slides(I).Shapes.Count
            MsgBox (ActivePresentation.Slides(I).Shapes(J).Type)
            If ActivePresentation.Slides(I).Shapes(J).Type = msoLinkedPicture Or ActivePresentation.Slides(I).Shapes(J).Type = msoPicture Then
                ActivePresentation.Slides(I).Shapes(J).ActionSettings(ppMouseClick).Hyperlink.Delete
            End If
        Next J
    Next I
End Sub            
           

gavincar

andy_wang123 发表于 2017-3-24 08:02
Private Sub CommandButton1_Click()
   '变量说明
   'Start_Page_No 开始页码

谢谢你的帮助，非常感谢！

andy_wang123

gavincar 发表于 2017-3-30 07:33
谢谢你的帮助，非常感谢！

删除这一条.这是我调试用的

MsgBox (ActivePresentation.Slides(I).Shapes(J).Type)

wzh72636

andy_wang123 发表于 2017-3-24 08:02
Private Sub CommandButton1_Click()
   '变量说明
   'Start_Page_No 开始页码

但是如果PPT页面中，图形带有超链接就删除不了，大神如何处理，谢谢。