vba - vbaを使用してパワーポイントのハイパーリンクを更新する

Question

どのスライドが各ハイパーリンクを参照しているのかを知る必要があります。そのために、私は ActivePresentation.Slides(sliNum).Hyperlinks(linkNum).SubAddress を探しています。リンクを参照しているスライドが表示されます。ここに SubAddress の結果を入れます: "380,3,dINK the company"

ここで本当に必要なのは、コンマの間の数字です (この場合は 3 になります)。たとえば、3 番目のスライドの前に新しいスライドを配置すると、問題が発生します。必要なスライドは 4 枚目ですが、SubAddress は変わりません。ActivePresentation.UpdateLinks と shape.LinkFormat.Update および shape.LinkFormat.AutoUpdate を試してみましたが、SubAddress は変更せずに引き続き機能します。

リンク参照を見つけるために置いたコードの平和を置きます：

   For Each s In ActivePresentation.Slides

        For i = 1 To s.Hyperlinks.count

          Dim cou As Integer
          Dim linkNumber As String
          le = Len(s.Hyperlinks(i).SubAddress)
          cou = InStr(s.Hyperlinks(i).SubAddress, ",")
          linkNumber = Mid(s.Hyperlinks(i).SubAddress, cou + 1, InStrRev(s.Hyperlinks(i).SubAddress, ",") - (cou + 1))

レジュームでは、どうにかしてサブアドレスを更新する必要があります。または、ハイパーリンクがどこを参照しているかを知る別の方法を知っている場合は、ハイパーリンクも素晴らしいでしょう。私が使用しているリンクの種類は msoHyperlinkRange です