title image


Smiley Re: VBA: Ergebnis einer Berechnung in Symbolleiste statt in MsgBox ausgeben
Hallo,



bei mir in Word XP funktioniert das z.B. so:

Sub modAddControl_In_CommandBar()

Dim cCBbar As CommandBar, cCBbarCtl As CommandBarControl

'

For Each cCBbar In Application.CommandBars

Set cCBbarCtl = CommandBars("Formatting").FindControl(Tag:="Berechnen", _

Recursive:=True)

'

If cCBbarCtl Is Nothing Then

Dim CBut As CommandBarButton

Set CBut = CommandBars("Formatting").Controls.Add(ID:=1, Before:=1)

'

With CBut

.Tag = "Berechnen"

.Style = msoButtonCaption

.Caption = "Berechnen"

.TooltipText = "Ergebnis einer Berechnung anzeigen"

.OnAction = "mBerechnen"

End With

'

Exit For

End If

Next

End Sub

'

Private Sub mBerechnen()

Dim CBut As CommandBarButton

Set CBut = CommandBars.ActionControl

x = 10 * 10

CBut.Caption = Format(CStr(x), "000.00 €")

End Sub      Hubert













geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: