VBA コーディングメモ

Sub ボタン1_Click()

' ファイル選択ダイアログで画像ファイルを選択する
vntFileName = _
Application.GetOpenFilename( _
Title:="画像を選択", MultiSelect:=False _
)

' ファイルパスがあれば
If Len(vntFileName) > 0 Then

'MsgBox vntFileName

Set targetCell = Range("B13:E25")
targetCell.Select

' シェイプを作成し,画像を挿入
Set myShape = ActiveSheet.Shapes.AddPicture( _
Filename:=vntFileName, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=targetCell.Left, _
Top:=targetCell.Top, _
Width:=targetCell.Width, _
Height:=targetCell.Height _
)

End If
End Sub