Office: (Office 2010) RibbonX Custom UI

mathieu_91 · 25. Juli 2016

Hallo René,

schade. Trotzdem danke für die Rückmeldung.

Grüße

Mathieu

mathieu_91 · 31. August 2016

Hallo,

habe noch eine Frage zum Thema RibbonX, wofür ich aber nicht unbedingt ein neues Thema eröffnen wollte.

Code:

Public Sub Checkbox_onAction_wlhalten(control As IRibbonControl, pressed As Boolean)
If ActiveSheet.Columns(51).Width > 0 Then
ActiveSheet.Columns(51).EntireColumn.Hidden = True
Else
ActiveSheet.Columns(51).EntireColumn.Hidden = False
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Habe hier eine Checkbox, welche Spalten ein/ausblendet.

Ich möchte aber mein Dokument immer mal zurücksetzen und möchte dann die Checkbox auf True setzen, also pressed=true.

Kann ich das einfach so in der Art aufrufen?

Code:

Sub Test()
Dim pressed as boolean
Dim control as iRibbonControl

pressed=true
Call Checkbox_onAction_wlhalten(control , pressed)
End sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße

Mathieu

mumpel · 1. September 2016

Nein, das funktioniert so nicht. Da müsstest Du das getPressed-Attribut entsprechend behandeln. Hiefür kannst Du eine öffentliche Variable vom Typ Boolean nutzen.

mathieu_91 · 1. September 2016

Hallo Réne,

danke für die Rückmeldung.

Code:

Public Sub Checkbox_getPressed_wlhalten(control As IRibbonControl, ByRef returnValue)
If ActiveSheet.Columns(51).Width > 0 Then returnValue = 1
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du meinst das hier?

Habe noch diesen älteren Beitrag gefunden:

http://www.ms-office-forum.net/forum...d.php?t=327439

Weiß aber nicht so genau, wie ich das anwenden soll... =/

Und so funktioniert es leider nicht:

Code:

Sub test()
Dim control As IRibbonControl
Dim returnValue
Run "cbx01_getPressed", control, returnValue
Run "cbx02_getPressed", control, returnValue
Run "cbx03_getPressed", control, returnValue
Run "cbx04_getPressed", control, returnValue
End Sub

Private Sub cbx01_getPressed(control As IRibbonControl, ByRef returnValue)
returnValue = 1
End Sub

Private Sub cbx02_getPressed(control As IRibbonControl, ByRef returnValue)
returnValue = 1
End Sub

Private Sub cbx03_getPressed(control As IRibbonControl, ByRef returnValue)
returnValue = 1
End Sub

Private Sub cbx04_getPressed(control As IRibbonControl, ByRef returnValue)
returnValue = 1
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bekomme aber auch keine Fehlermeldung.

Grüße

Mathieu

mathieu_91 · 1. September 2016

Konnte es lösen.

Danke und Grüße

Mathieu

Office: (Office 2010) RibbonX Custom UI

RibbonX Custom UI

RibbonX Custom UI

RibbonX Custom UI

RibbonX Custom UI - Similar Threads - RibbonX Custom

Erstellen von Geschäftskontakten in Outlook Customer Manager

Verwalten von Aufgaben und automatischen Erinnerungen in Outlook Customer Manager

Erstellen und Verwalten von Unternehmenskontakten in Outlook Customer Manager

Nachverfolgen von Verkaufschancen in Outlook Customer Manager

Custom UI Editor XML Excel

Benutzerdefiniertes RibbonX und XLAM

Ribbon Custom UI Editor