LoginSignup
6
8

More than 5 years have passed since last update.

パワポを使ってアニメーションgifを作る

Last updated at Posted at 2018-08-18

まずは完成品から

anime.gif

どうやって作るのか?

パワポを使ってとは言うものの、実際にアニメーションgifを作るのは、ImageMagickです。Windows版と、Mac,Linux版とではコマンド名が違うので、適宜読み替えてください。以下のステップです。

  1. パワポで連番のgifを作る
  2. ImageMagickで、連番のgifからアニメーションgifを作る

パワポでの準備

スライドを書いていく

普通にスライドに文字を書いていきます。「ルパン オープニング アニメーションgif」などで検索すると自動的に作ってくれるWebサービスもあるのですが、特定のフォントや長体を使いたいときには、Officeを使うのが楽ちんです。PowerPointの書式に長体はないのですが、テキストBOXをコピー→形式を選択して貼り付け→PDF、を選ぶと、画像と同じ扱いになるので、縦横の変形が可能になります。

SS 2018-08-18 17.20.29.png

止めたいコマは複数にすることで、コマ送りのスピードを変えることができます。

マクロを埋め込む

パワーポイントには、基本機能としてgifファイルへのエクスポート機能があります。しかしながら、ファイル名が、「スライド1.gif」のようになっているので、ページ数が増えると、「スライド11.gif」が「スライド9.gif」よりもファイル名が逆順になり、あとでアニメーションgifにするのに不便です。そこで、VBAで、昇順ファイル名に出力ができるような機能を加えます。

以下のVBAをパワポドキュメントに埋め込んで実行します。マクロも保存するなら、pptm形式で保存するのがおすすめです。

Sub exportGif()
    Dim sld As Slide
    Dim cnt As Integer
    Dim strDir As String
    Dim strFileName As String

    ' output dir is hard-coded
    strDir = Application.ActivePresentation.Path & "/gif/"

    cnt = 0
    For Each sld In Application.ActivePresentation.Slides
        cnt = cnt + 1
        strFileName = "slide" & Format(cnt, "000") & ".gif"
        sld.Export strDir & strFileName, "gif", 720, 498
    Next
End Sub

このマクロを実行すると、連番で同階層のgifというフォルダに、gifファイルが作成されます。

SS 2018-08-18 17.28.40.png

ImageMagicでgifファイルを結合

gifファイルがあるフォルダで以下のコマンドを実行します。

convert -loop 0 -delay 20 slide*.gif anime.gif

MacでImageMagickを実行するときには、convertコマンドを使いますが、Windowsは適宜読み替えてください。

以下引数の説明

  • loop はループするかどうか。0がループする設定。1がloopしないけど、Twitterに投稿すると結局はループしちゃうので、gifアニメーションはループする前提で作った方がいい
  • delay は、1コマの時間。適当に増減させてくだい
  • 入力ファイルは連番の部分をアスタリスクにすることで、複数ファイル名を指定可能。

用途

TWitterはアニメーションgifに対応しているので、伝えたいことをアニメーションgifにすると暑苦しい演出が可能になります。

anime.gif

6
8
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
6
8