だるまのエクセルVBA トップ > クラスモジュールをユーザーコントロールのかわりとして使う > カラーボタンをつくる（複数選択可）
作成日　2004/11/9
最終更新日　2005/10/22

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

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

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.の登録商標または商標です。
その他、社名および商品名、システム名称などは、一般に各社の商標または登録商標です。

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