Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1224to1228
1224to1228
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm Button Icon

Forumthread: UserForm Button Icon

UserForm Button Icon
HansP
Hallo!
Ich habe mich zum ersten Mal an eine UserForm rangetraut. Mir dem Ergebnis bin ich bis auf eine Sache zufrieden: Wie kann ich einer Schaltfläche anstelle von Text ein Icon zuweisen. Also beispielsweise dem "Suche-Button" eine Lupe / Fernglas oder dem Button "Eintrag löschen" einen Papierkorb. Gibt es da eine in VBA eine DLL für? Einfache SW-Grafik reicht völlig.
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: UserForm Button Icon
14.08.2011 13:00:27
Josef

Hallo Hans,
dazu besitzt der Button die Eigenschaft "Picture", einfach ein geeignetes Bild auswählen.

« Gruß Sepp »

Anzeige
AW: UserForm Button Icon
14.08.2011 13:14:11
Nepumuk
Hallo,
kannst du auch just in time beim laden des Userforms erzeugen:
Private Sub UserForm_Activate()
    Dim objCommandBarButton As CommandBarButton
    Set objCommandBarButton = Application.CommandBars(1).Controls.Add( _
        Type:=msoControlButton, Temporary:=True)
    With CommandButton1
        .PicturePosition = fmPicturePositionCenter
        objCommandBarButton.FaceId = 46
        .Picture = objCommandBarButton.Picture
    End With
    With CommandButton2
        .PicturePosition = fmPicturePositionCenter
        objCommandBarButton.FaceId = 67
        .Picture = objCommandBarButton.Picture
    End With
    objCommandBarButton.Delete
    Set objCommandBarButton = Nothing
End Sub

Gruß
Nepumuk
Anzeige
AW: UserForm Button Icon
14.08.2011 16:27:59
ing.grohn
Hallo Nepumuk,
funktioniert gut, kann man gebrauchen!
Gibs irgendwo ne Liste der FaceId?
Mit freundlichen Grüßen
Albrecht
AW: UserForm Button Icon
14.08.2011 16:46:41
Nepumuk
Hallo,
klar gibt es die,
http://www.online-excel.de/excel/singsel_vba.php?f=69
aber 8ung der Code funktioniert nicht in Excel 2007/2010. Bzw. wird ein Addinribbon erzeugt.
Gruß
Nepumuk
Anzeige
AW: UserForm Button Icon
14.08.2011 17:12:56
ing.grohn
Hallo Nepumuk,
vielen Dank (googlen hatte nicht gebracht).
Die Seiten von Peter Haserodt sind doch immer wieder sehr informativ
Mit freundlichen Grüßen
Albrecht
AW: anbei eine Datei.... Gruß
14.08.2011 17:31:42
ing.grohn
Hallo Robert,
vielen Dank
Mit freundlichen Grüßen
Albrecht
Anzeige
AW: UserForm Button Icon
14.08.2011 20:48:01
HansP
Ah! Ok. Danke an alle. Dachte ich könnte das über die Eigenschaften des Buttons in der Userform definieren und nicht im Makro selber.
AW: UserForm Button Icon
14.08.2011 23:42:43
Nepumuk
Hallo,
in Excel 2010 geht's auch einfacher:
Private Sub UserForm_Activate()
    Set CommandButton1.Picture = _
        Application.CommandBars.GetImageMso("FileSave", 20, 20)
End Sub

Gruß
Nepumuk
Anzeige
AW: UserForm Button Icon
15.08.2011 08:19:32
HansP
Das ja klasse!!
Hast Du auch den Code für das Fernglas / Lupe sowie Mülltonne? Oder gibt es irgendwo eine Liste?
Und gleich noch eine Zusatzfrage: Kann ich aus einer UserForm eine weitere UserForm als "Popup" aufrufen? Wenn ich alle Infos in eine UserForm packen müsste, würde das zu unübersichtlich.
Anzeige
AW: UserForm Button Icon
15.08.2011 10:28:32
Nepumuk
Hallo,
hier kannst du dir ein Addin runterladen welches im Entwicklerregister Buttons erzeugt mit denen du die Icons ansehen und dir deren Namen in die aktive Zelle schreiben lassen kannst:
http://www.office-loesung.de/download.php?id=9913
Natürlich lässt sich aus einem Userform ein anderes Userform öffnen.
Gruß
Nepumuk
Anzeige
;

Forumthreads zu verwandten Themen

[VBA] UserForm Click-Event für dyn. erz. Button
Nils

Hallo Leute,
ich habe eine Userform dynamisch mit Buttons bestückt. Je nachdem wie groß ein Array ist, werden 1 bis x Buttons erstellt.
Wie kann ich den Click-Event eines solchen Buttons definieren?
19.03.2019 16:47:00
Thread-ID: 1682182
2 Beiträge
CommandButton mit Exceleigenem -Icon
Mathias Sohn

Hallo Forum!
Ich möchte einen CommandButton (Schaltfläche) in einer Userform mit einem Icon von Excel (Datei öffnen) belegen, damit ich nicht ein eigenes Bitmap mitliefern musss.
Weis einer, wie es geht.
Oder wo finde ich, wenns nicht geht, Windows Standard Icons?Danke mal im Voraus.
31.03.2003 10:40:43
Thread-ID: 238286
2 Beiträge
Excel.VBA.Userform.Schliessen-Button
AlexD

Hallo Forum,

seit gestern sitze ich an einem Problem und komme einfach nicht weiter. Vielleicht könnt ihr mir ja helfen?

Habe unter Excel 2000 eine Userform. Der rote X-Button (Schliessen) in der Userform soll abgefangen werden, so dass vor dem eigentlichen Beenden der Form noch...
14.08.2003 09:46:54
Thread-ID: 294480
4 Beiträge
CommandButton mit Icon aus der Shell32.dll belegen
Jörg

Hallo,
ich möchte einen Button in der Menüleiste mit einem Icon belegen welches in der Shell32.dll liegt. Irgendwie gelingt es mir nur die vorgefertigten Icons die Excel anbietet auszuwählen.
Kann mir jemand weiterhelfen?
Danke im Voraus
mfG Jörg
01.12.2004 09:03:23
Thread-ID: 526028
11 Beiträge
VBA - CommandBarButton mit Icon
Alexander

Hallo Forum!
Ich habe mal wieder ein Problem:
Ich mache gerade eine eigene CommandBar und möchte da jetzt CommandBarButtons mit dem Style msoButtonIconAndCaption einbinden.
So weit so leicht, aber wie kann ich dem CBB ein Icon mitgeben? Die VBA-Hilfe hilft mir da nicht weiter.
Da...
09.06.2005 14:52:24
Thread-ID: 622108
8 Beiträge
VBA UserForm CommandButton1 programmieren
Hans

Hallo zusammen
Bin am bisschen am Varianten ausprobieren, mit Eingabemaske oder besser mit UserForm ein Eingabeformular zu kreeiren. Das Problem mit der Eingabemaske ist, dass der erste "Eingebende" nicht alle Spalten ausfüllen muss aus der Maske. Darum hätte ich eigentlich gerne eine User...
13.02.2020 13:55:21
Thread-ID: 1740202
4 Beiträge
VBA - Userform Button zusätzl PDF erstel
Kevin

Hallo zusammen,
ich bräuchte mal Hilfe von euch.
Habe mich mal etwas an VBA gewagt und komme immer besser zu recht. Googlen hilft sehr, aber hier finde ich keine passende Lösung.
Ich habe eine UserForm erstellt, welche die Einträge in verschiedene Zellen kopiert sobald ich den Butto...
17.03.2020 13:43:51
Thread-ID: 1746494
3 Beiträge
VBA Userform Button Speichern und neuen Wert in Textbox
DLMuc
Hallo liebe VBA Gemeinde,

nach dem ich hier schon sehr viele Tipps, Trick's und Hilfestellungen gefunden habe, komme ich voran. Aber bei einem Problem hängt es bei mir massiv bzw. ich finde überhaupt keine Lösung und hoffe auf Unterstützung von Euch.

Istzustand:
Es besteht ein...
03.02.2024 01:19:07
Thread-ID: 1963332
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

UserForm Button mit Icon

Schritt-für-Schritt-Anleitung

Um ein Excel Button Icon in einer UserForm zu verwenden, gehe folgendermaßen vor:

  1. Öffne deine Excel-Arbeitsmappe und gehe zum VBA-Editor (Alt + F11).
  2. Erstelle eine neue UserForm, indem du mit der rechten Maustaste auf "VBAProject" klickst und "Insert" > "UserForm" wählst.
  3. Füge einen CommandButton zur UserForm hinzu.
  4. Klicke mit der rechten Maustaste auf den Button und wähle "Properties".
  5. Suche nach der Eigenschaft "Picture" und lade ein geeignetes Bild hoch oder verwende den getimagemso-Befehl, um ein vordefiniertes Icon zu verwenden: 
    Private Sub UserForm_Activate()
    CommandButton1.Picture = Application.CommandBars.GetImageMso("FileSave", 20, 20)
End Sub
  6. Schließe den VBA-Editor und teste die UserForm.

Häufige Fehler und Lösungen

  • Fehler: Das Icon wird nicht angezeigt.

    • Stelle sicher, dass die Picture-Eigenschaft des Buttons korrekt gesetzt ist. Überprüfe den Pfad des Bildes oder den Befehl getimagemso.

  • Fehler: Icons erscheinen nicht in Excel 2007/2010.

    • Der Code funktioniert möglicherweise nicht in diesen Versionen. Du solltest stattdessen die in den VBA FaceId Icons definierten Nummern verwenden.

Alternative Methoden

Wenn du keine Icons von der CommandBars-Sammlung verwenden möchtest, kannst du Bilder selbst einfügen:

  1. Lade die gewünschten Icons (z.B. Excel Lupe oder Fernglas Icon) in dein Projekt.
  2. Setze die Picture-Eigenschaft des Buttons auf das entsprechende Bild: 
    CommandButton1.Picture = LoadPicture("C:\Pfad\zu\deinem\Bild.png")

Praktische Beispiele

Hier sind einige nützliche Codeschnipsel, um Icons für Buttons in einer UserForm zu verwenden:

  • Lupe Icon:

    CommandButton1.Picture = Application.CommandBars.GetImageMso("Find", 20, 20)

  • Papierkorb Icon:

    CommandButton2.Picture = Application.CommandBars.GetImageMso("Delete", 20, 20)

Diese Beispiele zeigen, wie du Button Icons für deine Excel UserForms gestalten kannst.

Tipps für Profis

  • Nutze die VBA Icons effizient, indem du eine Liste der verfügbaren Icons (FaceIds) führst. Du kannst eine Excel-Tabelle erstellen, um die Icons zu dokumentieren.
  • Experimentiere mit verschiedenen Excel Button Designs, um deine UserForms ansprechender zu gestalten.
  • Wenn du häufig HTML Buttons mit Icons erstellst, kannst du eine ähnliche Logik verwenden, um Icons in Webanwendungen zu integrieren.

FAQ: Häufige Fragen

1. Wie kann ich eine UserForm als Popup öffnen? Du kannst eine weitere UserForm als Popup öffnen, indem du UserForm2.Show in einem Button-Klick-Ereignis verwendest.

2. Gibt es eine Liste der verfügbaren FaceId Icons? Ja, du kannst eine Liste der VBA FaceId Icons online finden, die dir die verfügbaren Icons zeigt und wie du sie in deinem Code verwenden kannst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige