Ekstra Mneu i excel 2010
HejJeg har haft denne kode til at lave ekstra Cammand linje i office -- har så prøvet den i excel 2010 - hvor den kommer med under tilføjelses programmer -- Fint nok -- men nu ønsker jeg den ikke mere og kan ikke se hvordan jeg kommer af med den igen?
Koden for den ekstra menu er;
Sub Auto_Open()
Dim oCommandBar As CommandBar
Dim oControlInsert As CommandBarButton
On Error Resume Next
Set oCommandBar = CommandBars.Item("KPC")
If oCommandBar Is Nothing Then
Set oCommandBar = CommandBars.Add("KPC", msoBarTop, False, False)
With oCommandBar
Set oControlInsert = .Controls.Add(msoControlButton)
Set oControlindhold = .Controls.Add(msoControlButton)
.Position = msoBarTop
.Visible = True
End With
With oControlInsert
.BuiltInFace = True
.FaceId = 218
.Style = msoButtonIconAndCaption
.Caption = "Indsæt"
.TooltipText = "Indsæt billeder"
.OnAction = "Mod_pictures.COUNTROWS"
End With
With oControlindhold
.BuiltInFace = True
.FaceId = 11
.Style = msoButtonIconAndCaption
.Caption = "Indholdsfortegnelse"
.TooltipText = "Indhold"
.OnAction = "Mod_Content.Content"
End With
Else
oCommandBar.Position = msoBarTop
oCommandBar.Visible = True
End
End If
End Sub
