お勉強コミュの任意のセルに画像を挿入する

Sub Sample_Prg()

Dim iPicture As String
Dim iSheet As String
Dim iCell As String

'***************** サンプル変数値の設定 ****************
iPicture = "C:\Documents and Settings\Miyashita．Co，\デスクトップ\分析\syuki.jpg" '挿入する画像ﾌｧｲﾙ ⇒ 注１
iSheet = "Sheet1" '挿入先のシート名称
iCell = "C4:C5" '挿入先のセルの範囲

'***************** 画像ファイルの挿入 ******************
Call MovPicture(iPicture, iSheet, iCell)

End Sub

Sub MovPicture(iPicture As String, iSheet As String, _
iCell As String)
'
Dim MovCell As Range
Dim MovLeft As Double
Dim MovTop As Double
Dim MovHeight As Double
Dim MovWidth As Double
Set MovCell = Range(iCell)

'********** 目的のシート(セル範囲)へ画像を貼付け ********
With MovCell
MovLeft = .Left
MovTop = .Top
MovHeight = .Cells(.Count).Offset(1).Top - .Top
MovWidth = .Cells(.Count).Offset(, 1).Left - .Left
End With

Sheets(iSheet).Pictures.Insert (iPicture) '画像ファイルの挿入
With Sheets(iSheet).Pictures(Sheets(iSheet).Pictures. _
Count).ShapeRange
.LockAspectRatio = msoFalse
.Parent.Visible = msoTrue
.Left = MovLeft
.Top = MovTop
.Height = MovHeight
.Width = MovWidth
End With