マクロで画像を挿入する方法

sheet = Sheets("シート名")

With sheet.Pictures.Insert(FileName:=”ファイルパス”)
   .Top = sheet.Range("対象のセル番地").Top
   .Left = sheet.Range("対象のセル番地").Left
   .Height = sheet.Range("対象のセル番地").Height
   .Width = sheet.Range("対象のセル番地").Width
End With

指定したシートの指定したセルに画像を挿入するサンプル。（Excel2007）

アス比維持をしたい場合はWithの最初で

.ShapeRange.LockAspectRatio = True

を指定して、画像自体の縦横比から、高さ幅のどちらでリサイズするかを決めると良い。

ちなみに、位置調整などを行う場合、ウインドウのZoomが100でないと微妙にずれるっぽいので、以下のようにZoomを100にしておくひつようがある？

sheet.Select
ActiveWindow.Zoom = 100

Excel2007以外の環境では検証していないので他バージョンでは正常に動作しない恐れあり。