Wie kopiere ich ein Bild vom Arbeitsblatt in das Benutzerformular in Excel?
Dieser Artikel zeigt Ihnen Methoden zum Kopieren eines Bildes aus dem aktiven Arbeitsblatt in Userform in Excel.
Kopieren Sie das Bild vom Arbeitsblatt in das Benutzerformular, indem Sie es kopieren und einfügen
Kopieren Sie das Bild mit VBA-Code vom Arbeitsblatt in das Benutzerformular
Kopieren Sie das Bild vom Arbeitsblatt in das Benutzerformular, indem Sie es kopieren und einfügen
Gehen Sie wie folgt vor, um ein Bild vom Arbeitsblatt in das Benutzerformular zu kopieren.
1. Wechseln Sie zum Arbeitsblatt, das das Bild enthält, das Sie in Userform kopieren müssen, und drücken Sie dann die Taste Andere + F11 Tasten zusammen, um das zu öffnen Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, bitte klicken Insert > Benutzerformular. Siehe Screenshot:
3. Fügen Sie nun ein Image Control in die UserForm ein. Bitte klicken Sie auf Bild Knopf im Tools Zeichnen Sie dann ein Bildsteuerelement in das Benutzerformular manuell. Siehe Screenshot:
4. Klicken Sie mit der rechten Maustaste auf das eingefügte Bildsteuerelement, und klicken Sie auf Ferienhäuser aus dem Kontextmenü wie unten Screenshot gezeigt:
5. Dann können Sie a sehen Ferienhäuser Das Fenster wird auf der linken Seite des angezeigt Microsoft Visual Basic für Applikationen Fenster.
6. Kehren Sie zum Arbeitsblatt zurück, wählen Sie das Bild aus, das im Benutzerformular angezeigt werden soll, und kopieren Sie das Bild durch Drücken von Ctrl + C Schlüssel.
7. Steigen Sie in die Microsoft Visual Basic für Applikationen Scrollen Sie erneut nach unten, um auf zu klicken Bild Feld und fügen Sie dann den kopierten Bildnamen unter der Registerkarte "Alphabetisch" ein.
Jetzt wird das Bild im Arbeitsblatt in das Benutzerformular kopiert.
Kopieren Sie das Bild mit VBA-Code vom Arbeitsblatt in das Benutzerformular
In diesem Abschnitt wird eine Problemumgehung angezeigt, mit der Sie mehrere Bilder aus dem Arbeitsblatt in ein Benutzerformular kopieren und dann das entsprechende Bild im Benutzerformular anzeigen können, indem Sie den Bildnamen in einem Kombinationsfeld auswählen. Bitte gehen Sie wie folgt vor.
1. Befolgen Sie die obigen Schritte 1 und 2, um ein Benutzerformular in Ihr Arbeitsblatt einzufügen.
2. Fügen Sie dann a ein Rahmensteuerung in den UserFrom wie im folgenden Screenshot gezeigt:
3. Klicken Sie mit der rechten Maustaste auf den eingefügten Frame und wählen Sie Ferienhäuser aus dem Kontextmenü. In der linken Ferienhäuser Bereich bitte auswählen falsch von dem Sichtbar Feld. Siehe Screenshot:
4. Fügen Sie mehrere Bildsteuerelemente in den Frame ein (siehe Abbildung unten).
5. Kehren Sie zum Arbeitsblatt zurück, wählen Sie das Bild aus, das im Benutzerformular angezeigt werden soll, und drücken Sie die Taste Ctrl + C Schlüssel, um es zu kopieren.
6. Steigen Sie in die Microsoft Visual Basic für Applikationen Klicken Sie im Fenster mit der rechten Maustaste auf das erste Bildsteuerelement und wählen Sie Ferienhäuser aus dem Kontextmenü. Siehe Abbildung gezeigt.
7. In dem Ferienhäuser Klicken Sie bitte auf Bild Feld, dann drücken Sie die Ctrl + V Tasten, um das in Schritt 5 kopierte Bild einzufügen, und wählen Sie dann 1 - fmPictureSizeModeStrtch von dem PictureSizeMode Dropdown-Liste wie unten Screenshot gezeigt.
8. Wiederholen Sie die Schritte 5 bis 7, um andere Bilder aus dem Arbeitsblatt in die linken Bildsteuerelemente in der UserForm einzufügen. Das Ergebnis wird wie im folgenden Screenshot angezeigt.
9. Bewegen Sie die Rahmen Steuern Sie in die Ecke der UserForm und fügen Sie eine neue ein Bild Kontrolle und a Kombinationsfeld Steuerung in die UserForm. Siehe Screenshot:
10. Klicken Sie mit der rechten Maustaste auf Benutzerformular, Und klicken Sie auf Code anzeigen. Kopieren Sie dann den VBA-Code und fügen Sie ihn ein, um den Originalcode in das Codefenster zu ersetzen.
VBA-Code1: Kopieren Sie das Bild vom Arbeitsblatt in das Benutzerformular
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
Note: Im Code, Benutzerformular1 ist der Name der eingefügten UserForm, Image4 ist der Name des Bildsteuerelements, in dem Sie Bilder anzeigen. Und „Bild“ stellt alle Bildsteuerelemente dar, die die Bilder enthalten, die Sie aus dem Arbeitsblatt kopiert haben. ComboBox1 ist der Combobox-Name, den Sie in das Benutzerformular eingefügt haben. Bitte ändern Sie sie in Ihre eigenen.
11. Schließe Microsoft Visual Basic für Applikationen Fenster.
12. Fügen Sie durch Klicken eine Befehlsschaltfläche in das Arbeitsblatt ein Entwickler:in / Unternehmen > Insert > Befehlsschaltfläche (ActiveX Control).
13. Klicken Sie mit der rechten Maustaste auf die Befehlsschaltfläche und wählen Sie Code anzeigen aus dem Kontextmenü. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein. Und schließlich das Fenster schließen.
VBA-Code2: Kopieren Sie das Bild vom Arbeitsblatt in das Benutzerformular
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
15 Klicken Entwickler:in / Unternehmen > Entwurfsmodus , um den Designmodus auszuschalten.
Wenn Sie von nun an auf die Befehlsschaltfläche klicken, wird die UserForm angezeigt. Sie können ein Bild anzeigen, indem Sie den Bildnamen aus dem Kombinationsfeld auswählen. Siehe Screenshot:
Wählen Sie im Kombinationsfeld unterschiedliche Namen aus, um unterschiedliche Bilder in der UserForm anzuzeigen.
Weitere Artikel:
- Wie zentriere ich ein Bild in einer Excel-Zelle?
- Wie überprüfe ich, ob eine Zelle ein Bild in Excel enthält?
- Wie füge ich ein Bild oder Bild dynamisch in eine Zelle ein, basierend auf dem Zellenwert in Excel?
- Wie kann ich ein Bild vergrößern, wenn ich in Excel darauf klicke?
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!