excel VBA 写真を挿入するサンプル「ActiveSheet.Shapes.AddPicture」

excel2010以降で写真を挿入する場合は「ActiveSheet.Shapes.AddPicture」を使用します。

「ActiveSheet.Pictures.Insert」を使用するとexcelのバージョンによっては参照になり、ファイルをメールで送信したりするとリンク切れになり写真が表示されませんので注意してください。

'写真挿入サンプル

Sub addpicture()

'挿入する写真のファイルパス

Dim filepath As String

filepath = "写真のファイルパスを指定してください。"

'写真を選択セルの位置に挿入

Dim picshp As Shape

Set picshp = ActiveSheet.Shapes.addpicture(filepath, False, True, Selection.Left, Selection.Top, 0, 0)

'写真を縦横比を固定して100%に設定

With picshp

    .LockAspectRatio = True

    .ScaleHeight 1, msoTrue

    .ScaleWidth 1, msoTrue

End With

Set picshp = Nothing

End Sub