VBA代码、插入图片、修改尺寸大小

不知道你们有没有发现插入的图片尺寸跟你想要的尺寸不对，一张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的图片代码和尺寸

注意：这里主要是图片尺寸的换算