マウスカーソルが上にあるときにPowerpointのgifをアニメ化する

Question

Powerpoint 2010 VBAに、マウスカーソルを上に置いたときにgifをアニメーション化する小さなプログラムを書くことができるかどうか疑問に思っていました。

Answer 1

他の図形の上にマウスを置いたときに1つの図形が表示されるようにするマクロを記述することはできますが、

どのような種類のシェイプを追加しても、アニメーション化されたgifの非アニメーション化バージョンなどがあります。それを実行マクロのマウスオーバーに設定するアクションを割り当てます。SHOWME

まず、プレゼンテーションにこれを追加します。

Sub ShowMe() 
' Edit this to change the slide number as needed and to 
' change "Picture 1" to the actual name of the animated gif 
ActivePresentation.Slides(1).Shapes("Picture 1").Visible = True 
End Sub 

その後animaged GIFを非表示にする選択ペインを使用します。

あなたはこれらの形状の両方の後ろに少し大きめの形状を入れて、SHOWMEと同じですが、カーソルがSHOWMEトリガーの上に置いたときに.Visible = Falseの

を設定しているマクロHideMeにそのマウスオーバーアクションを設定することができますanigifは目に見えるようになります。カーソルがgifから移動すると、それはHideMeシェイプに入り、2番目のマクロをトリガーしてGIFを再び隠す。