엑셀 바를 통한 파워 포인트 연결 끊기

VBA 스크립트를 사용하여 Excel을 통해 포함 된 차트로 파워 포인트 프레젠테이션을 업데이트하려고합니다. 이것은 내 코드와 잘 작동합니다. 문제는 차트를 업데이트 한 후에 Excle 워크 시트에 대한 링크를 끊거나 제거하기를 원합니다.엑셀 바를 통한 파워 포인트 연결 끊기

코드 예제에서는 내 코드가 작동하지 않는 줄과 함께 표시됩니다.

모든 제안이나 해결책은 높이 평가 될 것입니다.

Function RefreshPPT() 
Set PPT = CreateObject("PowerPoint.Application") 
PPT.Visible = True 
PPT.Presentations.Open "Name.pptx", Untitled:=msoTrue 
PPT.ActivePresentation.UpdateLinks 
PPT.ActivePresentation.BreakLinks ------ this line doesn´t work 
PPT.ActivePresentation.SaveAs Filename:="Name2.pptx" 
PPT.Quit 
Set PPT = Nothing 
End Function

출처

2012-12-12 Philip

을 입력 않을 때? 이 프로젝트에서 파워 포인트 참조 (Microsoft Powerpoint xx.x Object Library)를 활성화 했습니까? 후자는 때로는 많은 기능이 Office 라이브러리에도 있지만 전부는 아니므로 잊어 버릴 수 있습니다. –

예, 자동 완성되었습니다. 그러나이 줄과 관련된 실행 중에 실패 메시지가 있습니다. Powerpoint 참조도 활성화됩니다. – Philip

질문에 실패 메시지를 게시 할 수도 있습니까? 정확한 문제를 파악하면 커뮤니티가 문제를 해결할 수 있습니다! –

답해 주셔서 감사합니다.

문제를 해결했다고 생각합니다. breakline 명령의 구문이 잘못되었습니다. 나는 슬라이드를 해결했다 직접 모양 :

당신은을 .BreakLinks 명령을 컴파일러 자동 완성

PPT.ActivePresentation.Slides(i).Shapes(s).LinkFormat.BreakLink

출처

2012-12-12 14:07:48 Philip

엑셀 바를 통한 파워 포인트 연결 끊기

답변

관련 문제