excel - Excel vbaを貼り付けてサイズを変更する

Question

画像をパワーポイントのスライドに貼り付けて、貼り付けたらサイズを変更したいのですが、

画像IDEXがわからないので、貼り付けた直後にサイズを変更できる必要があります

以下は機能しません。誰か助けてください

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