#PP雑談 で使ってたアニメーションを追加するPPマクロ【#かなたーと ?】
閉じる
閉じる

新しい記事を投稿しました。シェアして読者に伝えましょう

×

#PP雑談 で使ってたアニメーションを追加するPPマクロ【#かなたーと ?】

2020-07-11 23:26

    天音かなたといえばPP天使、もといパワーポイントである。彼女のストリームに使用されているPPを見て、アニメーションの自動設定を作ってみたいと発起した。

    動作は Power Point 2016 で確認。「かなたそマクロ.pptm」とかで保存しておき、別プロジェクトから参照して欲しい。

    作ったのは箇条書きがスライドインするアニメーションを自動で追加するマクロ。

    1.上のとこに箇条書き、2.マクロを実行すると、3.全ページに動画で見たスライドインのアニメーションが追加される。

    いつかのPP雑談で一段階遅いスピードに拘っていたので、(efct.Timing.Duration = 1)で1秒間の設定を追加した。ちなみにPPのデフォルトは0.5秒。


    Sub 全てスライドイン()

    Dim sld As Slide
    Dim shp As Shape
    Dim efct As Effect
    For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes
    If shp.Name Like "Content Placeholder*" Then
    shp.AnimationSettings.Animate = msoTrue
    shp.AnimationSettings.EntryEffect = ppEffectFlyFromBottom
    shp.AnimationSettings.TextLevelEffect = ppAnimateByFirstLevel
    End If
    Next shp
    Next sld

    For Each sld In ActivePresentation.Slides
    For Each efct In sld.TimeLine.MainSequence
    If efct.Shape.Name Like "Content Placeholder*" Then
    efct.Timing.Duration = 1
    End If
    Next efct
    Next sld
    End Sub

    Sub 全てアニメーション削除()

    #tab;Dim sld As Slide
    Dim shp As Shape
    For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes
    shp.AnimationSettings.EntryEffect = ppEffectCut
    shp.AnimationSettings.AnimationOrder = 0
    shp.AnimationSettings.Animate = msoFalse
    Next shp
    Next sld

    End Sub

    完走した感想ですが(激うまギャグ)。PPはマクロの記録ができない!これは作ろうと思ってから知ったので、衝撃的だった。編集するべきプロパティも分からないのである。リファレンスとオブジェクトブラウザを見たり、全プロパティをローラー作戦で探したりした。あんまり参考資料がなくて、解決方法がローラー作戦になるところが楽しかった。しかも、それでもなお見て分かるように超強引に名前指定で目的オブジェクトの判断してる。汎用的なPPマクロなので、改造したら業務に使えるってこともあるかも。

    やっぱり一歩目を作りたかった。誰かに見てもらって今度はクリエイターが機能を増やしてくれるというわけ。SIMS4のMODとかあったし、こういうのもいいのか?でもOfficeのマクロは敬遠されてるし……。

    V2の予定はPPトーク(クソダサコーデバトル回のような)を作成するフォームを作りたい。いや誰か作ってくれ。


    広告
    コメントを書く
    コメントをするには、
    ログインして下さい。