不知道你们有没有发现插入的图片尺寸跟你想要的尺寸不对,一张A4大小的图片当你插入到Excel里面好像跟本就不是A4大小了,这个问题出在尺寸单位上,Excel里面的尺寸以(磅)为单位。
100(磅)=3.53厘米,这是尺寸的换算。你以为这样在Excel里面打印输出就可以得到相对等的尺寸了吗?
下面这是一段插入图片的代码。
Sub yu()
Dim sr, txt As Shape '定义变量
sr = "H:\小狗.jpg" '给变量赋值,图片路径
Sheet1.Shapes.AddPicture sr, msoTrue, msoTrue, 0, 0, 783, 559.5 '插入图片并设置图片尺寸。
End Sub
这是我想在Excel里面打印出一张A4的图片代码和尺寸
注意:这里主要是图片尺寸的换算