hallo Lars,
ein einmal zugewiesenes Schaltflächensymbol einer Symbolleiste ist
unabhängig von einer Tabelle/Datei,es bleibt erhalten, bis es über
Extras/Anpassen bzw durch ein Makro geändert oder die Symbolleiste gelöscht
wird.
Manuell kannst du ein Bild als Schaltflächensymbol einfügen, indem du ein
Bild aus einem Bildbearbeitungsprogramm (zB Paint, ist meist unter Zubehör
zu finden) kopierst und in Excel dann über Extras/Anpassen, rechtsklick auf
den Button in der Symbolleiste/Schaltflächensymbol einfügen einfügst.
Per VBA:
füge in einer Tabelle (in diesem Bsp Tabelle1) über Einfügen/Grafik/Aus
Datei ein Bild ein
(läßt sich natürlich auch per VBA realisieren)
Zuweisung als Schaltflächensymbol:
Sub test()
'CommandBars("testbar").Delete
Set cmdbar = CommandBars.Add(Name:="testbar", _
Position:=msoBarFloating, _
Temporary:=True)
Worksheets(1).Pictures(1).Copy
Set objbutton = cmdbar.Controls.Add(msoControlButton)
With objbutton
.PasteFace
'.OnAction = "deinMakro"
End With
cmdbar.Visible = True
End Sub
Das Bild-Steuerelement braucht man danach eigentlich nicht mehr, aber nur
dann, wenn du die Symbolleiste nie wieder änderst.
Die VBA-Variante ist auch eher für die Weitergabe von Dateien an andere
gedacht
Gruß
stefan
Post by Lars KüsterHi Stefan,
Danke für Deine Antwort.
das hört sich schon mehr an, als ginge es in die Richtung in die ich
will. Wenn ich Dich richtig Verstehen, dann funktioniert das aber nur in
der aktiven Arbeitsmappe, so daß das Symbol nur dann angezeigt wird,
wenn die Mappe geöffnet ist?
Gruß Lars.
Post by stefan onkenhallo Lars,
ergänzend noch die Möglichkeit, ein Bild (jpg, bmp etc) auf einer (bei
Bedarf ausgeblendeten) Tabelle in einem Bild-Steuerelement zu positionieren
und dieses Bild mittels VBA (Copy, PasteFace) als Schaltflächensymbol
anzulegen.
Gruß
stefan
Post by Lars KüsterHallo NG
ich möchte eigene Symbolleisten erstellen, die diverse Funktionen für
mich übernehmen.
Leider ist die Auswahl an Symbolen sehr begrenzt, wenn man den Makros
eigene Symbole zuweisen will.
Gibt es eine Möglichkeit die Auswahl zu erweitern?
Wo sind die Symbole gespeichert?
Ist dies eine Office- oder eine Exceleisntellung?
Ich bedanke mich für Eure Bemühungen
Gruß aus dem Pott
Lars