Ballon-tekst

Vis
Værktøjslinier
Tilpas
Når du har trykket på Tilpas kan du højreklikke på ikonet og ændre navnet. Det er det tredje felt.

taget direkte fra hjælpen. desværre viser du ikke koden så kunne det have været tilpasset. (se i hjælp under CommandBarButton object)
Set myBar = CommandBars.Add("Custom", msoBarTop, , True)
myBar.Visible = True
Set myControl = myBar.Controls _
    .Add(Type:=msoControlButton, ID:= _
    CommandBars("Standard").Controls("Paste").ID)
With myControl
    .DescriptionText = "Pastes the contents of the Clipboard"
    .Caption = "Paste"
End With

"jefa"'s svar er rigtigt.
Husk at lade "&" stå, når du ændrer teksten.

Det kan godt være, at "Bak"'s svar også er rigtigt, men det ser mere kompliceret ud for mig.

Hilsen KOL

Yess, mit er mere kompliceret, men han bad om en makro, til at gøre det med

Kompliceret og forkert (pokkers).
prøv denne:
Erstat TBC1 med navnet på din egen værktøjslinie og Controls(1) med dit eget nummer.

Sub QuickInfo()
CommandBars("TBC1").Controls(1).TooltipText = "Min information"
End Sub

<bak<

Du har ret. Der blev bedt om en makro.

"Man tænker så dejligt, når man har talt"

Hilsen KOL

Dejlig sætning. Jeg tror jeg tager den til mig :-)

Det virker:

MyControl.TooltipText = "Min information"

Tak for hjælpen.
mvh
Johannes