【Excel VBA】ウェブ上の画像をシートに貼り付ける方法

Excelのシートに画像を貼り付けるのは、手作業だけではなく、VBAからも画像貼り付けすることができます。

この記事では、ウェブ上の画像を Excelシートに貼り付けるVBAコードを紹介します。

ウェブ上の画像をExcelシートに貼り付ける関数

シートに画像を貼り付けるには、ActiveSheet.Pictures.Insert を使用します。以下の関数は、URLと画像の幅と高さを引数にとってアクティブシートのカレントセルに貼り付けます。

Public Sub AddPictureFromURL(url As String, wd As Integer, he As Integer)

    With ActiveSheet.Pictures.Insert( _
        url _
        )

        With .ShapeRange
            .LockAspectRatio = msoTrue
            .Width = wd
            .Height = he
        End With

        .Select

    End With

End Sub

実際に画像を貼り付けてみる

今回は、以下のラップトップの画像を貼り付けてみます。

引数は以下のようにセットします。

• url : https://emo.usefuledge.com/icons/emoji/Laptop/Color/laptop_color.svg
• wd : 75
• he : 100

Call AddPictureFromURL("https://emo.usefuledge.com/icons/emoji/Laptop/Color/laptop_color.svg", 75, 100)

実行例

以下のように、PCの画像が表示されれば成功です。

宣伝：マウス嫌いなあなたへ〜Excelをコマンド操作しませんか

私はキーボードから手を離してマウス操作するのがとっても嫌いな人間です。キーボード大好きです。

ですので、コマンドでExcelを操作するVBAアドインを開発しました。

無料で使用できますしソースコードもVBEから見れますので、ぜひ使ってみてください。

https://usefuledge.com/proboarderexcel.html