붙여 넣기 및 크기 조정 엑셀 VBA

Question

나는 파워 포인트 슬라이드에 이미지를 붙여 넣은 다음 나는 그것을 붙여 넣은 후 크기를 조정하고 싶은

,

나는 즉시 크기를 조정할 수 할 수 있어야하므로 이미지 IDEX을 잘 모릅니다 나던 작업 아래

을 붙여 넣는 afterr, 사람이 나는 또한 시도

Sub PasteOnSlide() 

Dim strPresPath As String 
strPresPath = "c://myfile" 
Set oPPTFile = oPPTApp.Presentations.Open(strPresPath) 

oPPTFile.Slides(4).Shapes.PasteSpecial(ppPasteEnhancedMetafile).select 

With Selection 
    .Height = 270 
    .Width = 680 
    .Left = 20 
    .Top = 120 
    .ZOrder msoSendToBack 
End With 

End Sub 

도움이 될 수 있습니다하십시오

set MyShape = oPPTFile.Slides(4).Shapes.PasteSpecial(ppPasteEnhancedMetafile).select 
With MyShape 
    .Height = 270 
    .Width = 680 
    .Left = 20 
    .Top = 120 
    .ZOrder msoSendToBack 
End With 

End Sub 

Answer 1

너무 가까이

아 ...

피, Select을 useing (그리고 모든 변수를 선언!) 당신은 붙여 클립 보드에 아무런 장애물이 없을 경우 사건을 다루 포함, 오류 처리를 추가해야

Sub PasteOnSlide() 
    Dim strPresPath As String 
    Dim MyShape As Shape 
    Dim oPPTFile As Presentation 
    Dim oPPTApp As Application 

    Set oPPTApp = Application 
    strPresPath = "c://myfile" 
    Set oPPTFile = oPPTApp.Presentations.Open(strPresPath) 

    Set MyShape = oPPTFile.Slides(4).Shapes.PasteSpecial(ppPasteEnhancedMetafile).Item(1) 

    With MyShape 
     .Height = 270 
     .Width = 680 
     .Left = 20 
     .Top = 120 
     .ZOrder msoSendToBack 
    End With 
End Sub 

또는 strPresPath이 기존 프리젠 테이션 파일을 가리 키지 않는 경우.