Wie kopiert man ein Bild aus dem Arbeitsblatt in ein Benutzerformular in Excel?
Dieser Artikel zeigt Ihnen, wie Sie ein Bild vom aktiven Arbeitsblatt in ein Benutzerformular in Excel kopieren können.
Bild vom Arbeitsblatt in das Benutzerformular durch Kopieren und Einfügen übertragen
Bild vom Arbeitsblatt in das Benutzerformular mit VBA-Code übertragen
Bild vom Arbeitsblatt in das Benutzerformular durch Kopieren und Einfügen übertragen
Führen Sie die folgenden Schritte aus, um ein Bild aus dem Arbeitsblatt in das Benutzerformular zu kopieren.
1. Wechseln Sie zum Arbeitsblatt, das das zu kopierende Bild enthält, und drücken Sie anschließend 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:
3. Fügen Sie nun ein Bildsteuerelement in das Benutzerformular ein. Klicken Sie dazu im Dialogfeld Toolbox auf die Schaltfläche Bild und zeichnen Sie anschließend manuell ein Bildsteuerelement in das Benutzerformular. Siehe Screenshot:
4. Klicken Sie mit der rechten Maustaste auf das Bild einfügen-Steuerelement und wählen Sie im Kontextmenü Eigenschaften aus, wie im folgenden Screenshot gezeigt:
5. Anschließend wird im linken Bereich des Fensters Eigenschaften angezeigt. Microsoft Visual Basic for Applications
6. Wechseln Sie zurück zum Arbeitsblatt, markieren Sie das Bild, das im Benutzerformular angezeigt werden soll, und kopieren Sie es mit der Tastenkombination Strg+C.
7. Öffnen Sie erneut das Fenster Microsoft Visual Basic for Applications, scrollen Sie nach unten, klicken Sie auf das Feld Bild und fügen Sie den Namen des kopierten Bildes unter dem Register „Alphabetisch“ ein.
Das Bild aus dem Arbeitsblatt wurde erfolgreich in das Benutzerformular übertragen.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Bild vom Arbeitsblatt in das Benutzerformular mit VBA-Code übertragen
In diesem Abschnitt wird eine Lösung vorgestellt, um mehrere Bilder vom Arbeitsblatt in ein Benutzerformular zu kopieren und das entsprechende Bild im Benutzerformular anzuzeigen, indem der Bildname aus einem Kombinationsfeld ausgewählt wird. Gehen Sie wie folgt vor.
1. Führen Sie die oben genannten Schritte 1 und 2 aus, um ein Benutzerformular in Ihr Arbeitsblatt einzufügen.
2. Fügen Sie anschließend ein Rahmen-Steuerelement in das Benutzerformular ein, wie im folgenden Screenshot gezeigt:
3. Klicken Sie mit der rechten Maustaste auf den eingefügten Rahmen und wählen Sie im Kontextmenü Eigenschaften aus. Ändern Sie im linken Bereich Eigenschaften im Feld „Bitte auswählen“ den Wert der Eigenschaft Sichtbar auf False. Siehe Screenshot:
4. Fügen Sie mehrere Bildsteuerelemente in den Rahmen ein, wie im folgenden Screenshot dargestellt.
5. Wechseln Sie zurück zum Arbeitsblatt, markieren Sie das gewünschte Bild für das Benutzerformular und drücken Sie Strg+C, um es zu kopieren.
6. Öffnen Sie das Fenster Microsoft Visual Basic for Applications, klicken Sie mit der rechten Maustaste auf das erste Bildsteuerelement und wählen Sie im Kontextmenü Eigenschaften aus. Siehe Screenshot.
7. Klicken Sie im Bereich Eigenschaften auf das Feld Bild und drücken Sie anschließend die Tasten Strg + V, um das in Schritt 5 kopierte Bild einzufügen. Wählen Sie außerdem 1 – fmPictureSizeModeStretch aus der Dropdown-Liste der Eigenschaft PictureSizeMode, wie im folgenden Screenshot gezeigt.
8. Wiederholen Sie die Schritte 5 bis 7, um weitere Bilder aus dem Arbeitsblatt in die verbleibenden Bildsteuerelemente des Benutzerformulars einzufügen – das Ergebnis entspricht dann der folgenden Abbildung.
9. Verschieben Sie das Rahmen-Steuerelement in die Ecke des Benutzerformulars, und fügen Sie anschließend ein neues Bild-Steuerelement sowie ein Kombinationsfeld in das Benutzerformular ein. Siehe Screenshot:
10. Klicken Sie mit der rechten Maustaste auf das Benutzerformular und wählen Sie anschließend Code anzeigen. Kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in das Codefenster ein, um den ursprünglichen Code zu ersetzen.
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 SubHinweis: Im Code ist UserForm1 der Name des eingefügten Benutzerformulars, Image4 der Name des Bildsteuerelements, in dem die Bilder angezeigt werden sollen. „Image“ steht für alle Bildsteuerelemente, die die aus dem Arbeitsblatt kopierten Bilder enthalten. ComboBox1 ist der Name des Kombinationsfelds, das Sie in das Benutzerformular eingefügt haben. Passen Sie diese Namen entsprechend an.
11. Schließen Sie das Fenster Microsoft Visual Basic for Applications.
12. Fügen Sie eine Befehlsschaltfläche in das Arbeitsblatt ein, indem Sie auf Entwickler > Einfügen > Befehlsschaltfläche (ActiveX-Steuerelement) klicken.
13. Klicken Sie mit der rechten Maustaste auf die Befehlsschaltfläche und wählen Sie im Kontextmenü Code anzeigen aus. Anschließend kopieren Sie den folgenden VBA-Code und fügen ihn in das Codefenster ein. Schließen Sie abschließend dieses Fenster.
VBA-Code 2: Bild vom Arbeitsblatt in das Benutzerformular kopieren
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub15. Klicken Sie auf Entwickler > Entwurfsmodus, um den Entwurfsmodus zu beenden.
Ab sofort wird beim Klicken auf die Befehlsschaltfläche das Benutzerformular angezeigt. Wählen Sie einfach einen Bildnamen aus dem Kombinationsfeld aus, um das entsprechende Bild anzuzeigen. Siehe Screenshot:
Durch die Auswahl verschiedener Namen im Dropdown-Menü werden jeweils unterschiedliche Bilder im Benutzerformular angezeigt.
Verwandte Artikel:
- Wie zentriert man ein Bild perfekt in einer Excel-Zelle?
- Wie prüft man in Excel, ob eine Zelle ein Bild enthält?
- Wie fügt man in Excel dynamisch ein Bild in eine Zelle basierend auf dem Zellwert ein?
- Wie vergrößert man ein Bild beim Anklicken in Excel?
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