見られて恥ずかしくないきれいなオプションボタン前回(マクロ講座60回)ではオプションボタンを大きく見せる方法を紹介しましたが、管理人的にはどうもやぼったいと感じてしまいます。そこでいっそのことオプションボタンをボタン画像で代替えできないかと考えました。マクロ61回サンプルデータ)オプションボタンをきれいな画像で作るオプションボタンの代わりをする画像を挿入しましょう。挿入タブから、図形を挿入します。図形上にOption1とい文字列を入力します。(わかりやすくするためです。)図形Option1をコピーして3つにします。図形には、「四角形:角を丸くする1」という使いずらい名前がデフォルトでついています。これはあとで変更します。「四角形:角を丸くする1」という名前を単に、Option1に変更します。Enterで確定すると名前が変更されます。Option1、Option2、Option3とボタン名と表示テキストが同じ画像が3つ作成できました。リンクしたセルを作るどれを選択したのか、はっきりさせるために、D1セルの名前をLinkedCellに変更します。Enterで確定します。オプションボタンにするためのコードVBEを起動して、Sheet1に次のコードを記述します。3と変更してあるだけの簡単なコードです。Sub選択したボタンの色を変更するコードこれで、どの画像を選択しても、選択した画像のナンバーが設定したLinkedCellに表示されるようになります。されに選択したボタン画像の色を変更するために「オプションボタンの色」というマクロコードを記述します。結果はこのように、選択したボタンの色が変わるとともに、選択した画像のナンバーが設定したLinkedCellに表示されます。オプションボタンの色を変更するのも簡単です。msoShapeStylePreset34のようにナンバーを指定しているだけです。画像を挿入して選択すると表示される描画ツールにある書式タブの図形のスタイルグループに用意されているスタイルにあらかじめ設定されているナンバーです。次回はさらにコードを使いやすくしましょう。