EXCELマクロ( VBA )でアニメーションをつくる

EXCELマクロ( VBA )を使って、EXCELセルを塗りつぶして絵を作ったり、その絵を動かしてみる(アニメーション)実験です。何かに役立つかって?うーん、思いつきません 笑。

基本その1(縦線)

ループを回して行を移動し、同じ列のセルの色付けをどんどん行っていくごくシンプルなものです。まずは上から下につけてみてます。

P列の1行目~50行目を黒く塗りつぶします。

基本その2(クロス)

縦(上から下)に色付けした後、横(左から右)に色をつけていくものです。

これも結構シンプル。

基本その3(ドットアニメーション)

上から下に点(といっても黒塗りセル)が移動するように見せるものです。ちなみに、黒塗りは、RGB(0, 0, 0)でセットできます。

ループの途中で時間を止めるようにしました。そうしないと速すぎて動きが追えないのです。

渦巻

真ん中から右回りにグルグルと回る渦を巻くようにセルを塗っていきます。これも基本ループを使ってますが、1マス進んだ毎ごとに次に進める方向を判断して行先を決めています。

渦といっても円じゃなくて、四角ですね。

似顔絵

セルに色付け絵に応用してみました。これも、上から下へループさせたものです。

渦巻よりこっちの方がロジックは単純なんです。

へのへのもへじ

上の似顔絵を応用したものです。

書き順に表示されるようにしてみたよ。ちょっとだけ複雑。

同心円(花火)

上の渦巻を応用して三重円を表示してみました。打ち上げ花火のようにもみえます。今後、本格的に花火を作ってみましょうかね。

タイマーで止めるループ回数の設定がちょっとやっかい。時間かかっちゃたー。

花火(打ちあがるところ)

基本その3(ドットアニメーション)を応用すると、地上から打ち上がるまでの動きを表すことができそうです。

下から上の動きなので、行カウンタをマイナスにする必要がありますね。

新たに作ったら、どんどん追加していきますよ。溜まってきましたら解説ページも作りますかね。

タイトルとURLをコピーしました