EXCEL マクロ( VBA )でアニメーションをつくる図形や画像や音声を動かす

この実験は「Excel のセルに色を入れ、変えていくことで動きを出す」、ことを基本にしていますが、Excel では図形部品や画像部品を表示させ、それを直接動かすことでアニメーションを作ることもできます。実は割と手軽なので作って試してみて、うまくいくようでしたら紹介していきます。

セリフつき４コマ漫画風（音声もあり）

4つの画像をタイマーで切り替え、それに即したセリフ図形とテキストを入れたものです。セリフは一度に表示するのでは面白くないので、一字ずつ表示するようにしました。また、セリフ表示後にテキスト読み上げ機能を組み入れています。

画像の切り替えとセリフ表示の同期がなかなかうまくいかなくて苦労しました。Application.OnTime　を使ってます。

もっと詳しく

テキストの読み上げには、次のコードを入れています。
Application.Speech.Speak
例えば、「昨日は野球に行った」と話させたいなら、
Dim r_serifu As String
r_serifu = “昨日は野球に行った”
Application.Speech.Speak r_serifu
で Excel から音声を出せます。
r_serifuを配列 r_serifu() にして、違う読み上げ内容をセットして、同様に Application.Speech.Speak で話させようとしたのですが、画像を切り替えたと同時に、次の音声を出す、という制御がとっても難しかったのです。
音声のみを続けて出す、というのならいいかもしれません。Excel マクロ (プログラム)から音声を出すこと自体は面白いので、一度体験してみるといいと思いますよ！

会話（音声もあり）

上のを応用したもので、２人の会話を絵を変えながら別々の音声で出す、というものです。

これは、簡単そうに見えるのですが、実はとっても難しく、作成時間も相当かかってしまいました。 Excel VBA で音声を多用したものを作るのは困難な気がします。

もっと具体的に

いや、ホント大変でした。思い出すのもつらくなるくらいです。
一番の問題は、VBAで画像とそれに見合った音声を出力しようとする場合、コマ送りのようにするには画像表示と音声出力とで同期がとりにくい、ということです。また、更に難しくしたのは、Windows11の場合は、音声読み上げ（ナレーター）の日本語音声が１つ(Microsoft HARUKA desktop)しかなかったことです。音声読み上げには、いくつか方法があるのですが、最終的には最も単純の１つの方法である、 SAPI.SpVoice を使いました。この方法だと、いくつか音声の種類を使い分けできます。が、前述のとおり、日本語音声が１つしかなく、追加のインストールもことごとく失敗したのでやむなく２つめの音声は英語にする、ということでお茶濁しとなってしまいました。
その他も、後ろのセリフが前のセリフを追い越したり、省略されたり、と散々で音声の取り扱いの難しさを実感しました。
なお、途中で疲れ果てたため、お試しにGoogleAIを使って相談していたのですが、とてもよいチェックや助言、サンプルを提供してくれるので感心、というか驚愕しました。正直、人間の専門家でもこんなに早く、いろいろなアイデアをしかも無料で提供してくれる人はいないでしょう。これはまずい（やばい）ですね。シンギュラリティが本当に近いかもしれません。注意すべきコードはそのうち書き足すかもしれません。（今は勢いで書いてしまっています）

カーリング風（ショート動画）

カーリングの石の動きをExcel マクロでプログラミングして、アニメーションを作り、それをショート動画にしてみました。これはセル動画ではなく、図形部品（shape）を使った図形アニメーションになります。

ドット絵を時間とともに変えて動きを出すアニメーションも作ったのですが、i石を動かす度に画面がチラついてしまって、ちょっとお見せするには厳しかったので、途中で変えました。ドット絵、図形を動かす、それぞれメリット、デメリットがあるので使い分けが大切ですね。

もっと詳しく

セル動画で画面がチラつく、というのは石４つのそれぞれの動きに合わせて、画面描画をし直すためで、この制御がとても難しい（というか、どうも無理）、ということです。これが、図形（shape）の場合は全く問題なく、スムーズに動かすことができます。といっても字面ではわかりづらいですよね。今度、セル動画もUPして比較できるようにします（動きとしては、ほぼ同じものです）。

こんなカーリングはいやだ！３選（ショート動画）

上記のカーリングのプログラム中で、石を動かすパラメータをいじって、ちょっとお笑い風にまとめてみました。これもショート動画です。なかなか視聴回数もよかったです。

VBAは音を思い通りに出すのは苦手なので、動画作成ソフトで合成しました。ナレーションも読み上げソフトで音声作ってます。PC１台で全てできてしまうのもすごいですね。

もっと詳しく

動画作成ソフトは、GomMixMaxを使っています。安価ですが、今のところ機能的には不満はないです。効果音はフリー素材を使わせてもらいました。とてもありがたいですが、イメージの音を選ぶの苦労しますね。ナレーションは今回初めてClipchampを使ってみましたが、これは素晴らしいです。こちらの記事で詳しく解説しています。