作成日 2004/11/9
最終更新日 2005/10/22

エクセルVBAでカラーボタンをつくる(複数選択可)

 ここでは色を選択するときに使えるボタンを作ろうと思います。
 今回はボタンをフォーム等に2つ以上貼付けた場合、押下済み状態にできるのは1つだけ…はしない。何個でも選択可能なものを作ります。

1.具体的にどんなのものを作るの?
2.ダウンロードして使ってみる

1.具体的にどんなのものを作るの?

 見た目はこんな奴。
カラーボタンの説明図

 なんか、トグルボタン(ToggleButton)を使えばいいじゃんという意見が出そうなので、なぜそれを使わないのか理由を説明しておく。理由はただ一つ。トグルボタンは押すと、ボタンの色が変わるからヤダ。それだけ。

 作成するプロパティは以下の通り
プロパティ名
プロパティの説明
Add時に省略した時の値
Left
ボタン押下時の左上のx座標
0
Top
ボタン押下時の左上のy座標
0
Height
ボタン押下時のボタンの高さ
21
Width
ボタン押下時のボタンの幅
21
Caption
ボタンに表示する文字列
横位置:中央揃え、縦位置:上詰め(本当は中央揃えにしたい)
""
ColorIndex
ボタンの色(カラーインデックス(1-56)もしくは0で指定する。0で色なし。)
※色なしにした場合、表示されるボタンの色は透明にするけど、thisControlフレームの色が透明にできないので、結局、フレームの色になる。(ver1.1で削除)
0にしたときボタンに枠線が表示される。(ver1.2で追加)
0
ControlTipText
ボタンの上にマウスをのせたときに表示する文字列
""の場合、何も表示しません。
""
Locked
Trueにするとボタンを押下しても、見た目、Valueプロパティの値が変化しなくなる。
False
Value
ボタン押下でTrue、Falseがかわる。
このプロパティを変更すると、ボタンの見た目も変わる。
False

 作成するメソッドは以下の通り
メソッド名
メソッドの説明
Add
コントロールをコンテナオブジェクトに貼付ける。
※既に貼付けていた場合や、引数が不正だった場合はエラーとし、貼付けはしない。
Delete
コントロールをコンテナオブジェクトから削除する。
※既に削除済みの場合は何もしないよ。


このページのトップへ

2.ダウンロードして使ってみる

ここ(ver1.3)をクリックしてダウンロードだ!
ヘルプ(ver1.3.0)はここをクリック。


↑バグることがわかったので、リンクを解除しました。大変申し訳ございません。

マクロ(ver.1.2)ヘルプ(ver.1.2.0)
Prev Up Next  Top
このページのトップへ

このページの利用によって発生した、いかなる損害について、このホームページの作成者は責任を負いません。
このページの間違いや嘘を見つけた方、このページに書いて欲しい情報がある方はメールをお願いします。

Microsoft 、Windows 、Visual Basic および Excel は米国Microsoft Corporationの米国およびその他の国における登録商標または商標です。
ここではExcel® をエクセル、Visual Basic® for Applications をVBAと表記する場合があります。
Mac 、Mac OS 、Mac OS X は米国Apple Computer,Inc.の登録商標または商標です。
その他、社名および商品名、システム名称などは、一般に各社の商標または登録商標です。

このホームページの作成者はこれらの会社とはいっさい関係がありません。