リンクされたオブジェクトの PowerPoint プレゼンテーションのリンクが、更新ではなく、ゆっくりと変更されています。サンプルコードは以下のとおりです。
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.Type = msoLinkedOLEObject Then
Src_Old = Split(shp.LinkFormat.SourceFullName, "!")(0)
Src_New = Src_Path & "\" & Src_Book_Name
shp.LinkFormat.SourceFullName = Replace(shp.LinkFormat.SourceFullName, Src_Old, Src_New)
End If
Next shp
Next sld
各反復中に、外部ソース ファイルが再度開かれ、リンクが更新されるため、実行が大幅に遅くなります。質問は次のとおりです。
- リンクを更新せず、SourceFullName のテキストだけを変更するように強制する方法はありますか?
- 答えが NO の場合でも、反復ごとに外部ソース ファイルを再度開くのをやめる方法はありますか?
前もって感謝します。