「VBA スライドショー画面切り替え フェード」
という検索が、このサイト・インストラクターのネタ帳で行われていました。
[画面切り替え]タブ-[画面切り替え]グループ-[フェード]ボタンをクリックすると、
画面の切り替え効果をフェードに設定することができます。
これを、VBAから行うにはどのようなコードを書けばいいのか探していらしたのでしょう。
画面の切り替え効果を設定するサンプルマクロ
以下のSubプロシージャを実行すると、アクティブなプレゼンテーションファイルの、全スライドの画面切り替え効果がフェードに設定されます。
Dim sld As Slide For Each sld In ActivePresentation.Slides
With sld.SlideShowTransition
.EntryEffect = ppEffectFadeSmoothly
.Speed = ppTransitionSpeedSlow
End With
Next sld
End Sub
サンプルマクロの解説
PowerPoint VBAのSlideShowTransitionオブジェクトを使うと、
画面切り替えの設定を行うことができます。
SlideShowTransition.EntryEffectプロパティに、PpEntryEffect列挙に定義されている定数の、
ppEffectFadeまたはppEffectFadeSmoothlyでフェードとなります。
ppEffectFadeを指定した場合、[効果のオプション]-[黒いスクリーンから]を設定した状態になるので、
ここではppEffectFadeSmoothlyにしています。
SlideShowTransition.SpeedプロパティにはPpTransitionSpeed列挙に定義されている定数を指定できますので、
いろいろ試してみていただければ。
- Newer:プロパティでも自動データヒントは表示される
- Older:VBAでテキスボックス・図形の塗りつぶし色を変更する
Home » パワーポイントマクロ・PowerPoint VBAの使い方 » スライドショー » VBAで画面切り替え効果を設定する