画像を挿入する_リンクのみ取込or画像ごと取込

トップページ（目次）

082.画像を挿入する_リンクのみ取込or画像ごと取込

＜実行前後＞

→

Sub 画像を挿入する_リンクのみ取込or画像ごと取込()
    
    画像パス = ThisWorkbook.Path & "\サンプル画像.jpg"
    
    Set 挿入画像 = ActiveSheet.Shapes.AddPicture( _
                   Filename:=画像パス, _
                   LinkToFile:=False, _
                   SaveWithDocument:=True, _
                   Left:=Range("A2").Left, _
                   Top:=Range("A2").Top, _
                   Width:=-1, _
                   Height:=-1)
                   
    挿入画像.Height = Range("A2:B4").Height '高さを指定
    
    挿入画像.Name = "付けたい名前" '名前を付ける
    
End Sub

LinkToFile:=False,SaveWithDocument:=True → 画像ごと取込 → bmpの場合は重いので要注意 LinkToFile:=True,SaveWithDocument:=False → リンクのみ取込 → 画像ファイルを動かせないので注意 Left:=Top:=でセル位置を指定し、-1はオリジナルサイズ