Wie kopiert man ein Bild von einem Arbeitsblatt in ein Benutzerformular in Excel?
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:
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:
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:
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.
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.
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:
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:
4. Fügen Sie mehrere Bildsteuerungen in den Rahmen ein, wie im folgenden Screenshot gezeigt.
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.
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.
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.
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:
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.
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 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.
VBA-Code 2: Bild vom Arbeitsblatt in das Benutzerformular kopieren
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub15. 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:
Das Auswählen unterschiedlicher Namen aus der Kombinationsbox zeigt verschiedene Bilder im Benutzerformular an.
Verwandte Artikel:
- Wie zentriert man ein Bild in einer Excel-Zelle?
- Wie überprüft man, ob eine Zelle in Excel ein Bild enthält?
- Wie fügt man dynamisch ein Bild oder Foto basierend auf dem Zellenwert in Excel ein?
- Wie vergrößert man ein Bild beim Klicken darauf in Excel?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins