求助：excel中 怎么通过VBA 使某一sheet中的图片设定为固定宽度？
在一个excel 某一个sheet中，拷贝过来的图片 想要打印，但是超出了范围，怎么能过vba 达到设定固定宽度的图片，然后打印，查了一些代码，但是不太懂
[解决办法]
1）得到当前图片的宽度 a
2）算出比率b， a/固定宽度 或者固定宽度/a
3）调整图片大小
ShapeRange.ScaleWidth b, msoFalse, msoScaleFromTopLeft
ShapeRange.ScaleHeight b, msoFalse, msoScaleFromTopLeft
[解决办法]
有好几张大小不同的 图片 ，要一个个算么？ 如果是固定宽度是的
选中图片的代码：
选中第一张图片
ActiveSheet.shapes(1).select
选中名字"Picture 1"的图片
ActiveSheet.shapes("Picture 1").select
