'===========================================================
' MyHelp Macro                     By 1997/7/4  Ryn
'===========================================================
'「Ｏｆｆｉｃｅアシスタント」に、独自の台詞を喋らせるモジュールです。
'
Sub MyHelp()
    Dim ingReply As Long
    
    With Assistant
        .Reduced = False
        .Move xLeft:=100, yTop:=100
        .MoveWhenInTheWay = True
        .TipOfDay = True
        .Visible = True
        .Animation = msoAnimationGreeting
    End With
    With Assistant.NewBalloon
        .BalloonType = msoBalloonTypeNumbers
        .Icon = msoIconTip
        .Button = msoButtonSetOkCancel
        .Heading = "簡単なマクロの作成法"
        .Labels(1).Text = "キーボードマクロで記録してみる。"
        .Labels(2).Text = "出来上がったマクロを研究する。
        .Labels(3).Text = "作成したマクロを修正、組み合わせる。"
        ingReply = .Show
    End With
    
    Select Case ingReply
        Case msoBalloonButtonOK
            With Assistant
                .Visible = True
                .Animation = msoAnimationDisappear
            End With
        Case msoBalloonButtonCancel
            With Assistant
                .Visible = True
                .Animation = msoAnimationGetAttentionMajor
            End With
    End Select
End Sub