Zum Hauptinhalt springen

Wie kopiert man ein Bild von einem Arbeitsblatt in ein Benutzerformular in Excel?

Author: Siluvia Last Modified: 2025-05-28

Dieser Artikel zeigt Ihnen Methoden zum Kopieren eines Bildes vom aktiven Arbeitsblatt in ein Benutzerformular in Excel.

Bild mit Kopieren und Einfügen vom Arbeitsblatt in das Benutzerformular kopieren
Bild mit VBA-Code vom Arbeitsblatt in das Benutzerformular kopieren


Bild mit Kopieren und Einfügen vom Arbeitsblatt in das Benutzerformular kopieren

Bitte folgen Sie den folgenden Schritten, um ein Bild vom Arbeitsblatt in das Benutzerformular zu kopieren.

1. Wechseln Sie zum Arbeitsblatt, das das zu kopierende Bild enthält, und drücken Sie dann gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Benutzerformular. Siehe Screenshot:

click Insert > Userform

3. Fügen Sie nun eine Bildsteuerung in das Benutzerformular ein. Klicken Sie auf die Schaltfläche Bild im Dialogfeld Toolbox, und zeichnen Sie dann manuell eine Bildsteuerung in das Benutzerformular ein. Siehe Screenshot:

insert an Image Control into the UserForm

4. Klicken Sie mit der rechten Maustaste auf die eingefügte Bildsteuerung und wählen Sie Eigenschaften aus dem Kontextmenü wie im folgenden Screenshot gezeigt:

Right-click the Image control, and click Properties

5. Nun wird auf der linken Seite des Fensters Microsoft Visual Basic for Applications ein Eigenschaftenbereich angezeigt.

6. Gehen Sie zurück zum Arbeitsblatt, wählen Sie das Bild aus, das Sie im Benutzerformular anzeigen möchten, und kopieren Sie es, indem Sie die Tasten Strg + C drücken.

7. Gehen Sie erneut in das Fenster Microsoft Visual Basic for Applications, scrollen Sie nach unten, klicken Sie auf das Feld Bild und fügen Sie den kopierten Bildnamen unter dem Alphabetisch-Tab ein.

Jetzt wurde das Bild vom Arbeitsblatt in das Benutzerformular kopiert.

a screenshot of kutools for excel ai

Entfesseln Sie die Magie von Excel mit Kutools AI

  • Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
  • Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
  • VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
  • Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
  • Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.
Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Bild mit VBA-Code vom Arbeitsblatt in das Benutzerformular kopieren

Dieser Abschnitt zeigt Ihnen eine Lösung, um mehrere Bilder vom Arbeitsblatt in ein Benutzerformular zu kopieren und dann das entsprechende Bild im Benutzerformular anzuzeigen, indem Sie den Bildnamen aus einer Kombinationsbox auswählen. Bitte folgen Sie den folgenden Schritten.

1. Folgen Sie bitte Schritt 1 und 2 oben, um ein Benutzerformular in Ihr Arbeitsblatt einzufügen.

2. Fügen Sie dann eine Rahmensteuerung in das Benutzerformular ein, wie im folgenden Screenshot gezeigt:

insert a Frame Control into the UserFrom

3. Klicken Sie mit der rechten Maustaste auf den eingefügten Rahmen und wählen Sie Eigenschaften aus dem Kontextmenü. Wählen Sie im linken Eigenschaftenbereich Nein aus dem Feld Sichtbar. Siehe Screenshot:

Right-click the Frame, and select Properties, then select False from the Visible field

4. Fügen Sie mehrere Bildsteuerungen in den Rahmen ein, wie im folgenden Screenshot gezeigt.

Insert multiple Image control into the Frame

5. Gehen Sie zurück zum Arbeitsblatt, wählen Sie das Bild aus, das Sie im Benutzerformular anzeigen möchten, und drücken Sie die Tasten Strg + C, um es zu kopieren.

6. Gehen Sie wieder ins Fenster Microsoft Visual Basic for Applications, klicken Sie mit der rechten Maustaste auf die erste Bildsteuerung und wählen Sie Eigenschaften aus dem Rechtsklick-Menü. Siehe Screenshot.

right-click the first Image control, and select Properties

7. Klicken Sie im Eigenschaftenbereich auf das Feld Bild, drücken Sie dann die Tasten Strg + V, um das in Schritt 5 kopierte Bild einzufügen, und wählen Sie anschließend 1 – fmPictureSizeModeStretch aus der Dropdown-Liste PictureSizeMode, wie im folgenden Screenshot gezeigt.

set options in the Properties pane

8. Wiederholen Sie die Schritte 5 bis 7, um andere Bilder vom Arbeitsblatt in die verbleibenden Bildsteuerungen im Benutzerformular einzufügen. Das Ergebnis wird wie im folgenden Screenshot angezeigt.

Repeat to paste other pictures

9. Verschieben Sie die Rahmensteuerung in die Ecke des Benutzerformulars, fügen Sie dann eine neue Bildsteuerung und eine Kombinationsbox in das Benutzerformular ein. Siehe Screenshot:

insert a new Image control and a Combo Box control into the UserForm

10. Klicken Sie mit der rechten Maustaste auf das Benutzerformular und dann auf Code anzeigen. Kopieren und fügen Sie den folgenden VBA-Code ein, um den ursprünglichen Code im Codefenster zu ersetzen.

Right-click the UserForm, and then click View Code

VBA-Code 1: Bild vom Arbeitsblatt in das Benutzerformular kopieren

Private Sub ComboBox1_Change()
    UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
    Dim xImg As Control
    On Error Resume Next
    For Each xImg In UserForm1.Controls
        If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
            UserForm1.ComboBox1.AddItem xImg.Name
        End If
    Next
End Sub

Hinweis: Im Code ist UserForm1 der Name des eingefügten Benutzerformulars, Image4 ist der Name der Bildsteuerung, in der Sie Bilder anzeigen werden. Und Bild steht für alle Bildsteuerungen, die die Bilder enthalten, die Sie vom Arbeitsblatt kopiert haben. ComboBox1 ist der Name der Kombinationsbox, die Sie in das Benutzerformular eingefügt haben. Bitte ändern Sie diese Namen entsprechend Ihren eigenen.

11. Schließen Sie das Fenster Microsoft Visual Basic for Applications.

12. Fügen Sie eine Befehlsschaltfläche in das Arbeitsblatt ein, indem Sie Entwickler > Einfügen > Befehlsschaltfläche (ActiveX-Steuerelement) klicken.

13. Klicken Sie mit der rechten Maustaste auf die Befehlsschaltfläche und wählen Sie Code anzeigen aus dem Kontextmenü. Kopieren und fügen Sie dann den folgenden VBA-Code in das Codefenster ein. Schließen Sie abschließend das Fenster.

Right-click the command button and select View Code

VBA-Code 2: Bild vom Arbeitsblatt in das Benutzerformular kopieren

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

15. Klicken Sie auf Entwickler > Design-Modus, um den Design-Modus auszuschalten.

Ab jetzt wird beim Klicken auf die Befehlsschaltfläche das Benutzerformular angezeigt. Sie können ein Bild anzeigen, indem Sie den Bildnamen aus der Kombinationsbox auswählen. Siehe Screenshot:

when clicking the command button, the UserForm will pop up

Das Auswählen unterschiedlicher Namen aus der Kombinationsbox zeigt verschiedene Bilder im Benutzerformular an.

Select different names from the combo box will display different pictures in the UserForm


Verwandte Artikel:

Beste Büroproduktivitätswerkzeuge

🤖 Kutools AI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Finden, Hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten oder Zellen kombinieren ohne Datenverlust   |   Runden ...
Erweiterte SVERWEIS: Mehrfachkriterien SVERWEIS    Mehrfachwert SVERWEIS  |   Mehrblatt-SVERWEIS   |   Fuzzy Match ....
Erweiterte Dropdown-Liste: Schnell Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Eine bestimmte Anzahl von Spalten hinzufügen  |  Spalten verschieben  |  Sichtbarkeitsstatus ausgeblendeter Spalten umschalten  |  Bereiche & Spalten vergleichen ...
Hervorgehobene Funktionen: Gitterfokus   |  Entwurfsansicht   |   Erweiterte Formelleiste    Arbeitsmappe & Arbeitsblatt-Manager   |  AutoText-Bibliothek (Auto Text)   |  Datumsauswahl   |  Daten zusammenführen   |  Zellen verschlüsseln/entschlüsseln    E-Mail senden nach Liste   |  Spezialfilter   |   Spezialfilter (Filtern fett/kursiv/durchgestrichen...) ...
Top15 Werkzeugsets12 Textwerkzeuge (Text hinzufügen, Bestimmte Zeichen löschen, ...)   |   50+ Diagramm typen (Gantt-Diagramm, ...)   |   40+ Praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...)   |   19 Einfügewerkzeuge (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Konvertierungswerkzeuge (In Wörter umwandeln, Währungsumrechnung, ...)   |   7 Konsolidieren & Aufteilen Werkzeuge (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!