画像ファイルを挿入する｜Excel VBA

ツイート

既存の画像ファイルから図を作成します。

構文  Object.AddPicture(FileName, LinkToFile, SaveWithDocument, Left,
			Top, Width, Height)

■AddPictureメソッドで画像を貼りつける

Sub AddPictureSampLinkPaste()
    Dim myFileName As String
    Dim myShape As Shape
    
    myFileName = ActiveWorkbook.Path & "\mogtan.gif"
    
    '--(1) 選択位置に画像ファイルを挿入し、変数myShapeに格納
    Set myShape = ActiveSheet.Shapes.AddPicture( _
          Filename:=myFileName, _
          LinkToFile:=True, _
          SaveWithDocument:=False, _
          Left:=Selection.Left, _
          Top:=Selection.Top, _
          Width:=0, _
          Height:=0)
          
    '--(2) 挿入した画像に対して元画像と同じ高さ・幅にする
    With myShape
        .ScaleHeight 1, msoTrue
        .ScaleWidth 1, msoTrue
    End With
End Sub

■Pictures.Insertメソッドで画像を貼りつける
Excel97以降は隠しオブジェクトとなっているPictureオブジェクトのコレクションに対してInsertメソッドを使用すれば、サンプル2のような記述で同様のことができます。

●サンプル2●

Sub AddPictureSamp2()
    Dim myFileName As String
    
    myFileName = ActiveWorkbook.Path & "\mogtan.gif"
    
    '--(1) 選択位置に画像を挿入
    ActiveSheet.Pictures.Insert Filename:=myFileName
End Sub

●注意1●

Excel 2007では画像の挿入位置が他のバージョンと異なります。
Excel 2007で選択セルを左上端として画像を挿入するには、サンプル2の(1)のコードを下記のようにしてください。

With ActiveSheet.Pictures.Insert(Filename:=myFileName)
        .Top = ActiveCell.Top
        .Left = ActiveCell.Left
End With

●注意2●

Pictures.Insertメソッドを使った方法では、画像のリンク情報だけを保存する、または画像と一緒に保存するといった指定はできません。
さらに、Excel 2007までは画像情報と一緒に保存されていたのに対し、Excel 2010以降ではリンク貼り付けに仕様が変わるなど、Excelのバージョンによって画像の保存方法が異なります。
画像の保存場所やファイルサイズなど、ケースに応じて使い分けてください。
サンプル2の(1)のコードを下記のようにすると、Excel 2010以降で画像のリンク切れを回避することができます。

With ActiveSheet.Pictures.Insert(Filename:=myFileName)
    .CopyPicture    'クリップボードにコピー
    .Delete         '画像をいったん削除
End With
ActiveSheet.Paste   '画像を貼り付け

●ポイント●

Microsoft Officeで用意されているクリップアートも、1つ1つは独立した画像ファイル(WMFファイル)です。クリップアートを文書に挿入する際にも、これらのメソッドを用意します。