Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Changing a controls caption dynamically

Sub MakeNumberFormatDisplay()     Dim TBar As CommandBar     Dim NewBtn As CommandBarButton     Set TBar = CommandBars.Add     With TBar         .Name = "Number Format"         .Visible = True     End With          Set NewBtn = CommandBars("Number Format").Controls.Add(Type:=msoControlButton)     With NewBtn         .Caption = ""         .OnAction = "ChangeNumFormat"         .Style = msoButtonCaption     End With End Sub