Wie kann man dasselbe Bild schnell in mehrere Arbeitsblätter einfügen?
Normalerweise können wir ein Bild mithilfe der Funktion Einfügen in Excel schnell in ein Arbeitsblatt einfügen. Haben Sie jedoch jemals versucht, dasselbe Bild in alle Arbeitsblätter Ihrer Arbeitsmappe einzufügen? In diesem Artikel werde ich eine nützliche Methode vorstellen, mit der Sie diesen Job lösen können.
Fügen Sie dasselbe Bild mit VBA-Code in alle Arbeitsblätter der Arbeitsmappe ein
Fügen Sie dasselbe Bild mit VBA-Code in alle Arbeitsblätter der Arbeitsmappe ein
Mit dem folgenden VBA-Code können Sie problemlos ein Bild in alle Arbeitsblätter einfügen. Gehen Sie dazu folgendermaßen vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Fügen Sie dasselbe Bild in alle Arbeitsblätter ein:
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
Note: Im obigen Code, C:\Users\DT168\Desktop\pic\logo.png ist der Pfad und Name Ihres Bildes und A1 in Range("A1") ist die Zelle, in die Sie das Bild einfügen möchten. Bitte ändern Sie sie in Ihre eigene.
3. Dann drücken F5 Drücken Sie die Taste, um diesen Code auszuführen, und dann wurde das spezifische Bild in jede Zelle A1 des gesamten Arbeitsblatts auf einmal eingefügt. Siehe Screenshot:
Note: Das eingefügte Bild wird an die Zellengröße angepasst.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!