★トグルボタンで文字の書式設定 その1
 

 今回から意外とマイナーっぽいイメージのある(私だけですが)トグルボタンの解説に入ります。
ついついフォーム上で使う時はコマンドボタンに押されているような気がしているのですが、実は、このトグルボタンって意外と活躍しているのです。

 そうです。身近なところでいうとツールバーなどにはたくさんのトグルボタンが使われています。これらはみんなトグルボタンなんですね。
ボタンを押すとON状態になり、もう一度押すとOFF状態になって視覚的にボタンの状態が分かるようになっているヤツですよ。

このトグルボタンを使って、ツールバーと同じようにフォーム上のラベルの文字の書式設定を変更できるようにしてみたいと思います。

 ではまず、ユーザーフォームをシート上に開くためのシート上にコマンドボタンをひとつ貼り付けます。コマンドボタンのCaptionには「トグルボタンの勉強」と設定をしました。

そしてユーザーフォームをひとつ作ります。
ユーザーフォーム上には、ラベルを1つ、トグルボタンを6つ貼り付けます。
それぞれのプロパティの設定は次のようにしました。

オブジェクト名 変更後 Caption
UserForm1 frmトグルボタン トグルボタンのフレーム
Label1 ラベル文字 Excel全開VBA
ToggleButton1 トグル太字 太字
ToggleButton2 トグル斜線 斜体
ToggleButton3 トグル下線 下線
ToggleButton4 トグル大文字 大文字
ToggleButton5 トグル赤色 赤色
ToggleButton6 トグル明朝 明朝体

BackColorなどは今までの要領でお好きな色に設定して下さい。
ではコードの記述ですが、
まずはシート上からコマンドボタンでユーザーフォーム「frmトグルボタン」を呼び出すプロシージャーの記述です。
これはもう分かりますよね。
Private Sub CommandButton1_Click()

frmトグルボタン.Show

End Sub

そして続いてユーザーフォーム「frmトグルボタン」内の記述の解説です。

[トップ][前へ][トグルボタン][次へ]