PowerPoint VSTO 달력 추가기능 개발하기 프로젝트

• 매번 매크로 실행을 위해 개발자도구를 켜서 모듈 삽입하고 하는게 영 번거로워서
• 직접 추가기능을 개발해보기로 했다.
• MS Office VSTO 홈페이지를 찾아가면 추가기능 개발과 관련된 훌륭한, 영어문서가 제공된다.
• 자체적으로 기계번역된 한글 문서가 있지만, 차라리 영어로 보는게 더 나을 정도로 처참한 수준이다.
• 본 프로젝트는 1차적으로 해당 영어문서에 대한 한글 번역을 제공하고,
• 나아가서 한글 번역본을 바탕으로 실제 VSTO 추가기능을 개발하는 과정의 일환이다.
• Walkthrough: Automate an application from a custom task pane MS VSTO 링크

프로젝트 개요

이 예제는 사용자 정의 작업창을 통해 파워포인트를 조작하는 방법이다.
사용자 정의 작업창의 달력(MonthCalendar) 날짜를 클릭하면 슬라이드에 해당 날짜를 텍스트 상자로 돌려준다.

다음의 세 단계로 진행된다.
1) 사용자정의 작업창 꾸미기
2) 사용자정의 작업창으로 파워포인트 조작(하는 코드 제작)
3) 파워포인트에서 사용자정의 작업창을 실행(하는 코드 제작)

1) 추가기능 프로젝트 만들기

파워포인트용 VSTO 추가기능 프로젝트를 생성하고,
이름을 MyaddIn으로 변경한다.
아래 링크는 VSTO에서 새로운 프로젝트를 생성하는 방법이다.
VSTO에서 프로젝트 생성(링크)
프로젝트를 생성하면 VSTO가 자동으로 ThisAddIn.cs나 ThisAddIn.vb 코딩 파일을 만들고,
MyAddIn 프로젝트를 솔루션 탐색기에 추가한다.

2) 사용자정의 작업창 꾸미기

사용자정의 작업창의 디자인은 마음대로 바꾸는 것은 어렵지만,
사용자 도구(User Control)의 레이아웃(배치 등)은 마음대로 변경할 수 있다.

a) 프로젝트 메뉴에서 사용자 도구(User Control) 추가 클릭
b) 대화상자가 나타나면, 사용자 도구(User Control)의 이름을 MyUserControl로 변경하고 추가 클릭
c) 디자인 툴에 사용자 도구(User Control)가 생성
d) 툴 박스의 일반 도구(Common Controls) 탭에서, 달력 도구(MonthCalendar Control)를 사용자 도구(User Control)에 끌어다 놓음.

3) 사용자정의 작업창으로 파워포인트 조작하기

이 VSTO 추가기능의 목적은 활성화된 파워포인트의 첫째 슬라이드에 선택한 날짜를 삽입하는 것이다.
이를 위해서 해당 달력 컨트롤의 DateChanged 이벤트를 이용하면 된다.

a) 디자인 창에서 달력 컨트롤을 더블클릭
b) MyUserControls.vb(비주얼 베이직인 경우)가 생성되고, DateChanged 이벤트 사용을 위한 이벤트 핸들러(Event Handler)가 생성됨.
c) 다음의 코드를 MyUserControl.vb 파일의 가장 상단에 작성

Imports Office = Microsoft.Office.Core
Imports PowerPoint = Microsoft.Office.Interop.PowerPoint



d) MyUserControl 클래스에 다음의 코드를 삽입
    (이 코드는 Microsoft.Office.Interop.PowerPoint.Shape 개체를 MyUserControl의 멤버로 선언함.)
    (다음 단계에서, 이 개체를 통해 텍스트상자를 파워포인트에 삽입하게 될 것임.)

Private TextBox As PowerPoint.Shape



e) MonthCalendar1_DateChanged 이벤트 처리기를 다음의 코드로 바꿔서 작성
    (이 코드는 파워포인트 첫 번째 슬라이드에 텍스트상자를 삽입하고 선택된 날짜를 텍스트 상자에 입력하는 코드)

Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged

    Try
        If TextBox IsNot Nothing Then
            TextBox.Delete()
        End If

        Dim Slide As PowerPoint.Slide
        Slide = Globals.ThisAddIn.Application.ActivePresentation.Slides(1)
        TextBox = Slide.Shapes.AddTextbox(Office.MsoTextOrientation.msoTextOrientationHorizontal,50, 100, 600, 50)
        TextBox.TextFrame.TextRange.Text = e.Start.ToLongDateString()
        TextBox.TextFrame.TextRange.Font.Size = 48
        TextBox.TextFrame.TextRange.Font.Color.RGB = System.Drawing.Color.DarkViolet.ToArgb()

    Catch ex As Exception
        System.Windows.Forms.MessageBox.Show(ex.ToString())
    End Try
End Sub

4) 사용자정의 작업창 표시하기

3) 단계까지의 과정이 달력 컨트롤에 대한 기본적인 설정이다.
VSTO 추가기능이 시작될 때 사용자정의 작업창을 표시하려면
UserControl을 VSTO 추가기능의 Startup 이벤트 처리기에 추가해야 한다.

a) 솔루션 탐색기에서 PowerPoint를 확장(왼쪽 작은 화살표 클릭)
b) ThisAddIn.vb를 오른쪽 클릭 해서 코드보기(View Code)
c) 아래 코드를 ThisAddIn 클래스에 삽입
    (이 코드는 MyUserControl과 CustomTaskPane을 ThisAddIn 클래스의 멤버로 선언)

Private myUserControl1 As MyUserControl
Private myCustomTaskPane As Microsoft.Office.Tools.CustomTaskPane



d) ThisAddIn_Startup 이벤트 처리기의 코드를 아래의 코드로 바꿔치기
    (이 코드는 MyUserControl 개체를 CustomTaskPanes 콜렉션에 추가함으로써
    new CustomTaskPane을 생성하는 코드임. 또한 이 코드는 작업창을 나타나게 함.)

Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
    myUserControl1 = New MyUserControl
    myCustomTaskPane = Me.CustomTaskPanes.Add(myUserControl1, "Calendar")
    myCustomTaskPane.Visible = True
End Sub

실행 동영상

• 여기까지 완료된 모듈을 실행해보면
• 영상에서 보는 것과 같이 우측에 'Calendar' 창이 생긴다.
• 달력의 날짜를 클릭하게 되면, 클릭한 날짜가 첫 번재 슬라이드에 텍스트 상자로 입력된다.
• 여기까지가 사용자정의 작업창을 이용한 추가기능 개발의 가장 기본적인 과정이다.
• 물론, 문제가 있다. 해당 달력 컨트롤을 꺼버리면, 즉 (x) 단추를 누르면 다시 실행할 수 있는 방법이 현재 없다.
• 다음 번에 소개할 과정은 사용자정의 작업창을 켜고 끌 수 있는 단추를 리본메뉴로 토글(Toggle)화 하는 것이다.

 Copyright (2018) Ruahneuma. All Rights Reserved.