挿入した画像を等倍ではなく、サイズを指定したい

質問

Sub Macro1()
ActiveSheet.Pictures.Insert( _
"C:\Users\画像.gif").Select

With Selection.ShapeRange
.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
End With
End Sub

これで画像を挿入し、サイズを変更してるのですが
１だと等倍になってしまうようです。

常に１ｃｍとか、サイズを指定して変更するプロパティはありますか？

回答No.2

keithin · ベストアンサー

＞サイズを指定して変更する

widthとheightで指定します。

お礼

ありがとうございました。

回答No.1

dondoko4

フリーで「縮専」というソフトがありますが、

お礼

ありがとうございました。