'=========================================================================================
' 198 バルーンのボタンの種類と定数の一覧表を作る
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードを含んでいます。（概ね下半分）
' ★★★の行またはサブプロシージャーが、タイトル機能に関係するコードです。（概ね上半分）


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim バルーン As Object                          '★★★
Dim ボタンの定数 As Long                        '★★★
Dim ボタンの種類 As String
Dim 説明文 As String
Dim 行 As Integer
Dim 列 As Integer
Dim タイトル As String
Dim スタイル As Long
Dim メッセージ As String
Dim 応答 As Variant
Dim 進み方 As Variant


'=========================================================================================
Private Sub バルーンのボタンの種類と定数の一覧表を作る() '★★★
    If 進み方 = vbYes Then
        説明文 = "このボタンの定数は" & Chr(13) & _
                ボタンの種類 & " ： " & ボタンの定数 & Chr(13) & "です"
        Set バルーン = Assistant.NewBalloon
        With バルーン
            .Button = ボタンの定数
            .Text = 説明文
            .Show
        End With
    End If
    定数の一覧表を作成する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub 定数の一覧表を作成する()
    If ボタンの定数 < 8 Then
        行 = ボタンの定数 + 7
        列 = 4
    Else
        行 = ボタンの定数 - 1
        列 = 8
    End If
    Worksheets("Title").Cells(行, 列) = ボタンの定数
    Worksheets("Title").Cells(行, 列 + 1) = ボタンの種類
End Sub
'=========================================================================================



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    おためしメッセージを表示する
'
    ボタンの定数 = msoButtonSetOK                 '★★★
    ボタンの種類 = "msoButtonSetOK"               '★★★
    バルーンのボタンの種類と定数の一覧表を作る      '★★★
'
    ボタンの定数 = msoButtonSetCancel
    ボタンの種類 = "msoButtonSetCancel"
    バルーンのボタンの種類と定数の一覧表を作る
'
    ボタンの定数 = msoButtonSetOkCancel
    ボタンの種類 = "msoButtonSetOkCancel "
    バルーンのボタンの種類と定数の一覧表を作る
'
    ボタンの定数 = msoButtonSetYesNo
    ボタンの種類 = "msoButtonSetYesNo"
    バルーンのボタンの種類と定数の一覧表を作る
'
    ボタンの定数 = msoButtonSetYesNoCancel
    ボタンの種類 = "msoButtonSetYesNoCancel"
    バルーンのボタンの種類と定数の一覧表を作る
'
    ボタンの定数 = msoButtonSetBackClose
    ボタンの種類 = "msoButtonSetBackClose"
    バルーンのボタンの種類と定数の一覧表を作る
'
    ボタンの定数 = msoButtonSetNextClose
    ボタンの種類 = "msoButtonSetNextClose"
    バルーンのボタンの種類と定数の一覧表を作る
'
    ボタンの定数 = msoButtonSetBackNextClose
    ボタンの種類 = "msoButtonSetBackNextClose"
    バルーンのボタンの種類と定数の一覧表を作る
'
    ボタンの定数 = msoButtonSetRetryCancel
    ボタンの種類 = "msoButtonSetRetryCancel"
    バルーンのボタンの種類と定数の一覧表を作る
'
    ボタンの定数 = msoButtonSetAbortRetryIgnore
    ボタンの種類 = "msoButtonSetAbortRetryIgnore"
    バルーンのボタンの種類と定数の一覧表を作る
'
    ボタンの定数 = msoButtonSetSearchClose
    ボタンの種類 = "msoButtonSetSearchClose"
    バルーンのボタンの種類と定数の一覧表を作る
'
    ボタンの定数 = msoButtonSetBackNextSnooze
    ボタンの種類 = "msoButtonSetBackNextSnooze"
    バルーンのボタンの種類と定数の一覧表を作る
'
    ボタンの定数 = msoButtonSetTipsOptionsClose
    ボタンの種類 = "msoButtonSetTipsOptionsClose"
    バルーンのボタンの種類と定数の一覧表を作る
'
    ボタンの定数 = msoButtonSetYesAllNoCancel
    ボタンの種類 = "msoButtonSetYesAllNoCancel"
    バルーンのボタンの種類と定数の一覧表を作る
'
    ボタンの定数 = msoButtonSetNone
    ボタンの種類 = "msoButtonSetNone"
    バルーンのボタンの種類と定数の一覧表を作る
'
    Assistant.Visible = False
    Range("H14").Value = "-"                    '15番はない
    Range("P17").Select                         'カーソルを定位置へ移動する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する()
    Worksheets("Title").Select
    Range("D7:K14").ClearContents
    Range("P17").Select                         'カーソルを定位置へ移動する
    Assistant.Visible = False                   'アシスタントを隠す
    タイトル = "500連発 第2弾 サンプルマクロ"
    スタイル = 36                               'vbQuestion & vbYesNo
    メッセージ = "バルーンのボタンの種類と、定数の一覧表を作ります。" & Chr(13) _
                & Chr(13) & "サンプルを見ながら、順に進みますか？" & Chr(13) _
                & Chr(13) & "（ ［いいえ］をクリックすると一気に作ります ）"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
    進み方 = 応答
    If 応答 = vbYes Then
        スタイル = 64                               'vbInformation
        メッセージ = "この後で表示されるバルーンのボタンは、" & Chr(13) _
                    & Chr(13) & "どれをクリックしても、かまいません"
        応答 = MsgBox(メッセージ, スタイル, タイトル)
    End If
    Assistant.Move xLeft:=260, yTop:=140        'アシスタントを移動する
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------