★トグルボタンで文字の書式設定　その１
今回から意外とマイナーっぽいイメージのある（私だけですが）トグルボタンの解説に入ります。 ついついフォーム上で使う時はコマンドボタンに押されているような気がしているのですが、実は、このトグルボタンって意外と活躍しているのです。 　そうです。身近なところでいうとツールバーなどにはたくさんのトグルボタンが使われています。これらはみんなトグルボタンなんですね。 ボタンを押すとＯＮ状態になり、もう一度押すとＯＦＦ状態になって視覚的にボタンの状態が分かるようになっているヤツですよ。 このトグルボタンを使って、ツールバーと同じようにフォーム上のラベルの文字の書式設定を変更できるようにしてみたいと思います。
ではまず、ユーザーフォームをシート上に開くためのシート上にコマンドボタンをひとつ貼り付けます。コマンドボタンのＣａｐｔｉｏｎには「トグルボタンの勉強」と設定をしました。 そしてユーザーフォームをひとつ作ります。 ユーザーフォーム上には、ラベルを１つ、トグルボタンを６つ貼り付けます。 それぞれのプロパティの設定は次のようにしました。 オブジェクト名 変更後 Ｃａｐｔｉｏｎ UserForm1 frmトグルボタン トグルボタンのフレーム Label1 ラベル文字 Ｅｘｃｅｌ全開ＶＢＡ ToggleButton1 トグル太字 太字 ToggleButton2 トグル斜線 斜体 ToggleButton3 トグル下線 下線 ToggleButton4 トグル大文字 大文字 ToggleButton5 トグル赤色 赤色 ToggleButton6 トグル明朝 明朝体
ＢａｃｋＣｏｌｏｒなどは今までの要領でお好きな色に設定して下さい。 ではコードの記述ですが、 まずはシート上からコマンドボタンでユーザーフォーム「frmトグルボタン」を呼び出すプロシージャーの記述です。 これはもう分かりますよね。
Private Sub CommandButton1_Click() frmトグルボタン.Show End Sub
そして続いてユーザーフォーム「frmトグルボタン」内の記述の解説です。
[トップ][前へ][トグルボタン][次へ]