형식으로 Excel로 ppt 복사

나는 파워 포인트에서 엑셀로 복사하고 파워 포인트 포매팅을 유지하려고합니다.형식으로 Excel로 ppt 복사

For x = 1 To pptApp.ActivePresentation.Slides.Count 
    pptApp.ActivePresentation.Slides.Range(Array(x)).Select 
    pptApp.ActivePresentation.Slides.Range(Array(x)).Copy 
    pptApp.Windows(2).Activate   
    pptApp.ActiveWindow.View.Paste 
    pptApp.Windows(2).Activate 
Next x

현재 복사 작업을 위해이 도구를 사용하고 있으며 제대로 작동하지만 서식을 복사하지 않습니다.

어떤 아이디어로 이것을 달성 할 수 있습니까? Sp

출처

2011-09-08 Steven

어디에서 Excel로 복사합니까? 이 코드는 단지 파워 포인트 앱을 참조하는 것처럼 보입니까? 어디서나 Excel에 대한 참조가 표시되지 않습니다. 내가 놓친 게 있니? – PaulStock

하나의 사무실 응용 프로그램에서 다른 응용 프로그램으로 붙여 넣을 때 PaulStock의 유효한 지점 위에 버퍼는 가져 오기 프로그램에 의해 다양한 방법으로 해석 될 수 있습니다. 귀하의 경우에는 Excel에서 HTML, 텍스트, BMP 또는 기타가 아닌 슬라이드 개체로 PPT 슬라이드를 가져 오게 할 수 있습니다. 대화 형 모드에서는 PasteSpecial 명령을 사용하고, VBA는 것 엑셀에 을 aequivalent

[SheetObject].PasteSpecial Format:="Microsoft PowerPoint Slide Object", _ Link :=False, _ DisplayAsIcon:=False

빠른 & 더러운 테스트 :에 의해 [SheetObject] 교체, 시트 onDoubleClick 트리거에서이 코드를 넣어 "Me", PPT로 이동, 슬라이드 스트립에서 슬라이드 복사 (!!!), Excel로 돌아가서 셀을 두 번 클릭하십시오.

(여기서 Office 2003 SP3)

출처

2011-09-09 06:54:24 MikeD

형식으로 Excel로 ppt 복사

답변

관련 문제