Wie fügt man dasselbe Bild schnell in mehrere Arbeitsblätter ein?
Normalerweise können Sie mit der Funktion „Einfügen“ in Excel schnell ein Bild in ein Arbeitsblatt einfügen. Haben Sie aber schon einmal versucht, dasselbe Bild in alle Arbeitsblätter Ihrer Arbeitsmappe einzufügen? In diesem Artikel stelle ich Ihnen eine praktische Methode vor, um genau das zu erreichen.
Dasselbe Bild mithilfe von VBA-Code in alle Arbeitsblätter der Arbeitsmappe einfügen
Dasselbe Bild mithilfe von VBA-Code in alle Arbeitsblätter der Arbeitsmappe einfügen
Der folgende VBA-Code ermöglicht es Ihnen ganz einfach, ein Bild in alle Arbeitsblätter einzufügen. Gehen Sie dazu wie folgt vor:
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modul-Fenster ein.
VBA-Code: Dasselbe Bild in alle Arbeitsblätter einfügen:
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
Hinweis: Im obigen Code ist C:\Users\DT168\Desktop\pic\logo.png der Pfad und der Dateiname Ihres Bildes, und A1 in Range("A1") die Zelle, in die das Bild eingefügt werden soll. Passen Sie diese Angaben bitte entsprechend an.
3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Danach wird das jeweilige Bild sofort in jede Zelle A1 aller Arbeitsblätter eingefügt. Siehe Screenshot:
Hinweis: Das eingefügte Bild passt sich automatisch der Zellgröße an.
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins