2008年5月30日　page:1/4

牧村　あきこ＝テクニカルライター

• Tweet
• 
• 
• 

　さて、セルにぴったり重なるように図形を挿入するプログラム作りも今回で最後です。前回は、フォームに配置したコマンドボタンをクリックすると、アクティブなセルに重ねて図形を挿入するイベントプロシージャを作成しました。今回も引き続き、このイベントプロシージャに手を加えていくことにしましょう。

挿入した図形に書式を設定する

　それでは前回作成途中のブックを開き、「Visual Basic」ツールバーの「Visual Basic Editor」ボタンをクリックして、Visual Basic Editor（以降、VBE）を起動します。VBE画面が表示されたら、プロジェクトエクスプローラの「UserForm1」をクリックして選択し、「コードの表示」ボタンを押してユーザーフォームのコードウィンドウを表示します（図1）。

図1　「UserForm1」を選択した後、「F7」キーを押しても同様にコードウィンドウを開くことができる

　コマンドボタンをクリックしたときに発生するイベントプロシージャには、次のようなコードを記述しました。

　　　　ActiveSheet.Shapes.AddShape msoShapeRectangle, myLeft, myTop, myW, myH

1.塗りつぶしの色を設定する
2.塗りつぶしの透明度を設定する
3.図形を囲む線を「なし」にする

連載目次（新着順）

• 追加した図形に複数の書式を設定する（第73回）
• AddShapeメソッドで新しい図形を追加（第72回）
• モードレスなフォームを作成する（第71回）
• サイズを合わせたオートシェイプでセルに色をつける（第70回）
• 入力規則を連動させるプログラムを完成させる（第69回）

 目次一覧へ

関連記事

検索中

追加した図形に複数の書式を設定する（第73回）

column_LEAF

262976

キーワード

デュアルディスプレイで快適な仕事環境を構築