shapes.addpicture 插入的图片怎么获取图片的原始宽高

我找到了一个解决办法！

以前在Excel2003中用picture.insert方法写的代码，到了Excel2010中只能插入链接，图片不能随文件一起保存，不得不改为shapes.addpicture, 也同样遇到上面所说的图片宽高比例的问题。经过一悉研究，好像找到了完美的方法，请各位指正。

-----------------------------------------

Shapes.AddPicture 最后两个参数用-1,-1表示按图片原始尺寸插入

ActiveSheet.Shapes(ActiveSheet.Shapes.Count)可以引用刚插入的图片，从而可以读取图片宽和高，以及进行缩放。

例：

假如图片所在路径为 PicPath,要插入单元格为A1,即Cells(1,1),若要插入的图片自动适应A1单元格，并且保持宽高比，可用以下代码：

With Cells(1, 1)

PicL = .Left + .Width * 0.05

PicT = .Top + .Height * 0.05

PicW = .Width * 0.9

PicH = .Height * 0.9

End With

With ActiveSheet.Shapes.AddPicture(PicPath, True, True, 0, 0, -1, -1)

End With

Set shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)

rh = PicH / shp.Height

rw = PicW / shp.Width

r = IIf(rw > rh, rh, rw)

shp.Left = PicL

shp.Top = PicT

shp.ScaleWidth r, msoFalse, msoScaleFromTopLeft

--------------------------------------

如果配上循环语句，可以批量插入图片。