怎样得到图片打印时的实际大小（cm）？

Question

现在只能得到图片的像素，怎么得到长宽呢？

Answer 1

MsgBox ScaleX(Picture1.Width, vbTwips, vbCentimeters)
MsgBox ScaleY(Picture1.Height, vbTwips, vbCentimeters)

Answer 2

MsgBox ScaleX(Picture1.Picture.Width, vbTwips, vbCentimeters) 
MsgBox ScaleY(Picture1.Picture.Height, vbTwips, vbCentimeters)这是取得的实际图片的大小~~

Answer 3

因为图片dpi的关系，vb换算得出的结果不正确。
系统默认在在小字体下是96dpi。
如果能得到图片的dpi值，一样给分。