Re:엑셀2013에서 파워포인트2013 파일을 실행 시킬수 있는지요?

[윤슬]

안녕하세요?

첨부된 파일을 같은 폴더에 두고 엑셀자료를 실행해 보세요.

참고로 엑셀 2016 버젼으로 코딩한 자료입니다.

혹시 오류가 생긴다면 vbe의 도구>참조>Microsoft PowerPoint 12.0 Object Library를 참조하고 실행해 보세요.

Option Explicit

Sub test()
Dim PT_AP As PowerPoint.Application
Dim PT As Presentation
Dim PT_Path As String
Dim PT_N As String

Set PT_AP = CreateObject("PowerPoint.Application")

PT_Path = ThisWorkbook.Path & Application.PathSeparator
PT_N = Sheet1.Range("e4").Value & ".pptx"

If MsgBox(PT_N & "파일을 슬라이스쇼를 실행하시겠습니까", vbYesNo) = vbYes Then
    Set PT = PT_AP.Presentations.Open(PT_Path & PT_N)
    PT.SlideShowSettings.Run
Else
    Set PT = PT_AP.Presentations.Open(PT_Path & PT_N)
End If

PT_AP.Visible = True

Set PT_AP = Nothing
Set PT = Nothing
End Sub

자세한 내용은 첨부파일을 참고로...

그럼 잘 해결되시길...   ^^*

========================================================================================

첨부파일

180402_파포_실행하기.xlsm

A12345678-홍길동.pptx

========================================================================================

[타카푸나]

다른 방법으로는 시트에 PPT파일 경로를 복사하면 (탐색기-경로복사)
하이퍼링크가 엑셀 셀에 자동적으로 생성 --> 클릭하면 PPT실행