图片 Copy到PPt的指定页，能指定像素比如：800 * 600？
myPpt.ActivePresentation.Slides(Range("G" & i).Value).Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile

With myPpt.ActivePresentation.Slides(Range("G" & i).Value).Shapes(Val(ss(4)))
.Top = ss(0)
.Left = ss(1)
.ScaleHeight Val(ss(2)), msoTrue, msoScaleFromTopLeft
.ScaleWidth Val(ss(3)), msoTrue, msoScaleFromTopLeft
End With

想要指定像素比如：800 * 600，怎么设置？


[解决办法]
先改好再copy不行吗？