| |
|
|
Sample Macro コントロール・ラベル |
 |
|
|
|
1-1) ラベルの色を変える |
 |
 |
'=========================================================================================
' ◆ユーザーフォームのコード◆ '【初期設定で変える場合】
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize() '※1
Label1.BackColor = RGB(255, 255, 0) '※2 背景色を設定(黄色)
Label1.ForeColor = RGB(255, 255, 0) '※2 文字の色を設定(黄色)
End Sub
'=========================================================================================
'=========================================================================================
' ◆ユーザーフォームのコード◆ '【マウスポインタが合ったら変える場合】
'-----------------------------------------------------------------------------------------
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Label1.BackColor = RGB(255, 255, 0) '※2 背景色を設定(黄色)
End Sub
'-----------------------------------------------------------------------------------------
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Label1.BackColor = &H8000000F '※2 背景色を設定(標準)
End Sub
'=========================================================================================
＜コメント＞
※1 Initializeイベントは、ユーザーフォームが開かれたときに発生する
くわしくは、サンプルブックの「解説」シートを参照
※2 BackColorプロパティ、ForeColorプロパティの値を設定して色を変える
サンプルブックのダウンロードは ここをクリック （YNxv231_Lable_Color.xls 41KB）
※ 一旦、ブックをハードディスクに保存し、開き直してから実行してください。
|
|
1-2) ラベルのフォントサイズ変更 |
|
|
'=========================================================================================
' ◆ユーザーフォームのコード◆
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize() '※1
Label1.Font.Size = 20 '※2 フォントサイズを変える
End Sub
'=========================================================================================
＜コメント＞
※1 Initializeイベントは、ユーザーフォームが開かれたときに発生する
※2 Sizeプロパティの値を設定してサイズを変える
|
1-3) ラベルのフォントスタイル変更 |
|
|
'=========================================================================================
' ◆ユーザーフォームのコード◆
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize() '※1
Label1.Font.Bold = True '※2 太字にする
Label1.Font.Italic = True '※3 斜体にする
End Sub
'=========================================================================================
＜コメント＞
※1 Initializeイベントは、ユーザーフォームが開かれたときに発生する
※2 Boldプロパティの値を Trueに設定すると太字、Falseなら太字でない
※3 Italicプロパティの値を Trueに設定すると斜体、Falseなら斜体でない
|
1-4) ラベルのフォントに線を付ける |
|
|
'=========================================================================================
' ◆ユーザーフォームのコード◆
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize() '※1
Label1.Font.Underline = True '※2 下線を付ける
Label1.Font.Strikethrough = True '※3 取消線を付ける
End Sub
'=========================================================================================
＜コメント＞
※1 Initializeイベントは、ユーザーフォームが開かれたときに発生する
※2 Underlineプロパティの値を Trueに設定すると下線付き、Falseなら付かない
※3 Strikethroughプロパティの値を Trueに設定すると取消線付き、Falseなら付かない
|
