编程论坛 → VB6论坛

picture控件图形粘贴到EXCEL的问题

chen3bing 发布于 2019-05-15 13:50， 1639 次点击

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

只有本站会员才能查看附件，请登录

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

5 回复

chen3bing2019-05-16 08:52

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

只有本站会员才能查看附件，请登录

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

wufuzhang2019-05-16 10:25

回复 2楼 chen3bing

你应该是没有加引用。
工程-引用：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才可以

chen3bing2019-05-16 10:43

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

只有本站会员才能查看附件，请登录

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

只有本站会员才能查看附件，请登录

请问应该怎么解决呀？

wufuzhang2019-05-16 11:08

回复 4楼 chen3bing

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

chen3bing2019-05-16 11:45

谢谢！我试试。