Ribbon Editbox o. Label per VBA ändern
28.04.2020 21:09:56
MLoew
zu meiner Person:
Mein tägliches Haupt"werkzeug" ist Excel rauf und runter, auch im Bereich VBA.
Ich habe, seit es Ribbons gibt, mich auch damit anfänglich beschäftigt. Ich bin dann aber relativ schnell auf den IDBE RibbonCreator gestossen, der mir mein tägliches Arbeiten extrem vereinfacht hat.
Quasi alle meine selbstgeschriebenen Subs/Functions liegen in einem eignen Ribbon.
Der RibbonCreator hat zwar extrem viel Möglichkeiten. Doch nun möchte ich in dem Menü ablegen, ob ich beim Start der Exceldatei Online bin (Abfrage über FSO.folderexists ("x:\....") oder ob meine VPN-Verbindung sich gerade mal wieder aufgehängt hat.
Ich hab jetzt zwar eine EditBox oder auch ein Label, deren Inhalt sicherlich ändern kann.
Aber ich hab keine Idee, wie ich das einen String "ONLINE / OFFLINE" über eine normale Sub in die EditBox oder als Text auf das Label schreiben kann.
Würde mich sehr freuen, wenn mir jemand "einen Tritt in die richtige Richtung" geben könnte.
Anbei der XML Code der Exceldatei und der VBA-Code, der durch den RibbonCreator für die Erzeugung der Menüfunktionen erstellt wurde.
Vielen lieben Dank
Markus
Die RibbonXML Daten sehen so aus:
'# Created with / Erstellt mit: #
'# IDBE Ribbon Creator 2016 #
'# Version: 1.1003b #
Public gobjRibbon As IRibbonUI
Public bolEnabled As Boolean
' Callbacks
Public Sub OnRibbonLoad(ribbon As IRibbonUI)
'Callbackname in XML File "onLoad"
Set gobjRibbon = ribbon
End Sub
Public Sub OnActionButton(control As IRibbonControl)
'Callback in XML File "onAction"
' Callback for event button click
' Callback für Button Click
Select Case control.id
Case Else
MsgBox "Button """ & control.id & """ clicked" & vbCrLf & _
"Es wurde auf Button """ & control.id & """ in Ribbon geklickt", _
vbInformation
End Select
End Sub
'Command Button
Sub OnActionButtonHelp(control As IRibbonControl, ByRef CancelDefault)
' Callbackname in XML File Command "onAction"
MsgBox "Button ""Help"" clicked" & vbCrLf & _
"Es wurde auf Button ""Hilfe"" geklickt", _
vbInformation
CancelDefault = True
End Sub
Sub OnActionCheckBox(control As IRibbonControl, pressed As Boolean)
' Callbackname in XML File "OnActionCheckBox"
' Callback for event checkbox click
' Callback für Checkbox Click
Select Case control.id
Case Else
MsgBox "The Value of the Checkbox """ & control.id & """ is: " & pressed & vbCrLf & _
"Der Wert der Checkbox """ & control.id & """ ist: " & pressed, _
vbInformation
End Select
End Sub
Public Sub GetEnabled(control As IRibbonControl, ByRef enabled)
' Callbackname in XML File "getEnabled"
Select Case control.id
Case "ebx_110"
Enabled = True
Case "tgb_120"
Enabled = True
Case Else
enabled = True
End Select
End Sub
'EditBox
Sub GetTextEditBox(control As IRibbonControl, _
ByRef strText)
' Callbackname in XML File "GetTextEditBox"
' Callback für EditBox welcher Wert in der
Select Case control.id
Case "ebx_110"
' In Tab: tab_2
' In Group: grp_100
strText = getTheValue(control.Tag,"DefaultValue")
Case Else
strText = getTheValue(control.Tag, "DefaultValue")
End Select
End Sub
Sub OnChangeEditBox(control As IRibbonControl, _
strText As String)
' Callbackname in XML File "OnChangeEditBox"
' Callback Editbox: Rückgabewert der Editbox
' Callback Editbox: Return value of the Editbox
Select Case control.id
Case "ebx_110"
' In Tab: tab_2
' In Group: grp_100
MsgBox "The Value of the EditBox """ & control.ID & """ is: " & strText & vbCrLf & _
"Der Wert der EditBox """ & control.ID & """ ist: " & strText, _
vbInformation
Case Else
MsgBox "The Value of the EditBox """ & control.id & """ is: " & strText & vbCrLf & _
"Der Wert der EditBox """ & control.id & """ ist: " & strText, _
vbInformation
End Select
End Sub