「ファイルへのリンクの編集」のリンク先を一括で編集

投稿者 : モトキ     投稿日時 : 2021/04/21(Wed) 03:30:53     OS : 未指定     EXCEL : Excel 2016

---

パワポで「ファイルへのリンクの編集」のリンク先を一括で編集するコードの作成で苦戦しています。どなたかご教示いただけませんでしょうか。

やりたい事
1. リンク先の一覧をエクセルなどに表示
2. リンク先に現在のリンク先と新しいリンク先を記載
2. ファイルが100個ほど(半分ほどは重複している)あるため一括で編集したい

投稿者 : sinzo     投稿日時 : 2021/04/22(Thu) 16:38:41

---

パワーポイントになれていなく、不完全です。
自分で作れたリンクのみでテストなので、エラー出ると思います。

参考になれば。


パワーポイント上で作ってます。
（PowerPointVBA)

Sub tes01()

Dim pptShape As Shape
Dim Item_ As Object
      
For Each pptShape In ActivePresentation.Slides(1).Shapes
'Debug.Print pptShape.Type
  With pptShape
    Select Case .Type
    Case msoLinkedOLEObject
    'Const msoLinkedOLEObject = 10
      Stop
    Case msoChart
    'Const msoChart = 3
      Debug.Print "<"; .Name; ">"; .LinkFormat.SourceFullName
      .LinkFormat.SourceFullName = "C:\Users\inoue-a1559\Desktop\PP_vba_tes\tes001.xlsx"
    Case msoPlaceholder
    'Const msoPlaceholder = 14
      Debug.Print "<"; .Name; ">"
      With .TextFrame.TextRange
        If .ActionSettings.Count > 0 Then
          For Each Item_ In .ActionSettings
            Select Case Item_.Action
            Case ppActionHyperlink
            'Const ppActionHyperlink = 7
              Debug.Print "Address: "; Item_.Hyperlink.Address
            Case ppActionPlay
            'Const ppActionPlay = 12
            End Select
          Next
        End If
      End With
    End Select
  End With
Next pptShape
End Sub