@Mod1, unsichtbare Symbole in Symbolleiste von Ribbon Add-In?

Computer: Software & Programmierung Office Software
#1

Grüezi Thomas und alle Interessierten,

 http://www.office-loesung.de/ftopic479364_0_0_asc.php

bezogen auf den Link kann ich mich X3 nur anschließen mit seinem letzten Posting. Symbolleiste „Benutzerdefinierte Symbolleisten“ erscheint aber keine Symbole drin :frowning: Msgbox sagt sie sind aber .visible?

Hier mein Umsetzungsversuch:

 http://www.file-upload.net/download-8219230/kwKein-S…

Nachfolgend der Gesamtcode.

Gruß
Reinhard

Option Explicit

Sub CreateCB()
' von Thomas Ramel
Dim cBar As CommandBar
On Error Resume Next
Dim C
Application.CommandBars("myCommandbar").Delete
On Error GoTo 0
Set cBar = Application.CommandBars.Add(Name:="myCommandbar", \_
  Position:=msoBarTop, Temporary:=True)
CreateButton cBar, "Bezeichnung für Makro1", "Makro1"
CreateButton cBar, "Bezeichnung für Makro2", "Makro2"
With cBar
  .Visible = True
End With
For Each C In cBar.Controls
  MsgBox C.Caption
  MsgBox C.ID
  MsgBox C.Visible
Next C
Application.CutCopyMode = False
End Sub

Function CreateButton(objCB As CommandBar, strCaption As String, strMakro As String)
With objCB.Controls.Add
  .Style = msoButtonIcon
  .Caption = strCaption
  .OnAction = strMakro
End With
End Function

Sub LoescheCB()
Application.CommandBars("myCommandbar").Delete
End Sub

Sub Makro1()
MsgBox "M1"
End Sub

Sub Makro2()
MsgBox "M2"
End Sub
#2

Fehler gefunden
Hallo Interessierte,

die Codezeile mit .FaceId hat gefehlt.

Function CreateButton(objCB As CommandBar, strCaption As String, strMakro As String)
With objCB.Controls.Add
 .Style = msoButtonIcon
 .Caption = strCaption
 .OnAction = strMakro
**.FaceId = 285**
 .TooltipText = strMakro
End With
End Function

Gruß
Reinhard

#3

Nachtrag für alle Vba Interessierte
Hallöchen,

ein sehr großer Vorteil des Codes ist, er funktioniert sowohl in XL 2000 als auch in XL 2007 *sehrfreu*

Unterschied ist einzig, in XL 2000 wird „oben“ eine neue Symbolleiste erzeugt.
In XL 2007 halt im Ribbon „Add-Ins“

Wer es gern auch „oben“ in den Ribbons bei XL 2007 haben möchte, kann es haben. Gibt da von René ein Klasse Workshop zu Ribbons. Viel Spass :smile:
Linkadresse dazu gerne auf Anfrage.

Aber, ist ein Haufen Holz. Für mich als Hobbyprogrammierversucher zuviel. Ich hab noch viel bescheidenere Dinge zu lernen. Aber für Leute die RibbonX programmierung „brauchen“ ist das ein wundervoller Einstieg um dadrin erstmal Anfänger zu werden.

Ich für mich freue mich darüber daß ich jetzt was habe um ein Add-In zu basteln was in allen Versionen läuft und meine gewünschten Symbole erzeugt.

Gruß
Reinhard