画像を指定の位置に元の比率で縮小（拡大）挿入する

---

画像を指定の位置に元の比率で縮小（拡大）挿入する

「C:\1.jpg」を画像とリンクさせずにX方向100,Y方向200ポイントの位置に元のサイズの75%で挿入します。

Sub Sample87()
　With ActiveSheet.Shapes.AddPicture("C:\1.jpg", msoFalse, msoTrue, 100, 200, 50, 50)
　　　　.ScaleWidth 0.75, msoTrue
　　　　.ScaleHeight 0.75, msoTrue
End With
End Sub

エクセルＶＢＡテクニック集トップ

---