2

最後の質問に基づいて、図形のイメージを変更する正しいコードを取得しました。
残念ながら、これはアクティブなプレゼンテーションを更新しません。プレゼンテーションを閉じて再起動すると、画像が変更されますが、変更は直接表示されるはずです。

これは、画像を変更するための私のコードです:

ActivePresentation.SlideShowWindow.View.Slide.Shapes("SolutionA_Image").Fill.UserPicture ("D:\User\SolutionWrong.jpg")

プレゼンテーションを更新する方法を見つけましたが、これによりプレゼンテーションがちらつきます。

ActivePresentation.SlideShowWindow.Height = ActivePresentation.SlideShowWindow.Height - 1
ActivePresentation.SlideShowWindow.Height = ActivePresentation.SlideShowWindow.Height + 1

編集ここ
で 提案されているようにスライドを更新しようとしましたが、これはうまくいきませんでした。

Dim lSlideIndex As Long
lSlideIndex = SlideShowWindows(1).View.CurrentShowPosition
SlideShowWindows(1).View.GotoSlide lSlideIndex

編集 2
ファイルをアップロードしました:ダウンロード

4

2 に答える 2

2

パワーポイントでもこのバグを見つけました。この行をコードに追加すると、バグが修正されます

Application.SlideShowWindows(1).View.GotoSlide Me.SlideIndex

于 2016-01-07T16:16:22.770 に答える