我在窗体上画了个图，然后保存到剪切板，再把它粘贴到EXCEL文档。
是这个样子。

图片太大了，不协调，怎么实现缩放啊？谢谢！

我在粘贴完图片的语句后面加了几句代码：
Selection.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
If Application.Version < 12 Then
    Selection.ShapeRange.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
End If
可是运行出错。


请问高手，哪里有错啊？谢谢！

你应该是没有加引用。
工程-引用：Microsoft Office 11.0 Object Library把它勾选上，如果是office07 或者更高版本，就可能是12.0，14.0

还有你的Selection.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft要改为
XlApp.Selection.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft才可以

谢谢！我在分辨率是1280*1024的时候是可以的，如图：

可是在电脑分辨率是1280*768时，就不行，改宽度也没用，成这样了。

请问应该怎么解决呀？

你试一下把这段代码加进去可不可以：
xlSheet.Shapes(1).LockAspectRatio = msoFalse
xlSheet.Shapes(1).Height = 20
xlSheet.Shapes(1).Width = 20

谢谢！我试试。