'=========================================================================================
' 346 ラベルのフォントサイズ・スタイル・線を設定する
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードを含んでいます。（概ね下半分）
' ★★★の行またはサブプロシージャーが、タイトル機能に関係するコードです。（概ね上半分）
' UserForm1にもコードがあり、標準モジュールのコードと連係して動作します


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Public サイズ As Currency                       '★★★
Public 太字 As Boolean                          '★★★
Public 斜体 As Boolean                          '★★★
Public 下線 As Boolean                          '★★★
Dim タイトル As String
Dim スタイル As Long
Dim メッセージ As String
Dim 応答 As Variant


'=========================================================================================
Private Sub ユーザーフォームを表示する()        '★★★
    UserForm1.Show
End Sub
'=========================================================================================


'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    UserForm1.Show
    Exit Sub
'    ラベルのフォントサイズを20ポイントにするか尋ねる
    If 応答 = vbYes Then
        サイズ = 20                             '★★★
    Else
        サイズ = 11                             '★★★
    End If
'
    ラベルのフォントを太字にするか尋ねる
    If 応答 = vbYes Then
        太字 = True                             '★★★
    Else
        太字 = False                            '★★★
    End If
'
    ラベルのフォントを斜体にするか尋ねる
    If 応答 = vbYes Then
        斜体 = True                             '★★★
    Else
        斜体 = False                            '★★★
    End If
'
    ラベルのフォントに下線を付けるか尋ねる
    If 応答 = vbYes Then
        下線 = True                             '★★★
    Else
        下線 = False                            '★★★
    End If
    ユーザーフォームを表示する                    '★★★
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する()
    Worksheets("Title").Select
    Range("P17").Select                        'カーソルを定位置へ移動する
    タイトル = "500連発 第2弾 サンプルマクロ"
    スタイル = 32 + 4                           'vbQuestion + vbYesNo
    メッセージ = "ラベルのフォントサイズを 20ポイントにしますか。" & Chr(13) & Chr(13) & _
                "　　　（ 1ポイント＝ 1/72インチ ）"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Private Sub ラベルのフォントを太字にするか尋ねる()
    メッセージ = "ラベルのフォントを 太字 にしますか"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Private Sub ラベルのフォントを斜体にするか尋ねる()
    メッセージ = "ラベルのフォントを 斜体 にしますか"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Private Sub ラベルのフォントに下線を付けるか尋ねる()
    メッセージ = "ラベルのフォントに 下線 を付けますか"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------



'=========================================================================================
' ◆UserForm1のコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim サイズ As Currency                          '★★★
Dim 太字 As Boolean                             '★★★
Dim 斜体 As Boolean                             '★★★
Dim 下線 As Boolean                             '★★★
Dim 取消線 As Boolean                           '★★★
Dim 太さ As Boolean                             '★★★


'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
    Label1.AutoSize = True                      'フォントの大きさに合わせて自動的に調整する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub ToggleButton1_Click()
    If サイズ = 20 Then
        サイズ = 11                             '★★★ 11ポイント
    Else
        サイズ = 20                             '★★★ 20ポイント
    End If
    Label1.Font.Size = サイズ                   '★★★ フォントサイズを設定する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub OptionButton2_Click()
    If 太字 = True Then
        太字 = False                            '★★★ 太字にしない
    Else
        太字 = True                             '★★★ 太字にする
    End If
    Label1.Font.Bold = 太字                     '★★★ 太字かどうかを設定する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub OptionButton3_Click()
    If 斜体 = True Then
        斜体 = False                             '★★★ 斜体にしない
    Else
        斜体 = True                             '★★★ 斜体にする
    End If
    Label1.Font.Italic = 斜体                   '★★★ 斜体かどうかを設定する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub OptionButton4_Click()
    If 下線 = True Then
        下線 = False                             '★★★ 下線に付けない
    Else
        下線 = True                             '★★★ 下線を付ける
    End If
    Label1.Font.Underline = 下線                '★★★ 下線を付けるか設定する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub OptionButton5_Click()
    If 取消線 = True Then
        取消線 = False                            '★★★ 取消線を付けない
    Else
        取消線 = True                             '★★★ 取消線を付ける
    End If
    Label1.Font.Strikethrough = 取消線            '★★★ 取消線を付けるか設定する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
    Unload Me
End Sub
'=========================================================================================