Symbolleiste und Button dynamisch

Symbolleiste und Button dynamisch. CommandBar, CommandBarButton
Sub AutoOpen()
On Error Resume Next
Dim SLeiste As CommandBar
Dim CButton As CommandBarButton
Application.CommandBars("Bildkatalog").Delete Ist der Button vorhanden, wird er zuerst gelöscht.
Set SLeiste = Application.CommandBars.Add("Bildkatalog", msoBarBottom)
CommandBars("Bildkatalog").Visible = True msoBarBottom = Symbolleiste wird unten angezeigt.
Set CButton = SLeiste.Controls.Add
With CButton
.Style = msoButtonIconAndCaption msoButtonIconAndCaption = Bild und Text anzeigen.
.TooltipText = "Startet das Makro Bildkatalog" Text, der angezeigt wird, wenn man mit der Maus auf
.Caption = "Bildkatalog" den Button zeigt.
.FaceId = 682 Face-ID 682 einfügen. Infos zu Face-ID siehe:
End With http://www.wbrnet.info/db/5001.html
frmBildkatalog.Show Eventuell kann ein Formular aufgerufen werden.
End Sub
Andere Möglichkeit:
Befehle zu Symbolleisten lassen sich nur bei Word
(bei Excel geht das nicht) direkt an ein Dokument
binden (es wird die "Normal.dot" vorgegeben).
.

Mehr Tipps: Word - Durchgestrichene Null per Mausklick einfügen

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt