读书人

Excel2007怎么用宏控制粘贴图片的大小

发布时间: 2012-01-06 22:55:18 作者: rapoo

Excel2007如何用宏控制粘贴图片的大小?
Excel2007如何用宏控制粘贴图片的大小?貌似记录的宏中生成不了改变粘贴图片大小的代码呀

[解决办法]
Excel2003使用者路过帮顶
[解决办法]
我也想知道,帮顶
[解决办法]
将图片(objshape)的宽和高变成原来的(xrate,yrate)倍,也可以直接设定宽和高,
根据自己的需要 设定参数
sub setsieze(byref objshape as shape ,byval xrate as double, byval yrate as double)
dim x,y
x = objshape.width * xrate
y = objshape.hength * yrate
objshape.width = x
objshape.hength = y
end sub
[解决办法]
ActiveSheet.Pictures.Insert( "D:\My Documents\My Pictures\样品.jpg ").Select
Selection.ShapeRange.ScaleWidth 0.62, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.62, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 96#
Selection.ShapeRange.IncrementTop 81#

读书人网 >VB

热点推荐