複数のワークシートに同じ画像を迅速に挿入するにはどうすればよいですか？

通常、Excel の挿入機能を使用してワークシートに画像を簡単に挿入できますが、ワークブック内のすべてのワークシートに同じ画像を挿入したことはありますか？この記事では、その作業を解決するための便利な方法をご紹介します。

VBA コードを使用して、ワークブックのすべてのワークシートに同じ画像を挿入する

VBA コードを使用して、ワークブックのすべてのワークシートに同じ画像を挿入する

次の VBA コードは、すべてのワークシートに画像を簡単に挿入するのに役立ちます。以下の手順を行ってください：

1. ALT + F11 キーを押しながら押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

2. 挿入 > モジュール をクリックし、次のコードをモジュールウィンドウに貼り付けます。

VBA コード: すべてのワークシートに同じ画像を挿入する：

Sub InsertLogo()
    Dim I As Long
    Dim xPath As String
    Dim xShape As Shape
    Dim xRg As Range
    xPath = "C:\Users\DT168\Desktop\pic\logo.png"
    If Dir(xPath) = "" Then
        MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    For I = 1 To ActiveWorkbook.Sheets.Count
        Set xRg = Sheets(I).Range("A1")
        Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
    Next
End Sub

注意: 上記のコードでは、C:\Users\DT168\Desktop\pic\logo.png は画像のパスと名前であり、 Range("A1") 内の A1 は画像を挿入したいセルです。これらを自分のものに変更してください。

3. そして、F5 キーを押してこのコードを実行すると、特定の画像がすべてのワークシートのセル A1 に一度に挿入されます。スクリーンショットをご覧ください：

注意: 挿入された画像は、セルのサイズに合わせて調整されます。