Flyt på Menulinjer ved hjælp af Macro
Er det muligt at flytte på en menulinje udover top, bund, hæjre og venstre?Problemet er at jeg er blevet helt vild med at lave egne linealer til mine designede tilføjelsesprogrammer.
Koden: CommandBars("??").Position = msoBarBottom
tillader kun de fire før nævnte, hvis jeg lavet meget mere end 5 som alle skal ned i bunden så har jeg ikke meget plads til regnearket da menulinjerne kommer under hinanden i stedet for ved siden af hinanden.
Derfor når jeg bruger koden:
Public Sub Auto_Open()
Dim ctlClock As Object
Application.CommandBars.Add Name:="Clock"
CommandBars("Clock").Visible = True
Set ctlTKClock = Application.CommandBars("Clock").Controls.Add _
(Type:=msoControlButton, ID:=2950, Before:=1)
With ctlClock
.FaceId = 2146
.OnAction = "VisClock"
End With
CommandBars("Clock").Position = msoBarBottom
End Sub
for et par tilføjelsesprogrammer så skal man manuelt ind og flytte menulinjerne for at få størst mulig skærm. Er det muligt at flytte menulinjerne i bunden eller for oven?
