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

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

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

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

次のVBAコードは、すべてのワークシートに画像を簡単に挿入するのに役立ちます。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

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 は画像のパスと名前です。 A1 in Range("A1") は画像を挿入するセルです。独自のセルに変更してください。

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

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