HOWTO: Visual Basic .NET에서 자동화를 사용하여 PowerPoint 프레젠테이션을 만들고 표시하기

기술 자료 번역 기술 자료 번역
기술 자료: 303717 - 이 문서가 적용되는 제품 보기.
이 문서는 이전에 다음 ID로 출판되었음: KR303717
이 문서의 Microsoft Visual C# .NET 버전에 대한 내용은 303718을 참조하십시오.
이 문서의 Microsoft Visual C++ .NET 버전에 대한 내용은 308336을 참조하십시오.
모두 확대 | 모두 축소

요약

이 문서에서는 Visual Basic .NET을 사용하여 PowerPoint에서 프레젠테이션을 만들고 표시하는 작업을 자동화하는 방법을 보여줍니다.

추가 정보

Microsoft PowerPoint의 자동화 클라이언트 만들기

  1. Microsoft Visual Studio .NET을 시작합니다. 파일 메뉴에서 새로 만들기를 누른 다음 프로젝트를 누릅니다. Visual Basic 프로젝트 형식에서 Windows 응용 프로그램을 선택합니다. 기본적으로 Form1이 생성됩니다.
  2. Microsoft PowerPoint Object LibraryMicrosoft Graph Object Library에 대한 참조를 추가합니다. 이렇게 하려면 다음 단계를 수행합니다.
    1. 프로젝트 메뉴에서 참조 추가를 누릅니다.
    2. COM 탭에서 Microsoft PowerPoint Object Library를 찾아 선택을 누릅니다. 또한 Microsoft Graph Object Library도 찾아 선택을 누릅니다.

      참고: PowerPoint 및 Graph 개체 라이브러리에는 버전 번호가 포함되어 있는데, PowerPoint 2000과 Graph 2000의 버전은 9.0이고 PowerPoint 2002와 Graph 2002의 버전은 10.0입니다.
    3. 참조 추가 대화 상자에서 확인을 눌러 선택 내용을 적용합니다. 선택한 라이브러리에 대해 래퍼를 만들 것인지 묻는 메시지가 나타나면 를 누릅니다.
  3. 보기 메뉴에서 도구 상자를 선택하여 도구 상자를 표시하고 Form1에 Button을 추가합니다.
  4. Button1을 두 번 누릅니다. 해당 폼에 대한 코드 창이 나타납니다.
  5. 코드 창에서 다음 코드를
        Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
    
        End Sub
    아래의 코드로 대체합니다.
        Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
    
            Const sTemplate = "C:\Program Files\Microsoft Office\Templates\Presentation Designs\Blends.pot"
            Const sPic = "C:\WINNT\Soap Bubbles.bmp"
    
            Dim oApp As PowerPoint.Application
            Dim oPres As PowerPoint.Presentation
            Dim oSlide As PowerPoint.Slide
            Dim bAssistantOn As Boolean
    
            'Start Powerpoint and make its window visible but minimized.
            oApp = New PowerPoint.Application()
            oApp.Visible = True
            oApp.WindowState = PowerPoint.PpWindowState.ppWindowMinimized
    
            'Create a new presentation based on the specified template.
            oPres = oApp.Presentations.Open(sTemplate, , , True)
    
            'Build Slide #1:
            'Add text to the slide, change the font and insert/position a 
            'picture on the first slide.
            oSlide = oPres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)
            With oSlide.Shapes.Item(1).TextFrame.TextRange
                .Text = "My Sample Presentation"
                .Font.Name = "Comic Sans MS"
                .Font.Size = 48
            End With
            oSlide.Shapes.AddPicture(sPic, False, True, 150, 150, 500, 350)
            oSlide = Nothing
    
            'Build Slide #2:
            'Add text to the slide title, format the text. Also add a chart to the
            'slide and change the chart type to a 3D pie chart.
            oSlide = oPres.Slides.Add(2, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)
            With oSlide.Shapes.Item(1).TextFrame.TextRange
                .Text = "My Chart"
                .Font.Name = "Comic Sans MS"
                .Font.Size = 48
            End With
            Dim oChart As Graph.Chart
            oChart = oSlide.Shapes.AddOLEObject(150, 150, 480, 320, _
                        "MSGraph.Chart").OLEFormat.Object
            oChart.ChartType = Graph.XlChartType.xl3DPie
            oChart = Nothing
            oSlide = Nothing
    
            'Build Slide #3:
            'Add a text effect to the slide and apply shadows to the text effect.
            oSlide = oPres.Slides.Add(3, PowerPoint.PpSlideLayout.ppLayoutBlank)
            oSlide.FollowMasterBackground = False
            Dim oShape As PowerPoint.Shape
            oShape = oSlide.Shapes.AddTextEffect(Office.MsoPresetTextEffect.msoTextEffect27, _
                "The End", "Impact", 96, False, False, 230, 200)
            oShape.Shadow.ForeColor.SchemeColor = PowerPoint.PpColorSchemeIndex.ppForeground
            oShape.Shadow.Visible = True
            oShape.Shadow.OffsetX = 3
            oShape.Shadow.OffsetY = 3
            oShape = Nothing
            oSlide = Nothing
    
            'Modify the slide show transition settings for all 3 slides in
            'the presentation.
            Dim SlideIdx(3) As Integer
            SlideIdx(0) = 1
            SlideIdx(1) = 2
            SlideIdx(2) = 3
            With oPres.Slides.Range(SlideIdx).SlideShowTransition
                .AdvanceOnTime = True
                .AdvanceTime = 3
                .EntryEffect = PowerPoint.PpEntryEffect.ppEffectBoxOut
            End With
            Dim oSettings As PowerPoint.SlideShowSettings
            oSettings = oPres.SlideShowSettings
            oSettings.StartingSlide = 1
            oSettings.EndingSlide = 3
    
            'Prevent Office Assistant from displaying alert messages.
            bAssistantOn = oApp.Assistant.On
            oApp.Assistant.On = False
    
            'Run the slide show and wait for the slide show to end.
            oSettings.Run()
            Do While oApp.SlideShowWindows.Count >= 1
                System.Windows.Forms.Application.DoEvents()
            Loop
            oSettings = Nothing
    
            'Reenable Office Assisant, if it was on.
            If bAssistantOn Then
                oApp.Assistant.On = True
                oApp.Assistant.Visible = False
            End If
    
            'Close the presentation without saving changes and quit PowerPoint.
            oPres.Saved = True
            oPres.Close()
            oPres = Nothing
            oApp.Quit()
            oApp = Nothing
            GC.Collect()
        End Sub
    참고: 이 코드에서 sTemplate 상수와 sPic 상수는 각각 PowerPoint 서식 파일과 그림의 전체 경로와 파일 이름을 나타냅니다. 필요한 경우 이러한 경로를 수정하여 해당 시스템에 설치되어 있는 서식 파일이나 그림을 사용합니다.

  6. 아래의 코드로 대체합니다. PowerPoint 2002 개체 라이브러리를 참조하는 경우에는 코드 창의 맨 위에 다음 행을 추가합니다.
    Imports Office=Microsoft.Office.Core 'Needed for PowerPoint 2002 but not PowerPoint 2000
  7. 아래의 코드로 대체합니다. F5 키를 눌러 프로그램을 빌드하고 실행합니다.
  8. 아래의 코드로 대체합니다. 폼에서 Button1을 눌러 PowerPoint 프레젠테이션을 만들고 표시합니다.

참조

자세한 내용은 다음 Microsoft Developer Network(MSDN) 웹 사이트를 참조하십시오.
Visual Studio를 사용하여 Microsoft Office 개발하기
http://msdn2.microsoft.com/en-us/library/aa188489(office.10).aspx
PowerPoint 자동화에 대한 자세한 내용은 Microsoft 기술 자료의 다음 문서를 참조하십시오.
180616 HOWTO: Use MFC to Create and Show a PowerPoint Presentation
222929 HOWTO: Automate PowerPoint Using Visual Basic

속성

기술 자료: 303717 - 마지막 검토: 2007년 1월 17일 수요일 - 수정: 3.1
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft PowerPoint 2000 Standard Edition
  • Microsoft PowerPoint 2002 Standard Edition
키워드:?
kbhowto kbautomation kbgrpdso KB303717

피드백 보내기

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com