오피스 길잡이 사용 예제

Step 1: 질문의 코드 실행해 보기

질문에 나온 코드는 버튼 캡션을 바꾸는 부분과 Assistant.NewBalloon으로 풍선을 만드는 부분으로 이루어져 있습니다. 실행해 보면 오피스 길잡이가 나타나기는 하지만 한 가지 설명밖에 나타나지 않습니다. 이번에는 아래 코드로 만든 버튼을 눌러 보면 두 가지 설명을 골라서 볼 수 있습니다.

Step 2: AssistantSample 프로시저

Sub AssistantSample()
    Dim i As Integer

    With Application.Assistant
       If .On Then
        ' 오피스 길잡이를 사용할 수 있는 환경이라면 아래 구문을 실행합니다.

            i = ChooseItem()
            ' ChooseItem이라는 사용자 정의 함수를 실행한 다음 그 결과값을 넘겨받아 i라는
            ' 변수에 담아둡니다.

                With .NewBalloon
                '  넘겨받은 I 값이 어떤 값이냐에 따라 조건 분기문을 실행합니다.

                    Select Case i
                        Case 1
                            .Heading = "이동평균법"
                            .Text = "이동평균법은 이러이러한 것입니다!"
                            .Show
                            .Parent.Animation = msoAnimationGetAttentionMajor
                        Case 2
                            .Heading = "지수평활법"
                            .Text = "지수평활법은 저러저러한 것입니다!"
                            .Show
                            .Parent.Animation = msoAnimationGetWizardy
                        Case Else
                             ' Doing Nothing
                    End Select
                End With
        Else
        ' 만약 오피스 길잡이를 사용할 수 없는 환경이라면...

            MsgBox "길잡이를 사용할 수 없습니다."
        End If
    End With
End Sub

먼저 Application.Assistant.On으로 오피스 길잡이를 사용할 수 있는 환경인지 확인합니다. 사용할 수 있다면 ChooseItem이라는 사용자 정의 함수를 실행해 사용자가 고른 항목 번호를 받고, Select Case 문으로 항목마다 다른 제목과 설명이 나오도록 분기합니다. 사용할 수 없는 환경이면 메시지 상자로 알립니다.

Step 3: ChooseItem 함수

아래의 사용자 정의 함수는 오피스 길잡이를 사용할 수 있는가 없는가를 파악하는 역할을 담당합니다.

Function ChooseItem() As Integer
    With Application.Assistant
       .Visible = True

       With .NewBalloon
           .Heading = "어떤 항목을 알고 싶으신가요?"
            ' 오피스 길잡이 풍선을 만들고 제목을 설정합니다.

           .Text = "아래 항목 중에서 골라주세요:"
           .Labels(1).Text = "이동평균법"
           .Labels(2).Text = "지수평활법"
           ChooseItem = .Show
       End With
    End With
End Function

풍선에 레이블 두 개(이동평균법, 지수평활법)를 만들고 .Show의 결과, 즉 사용자가 선택한 항목 번호를 함수의 결과값으로 되돌립니다. 이 방식이면 하나의 풍선에서 원하는 설명을 골라 볼 수 있습니다.

아주 간단하지요? 하지만 활용 여하에 따라서 많은 응용이 가능할 것입니다.

오늘은 여기까지…

정리 — 오피스 길잡이 핵심

자주 묻는 질문 (FAQ)

마치며

간단해 보이는 오피스 길잡이도 활용하기에 따라 다양한 응용이 가능했습니다.