簡単になる利点がありますし、ＶＢＡのプルグラミングの勉強になるところが
多いんです。
今回のレッスンはオートシェイプを使いますので、ワードやエクセルの
タスクバーの「表示(V)」をクリックして現れるサブウインドウの「ツールバー(T)」
から「図形描画」にチェックマークを付けて下さい。下段に図形描画用タスクバー
が現れます。
それではいよいよマクロをやってみましょう。タスクバーの「ツール(T)」から
「マクロ(M)」→「●新しいマクロの記録(R)」を選んでクリックしましょう。
「マクロの記録」ウインドウが立ち上がります。マクロ名(M)テキストボックスに
マクロ名を入れます。デフォルトでは「Macro1」と表示されています。レッスンに
合わせて「Lesson25」という名前にしましょう。エクセルではショートカットキー(K)が
設定出来る様になっています。これは自分で好みのショートカットキーが割り当て
られるということです。今回は使わないので何も入れなくても良いでしょう。
説明(D)テキストボックスもありますね。ここにマクロ操作の概要を書くと、沢山
マクロを設定したときに役に立ちます。コードに説明文を付ける様なものですね。
「オートシェイプの練習」とでも入れておきましょう。ワードでは、ショートカットの
割り当てが「マクロを割り当てる対象」として「ツールバー(T)」か「キーボード(K)」
を選択する様になっています。後はエクセルと同じです。エクセルもワードも
マクロの保存先はデフォルトのままで良いでしょう。
それでは「ＯＫ」をクリックして下さい。小さく「記録終了」ウインドウ
が立ち上がります。それではマクロに一連の作業を記録しましょう。最初に「図形描画」
タスクバーから「オートシェイプ(U)」→「基本図形(B)」から「四角形」のアイコンを
クリックして下さい。これで四角形の描画モードになります。シートかドキュメントに
適当な大きさの四角形を描いて下さい。マウスの左ボタンを押したときが四角形の
左上指示となり、押したまま大きさを指定して、ボタンを離したときが四角形の右下と
なって四角形の位置と大きさが決定されます。
四角形が描けたら、「図形描画」タスクバー右端の「３－Ｄ」をクリックして下さ
い。いろんな形の３Ｄ四角形の絵が出てきますね。左上の３Ｄ形状のアイコンを
クリックして下さい。先ほど描いた四角形が立体的に表示されます。もう一度タスク
バーの「３－Ｄ」から「３－Ｄの設定(3)」をクリックします。「３－Ｄの設定」
ウインドウが表示されます。この中程にある「奥行き」コマンドをクリックして、
「７２ＰＴ(7)」を選んで下さい。四角形の奥行きが増えましたね。以上でマクロの
記録が終了です。「記録終了」ウインドウの「記録終了」ボタンをクリックして下さ
い。
ではこのマクロを実行してみましょう。まずは今書いた立方体を消して下さい。
Deleteキーで容易に消せますね。次にタスクバーの「ツール(T)」→「マクロ(M)」→
「マクロ(M)」を選択します。「マクロ」ウインドウが立ち上がります。
Lesson25が表示されてますね。右端の「実行(R)」ボタンをクリックしてみて下さい。
先ほど記録した作業を実行します。また立方体が現れましたか？もう一度「マクロ」
ウインドウを表示させて下さい。そして「編集(E)」ボタンを押します。そうすると
お馴染みのVBEが立ち上がり、こんなコマンドが表示されます。
途中の操作によっては他のステートメントが入っているかも知れませんが、ここに
示したコードが最低限のものです。これがエクセル（ワード）自身が作ったＶＢＡの
コマンドになります。これをいつもの様にＶＢＡのプログラムにしてみましょう。
エクセルの画面に戻って先ほど描画した立方体の図形を消して下さい。ＶＢＥの画面
に行って、いつもの様にユーザーフォームを挿入しましょう。コマンドボタンを一つ
貼り付けて、コマンド画面にマクロを真似たこんなコードを書いてみて下さい。
実行させましょう。コマンドボタンを押すと先ほどと同じ立方体が描画されましたか？
今までＶＢＡのコードはレッスンに従って書いてきたので、どんなコマンドがあるか
見当が付きませんでした。マクロを知った今は、エクセルやワードが持っている操作
コマンドをコードレベルでいつでも調べられる様になったということになります。
今回はオートシェイプで３－Ｄ図形を描くためにはどんなコードを使えば良いかが
わかりました。マクロで出来たコマンドの中身はわかりますか？
ご意見・ご感想は
