| 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). |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| . |
| |
zurück