エクセルマクロにてパワーポイントのリンク更新をさせたい

あまり詳しくないのですが、マクロを使って色々なことをやっている最中です。
今回やりたいことは、毎月作成しているプレゼン資料をマクロで簡素化出来ないかと思っています。
今やっている作業は
　①エクセルにてデータ収集したあとグラフを作成する。←これはマクロ化されています。
　②先月作成したパワーポイントを開いてリンクを更新をクリックして①のグラフに更新する。
　③今月のファイル名にしてパワーポイントを保存する。
　　※ｐｐｔファイルは５つ作成しています。（例えばＡ．Ｂ．Ｃ．Ｄ．Ｅ）
やりたいことは
　①エクセルにて作成月「７月」とファイル名「Ａ」を選択してマクロ起動
　②ｐｐｔの６月Ａファイルを開いて、
　③リンクが更新され、
　④７月Ａファイル名で保存される。

　①と②は出来るのですが③が出来ません。

どなたかアドバイス頂けると非常に助かります。
どうぞよろしくお願いします。

環境：Win10
VBA7.1
ppt　office365

質問者からの補足コメント

• Qchan1962様
  早速のアドバイスありがとうございます。
  　LinkFormatメソッドもやってみたのですが
  　エクセルのマクロからｐｐｔのマクロの起動方法が分からなく。。。
  
  　エクセルからパワーポイントのマクロを起動させることは出来るのでしょうか。

  No.1の回答に寄せられた補足コメントです。 補足日時：2020/07/20 17:24

• Qchan1962様
  ありがとうございます。
  参考サイトを元に作成していました。
  インスタンスの作成とアプリケーションのセットは出来ている？と思います。
  
  説明不足で大変申し訳ございません。
  ｐｐｔ側の「リンクを更新」マクロを、こちらのマクロ（参考サイト）を使って動かしたいです。
  
  度々申し訳ございません。

  No.2の回答に寄せられた補足コメントです。 補足日時：2020/07/20 18:12

• Qchan1962様
  何度もありがとうございます。
  今は自宅ＰＣで確認させて頂いてますので
  明日、会社ＰＣで確認致します。

  No.3の回答に寄せられた補足コメントです。 補足日時：2020/07/20 19:45

No.3 ベストアンサー 回答者： Qchan1962 回答日時： 2020/07/20 19:33

こちらのマクロが分かりませんが、

例えば、
Dim Pwp As Object
Dim Prs As Object
Dim sh, sld
　　Set Pwp = CreateObject("PowerPoint.Application")
　　Set Prs = Pwp.Presentations.Open("C:\Users\XXX\プレゼンテーション1.ppt")
　　For Each sld In Prs.Slides
　　　　For Each sh In sld.Shapes
　　　　　　If sh.Type = msoLinkedOLEObject Then
　　　　　　　　sh.LinkFormat.Update
　　　　　　End If
　　　　Next
　　Next
こんな感じでどうでしょう。

この回答へのお礼

Qchan1962様
何度もありがとうございました。
やりたいことが出来るようになりました。
また機会がありましたらどうぞ宜しくお願い致します。

お礼日時：2020/07/21 09:19

No.2 回答者： Qchan1962 回答日時： 2020/07/20 17:38

＞エクセルからパワーポイントのマクロを起動させることは出来るのでしょうか。

インスタンスの作成とアプリケーションをセットする必要がありますが出来ます。参考サイトの案内ばかりで恐縮ですが、
こちらを　https://e-vba.com/excelxpowerpoint/

No.1 回答者： Qchan1962 回答日時： 2020/07/20 17:04

こんにちは、

この辺りは参考になりますか？

LinkFormat メソッド (PowerPoint)
https://docs.microsoft.com/ja-jp/office/vba/api/ …

UpdateLinks メソッド (PowerPoint)
https://docs.microsoft.com/ja-jp/office/vba/api/ …