如何用vba获取图片的原始尺寸?

在excel、word、ppt等软件中插入图片后,都可以从图片的大小和位置属性中查看到图片的原图尺寸,如下图所示:

其中数字1处显示的是图片的原始尺寸,数字2处显示的是图片的现在尺寸,数字3处显示的是图片的缩放比例。

在vba中,图片对象Shape的Height属性和Width属性表示的是数字2处的图片的现在的尺寸。

如果要获取图片的原始尺寸,可以利用ScaleWidth方法和ScaleHeight方法。

这两个方法分别可以将图片的宽度和高度等比例缩放,还可以选择是基于现在的尺寸还是图片的原始尺寸缩放。

代码如下:





       

发表评论