Sample Macro  コントロール・ラベル Previous Next

1-1) ラベルの色を変える このページのトップへ もくじへ 使用可能なExcelのバージョン
'=================================================================================
 ◆ユーザーフォームのコード◆                  '【初期設定で変える場合】
'---------------------------------------------------------------------------------
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) ラベルのフォントサイズ変更 このページのトップへ もくじへ 使用可能なExcelのバージョン
'=================================================================================
 ◆ユーザーフォームのコード◆
'---------------------------------------------------------------------------------
Private Sub UserForm_Initialize()               '※1
    Label1.Font.Size = 20                       '※2 フォントサイズを変える
End Sub
'=================================================================================
<コメント>
※1 Initializeイベントは、ユーザーフォームが開かれたときに発生する
※2 Sizeプロパティの値を設定してサイズを変える


1-3) ラベルのフォントスタイル変更 このページのトップへ もくじへ 使用可能なExcelのバージョン
'=================================================================================
 ◆ユーザーフォームのコード◆
'---------------------------------------------------------------------------------
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) ラベルのフォントに線を付ける このページのトップへ もくじへ 使用可能なExcelのバージョン
'=================================================================================
 ◆ユーザーフォームのコード◆
'---------------------------------------------------------------------------------
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なら付かない



1-5) ラベルの文字を改行する このページのトップへ もくじへ 使用可能なExcelのバージョン
'=================================================================================
 ◆ユーザーフォームのコード◆
'---------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
    Label1.Caption = "1行目" & vbCr & "2行目"
End Sub
'=================================================================================

Excel VBA Macro