Sub 画像を挿入して保存する()

    ファイル名 = "C:\xxxxxxxxxxxxxxxxx.jpg"

    Set 画像挿入 = ActiveSheet.Shapes.AddPicture( _
                    Filename:=ファイル名, _
                    LinkToFile:=False, _
                    SaveWithDocument:=True, _
                    Left:=Range("A1").Left, _
                    Top:=Range("A1").Top, _
                    Width:=Range("A1").Width, _
                    Height:=Range("A1").Height)
                    'LinkToFile:=False リンクを貼らない
                    'SaveWithDocument:=True 画像を内部保存する
                    'Width:=-1 オリジナルサイズ
                    'Height:=-1 オリジナルサイズ

End Sub