Excel에서 PowerPoint로 품질 및 투명도 유지 그림 복사

Excel 차트를 복사하여 투명 그림과 같은 PowerPoint 프레젠테이션에 붙여 넣으려면 매크로를 코딩하고 있습니다. 지금까지 간단하게 들리지만, 문제는 그림이 투명하지 않거나 왜곡되어 있다는 것입니다.Excel에서 PowerPoint로 품질 및 투명도 유지 그림 복사

살펴 주시기 바랍니다 보자

이

여기 내 매크로를 실행 한 후 내가 얻을 왜곡 된 버전입니다 :

여기

distorted:

내가 수동으로 붙여 복사/때 내가 무엇을 얻을 (그리고 그것이 내가 어떻게 보이길 원하는지) :

desired:

내 코드 (관련 부분) :

ActiveSheet.ChartObjects("MyChartNameGoesHere").CopyPicture Appearance:=xlScreen, Format:=xlPicture 
Set PPApp = GetObject(, "Powerpoint.Application") 
Set PPPres = PPApp.ActivePresentation 
Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex) 
PPSlide.Shapes.PasteSpecial(ppPasteEnhancedMetafile).Select

내가 xlBitmap에 xlPicture에서 CopyPicture 형식 매개 변수를 변경하지만,이 경우 그림이 투명하지하려고했는데 슬라이드 배경을 오버레이합니다. 그리고 나는 그것이 매끄럽게 보인다고 확신하지 못합니다.

또한 슬라이드의 PasteSpecial 매개 변수를 거의 각각의 목록이 here으로 변경하려고했지만 아직 성공하지 못했습니다.

얼마 전 나는 xl 비트 맵 버전이 정상이며 투명하지 않다고 생각했습니다. 그래서 두 예제를 슬라이드의 가장자리로 옮겨서 볼 수 있습니다. 하지만 확대 한 후에도 왜곡 된 것을 깨달았습니다. 나는 정말로 실수를했는지 또는 실수로 내 코드에서 중요한 것을 떨어 뜨렸는지를 알지 못합니다. 메모리에 의해 이전 버전으로 복원되었지만 실패했습니다.

Excel에서 차트를 복사하여 특수하게 그림으로 PowerPoint에 붙여 넣을 때 모든 것이 정상입니다. PowerPoint 2007에는 매크로 레코더가 없으므로 현재 상황을 볼 수 없습니다.

도와주세요. 어떤 생각이라도 호되게 평가됩니다!

업데이트 "왜곡 된"버전은 왜곡되지 않고 5 배 "무겁게"(프레젠테이션 파일 크기 기준)입니다. 어떤 도움 아직도 많이 감사!

출처

2012-01-11 The Sexiest Man in Jamaica

엑셀 2007이 코드를 사용합니다. 개발자 리본 활성화 - Office 버튼 - Excel 옵션 - 리본에 개발자 탭 표시. – Jesse

아, 미안하지만, 파워 포인트 2007을 의미합니다. 정보를 보내 주셔서 감사합니다. 질문이 수정되었습니다. –

나는 매크로 레코더가 않습니다 내 작품에 차트

For Each Grf In E.ActiveSheet.ChartObjects 
    Grf.Copy 
    Sld.Shapes.Placeholders(Nr).Select msoCTrue 
    P.ActivePresentation.Windows(1).View.PasteSpecial (ppPasteMetafilePicture) 
    Nr = Nr + 1 
Next Grf

출처

2012-03-02 14:16:06

고마워, 나는 조금 후에 그것을 시도 할 것이다. –

Excel에서 PowerPoint로 품질 및 투명도 유지 그림 복사

답변

관련 문제