excel-vba
VBA를 통한 PowerPoint 통합
수색…
비고
이 섹션에서는 VBA를 통해 PowerPoint와 상호 작용하는 다양한 방법을 보여줍니다. 슬라이드의 데이터 표시에서 차트 만들기에 이르기까지 PowerPoint는 Excel과 함께 사용할 때 매우 강력한 도구입니다. 따라서이 섹션에서는이 상호 작용을 자동화하기 위해 VBA를 사용할 수있는 다양한 방법을 보여줍니다.
기본 사항 : VBA에서 PowerPoint 시작
변경할 수있는 많은 매개 변수와 원하는 기능에 따라 추가 할 수있는 변형이 있지만이 예제는 PowerPoint를 시작하기위한 기본 프레임 워크를 보여줍니다.
참고 : 이 코드를 사용하려면 PowerPoint 참조가 활성 VBA 프로젝트에 추가되어 있어야합니다. 참조를 사용하는 방법에 대해서는 References Documentation 항목을 참조하십시오.
먼저 응용 프로그램, 프리젠 테이션 및 슬라이드 객체에 대한 변수를 정의합니다. 후기 바인딩을 사용하여이 작업을 수행 할 수 있지만 적용 가능한 경우 초기 바인딩을 사용하는 것이 가장 좋습니다.
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
그런 다음 PowerPoint 응용 프로그램의 새 인스턴스를 열거 나 만듭니다. 여기서 On Error Resume Next 호출은 PowerPoint가 아직 열리지 않은 경우 GetObject 의해 오류가 발생하지 않도록하기 위해 사용됩니다. 자세한 설명은 모범 사례 항목의 오류 처리 예제를 참조하십시오.
'Open PPT if not running, otherwise select active instance
On Error Resume Next
Set PPApp = GetObject(, "PowerPoint.Application")
On Error GoTo ErrHandler
If PPApp Is Nothing Then
'Open PowerPoint
Set PPApp = CreateObject("PowerPoint.Application")
PPApp.Visible = True
End If
응용 프로그램이 시작되면 새 프레젠테이션과 이후에 포함 된 슬라이드가 사용되도록 생성됩니다.
'Generate new Presentation and slide for graphic creation
Set PPPres = PPApp.Presentations.Add
Set PPSlide = PPPres.Slides.Add(1, ppLayoutBlank)
'Here, the slide type is set to the 4:3 shape with slide numbers enabled and the window
'maximized on the screen. These properties can, of course, be altered as needed
PPApp.ActiveWindow.ViewType = ppViewSlide
PPPres.PageSetup.SlideOrientation = msoOrientationHorizontal
PPPres.PageSetup.SlideSize = ppSlideSizeOnScreen
PPPres.SlideMaster.HeadersFooters.SlideNumber.Visible = msoTrue
PPApp.ActiveWindow.WindowState = ppWindowMaximized
이 코드를 완료하면 빈 슬라이드가있는 새 PowerPoint 창이 열립니다. 객체 변수를 사용하여 모양, 텍스트, 그래픽 및 엑셀 범위를 원하는만큼 추가 할 수 있습니다.