vba - vba コードは「通常」ビューでは正常に機能しますが、powerpoint 2003 の「スライドショー」では機能しません

Question

6枚のスライドを使ったプレゼンテーションがあります。スライド 5 には、rotatechart、角度の変更などの vba / マクロ コードが含まれています。コードは、アクティブなドキュメント (.ppt) で vba エディターの「RUN」を介して正常に機能しますが、「スライドショー」モードのコードでは機能しません。デバッグ メッセージ： "無効なリクエスト。アクティブなドキュメントが存在しません」。コードのヘルプをお願いします。

Sub MoveItInSlideShow()
  With SlideShowWindows(1).Presentation.Slides(5).Shapes("Picture 2")
      ActiveWindow.Selection.SlideRange.Shapes("Picture 2").Select
      Application.Run "'Hora.ppt'!Slide7.CreateSpirograph"

  end with
end sub

ありがとう