excel中，利用宏vbscript 插入图片 自动调整间距适应图片大小

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub insertImg() ' ' 宏3 宏 '   '     Dim i As Integer     For i = 15 To 87         Rows(i & ":" & i).RowHeight = 159.75         imgUrl = Range("D" & i).Value           Range("E" & i).Select         ActiveSheet.Pictures.Insert( _             imgUrl _             ).Select         ActiveWindow.SmallScroll Down:=1         Selection.ShapeRange.ScaleWidth 0.7563636745, msoFalse, msoScaleFromTopLeft         Selection.ShapeRange.ScaleHeight 0.7563636745, msoFalse, msoScaleFromTopLeft           Next                                        End Sub