VBAで同じディレクトリ内にある画像を取り込むサンプルコード

Option Explicit

Sub getPicture()
    
    '画像のパス
    Dim thisBookPath As String
    thisBookPath = ThisWorkbook.Path
    
    With ThisWorkbook.Sheets("Sheet1").Pictures.Insert(thisBookPath + "\2012-08-09 15.34.18.jpg")
    
        '位置
        .Top = Range("B3").Top
        .Left = Range("B3").Left
    
        '縦と横の比率を保持しない
        ThisWorkbook.Sheets("Sheet1").Shapes(.Name).LockAspectRatio = msoFalse
        
        'サイズ
        '縦横5マス
        .Width = Range("B3:F3").Width
        .Height = Range("B3:B12").Height
    
    End With
    
End Sub