Egen meny visas inte längre

[Falken110]

Hej

 

Följande kod visar ett tillägg när man högerklickar i en cell.

Det har fungerat i flera år men nu kommer en användare (av ca 100) där tillägget inte dyker upp.

Han har fått göra en repair på office 2010 och det var då det försvann.

 

vad kan det bero på?

Måste man installera om?

 

Sub NewPopUpMenuItem()
Dim newSubItem As Object
On Error Resume Next
CommandBars("Cell").Controls("Produktionskörschema").Delete
On Error GoTo 0

CommandBars("Cell").Controls.Add(Type:=msoControlPopup, before:=1).Caption = "Produktionskörschema"


   Set newSubItem = CommandBars("Cell").Controls("Produktionskörschema")
   With newSubItem
   .Controls.Add(Type:=msoControlButton).Caption = GetLanguage(4, 0)

   .Controls(GetLanguage(4, 0)).OnAction = "MenyStop"
   End With

   Set newSubItem = CommandBars("Cell").Controls("Produktionskörschema")
   With newSubItem
   .Controls.Add(Type:=msoControlButton).Caption = "Aktivitet"

   .Controls("Aktivitet").OnAction = "MenyAktivitet"
   End With

   Set newSubItem = CommandBars("Cell").Controls("Produktionskörschema")
   With newSubItem
   .Controls.Add(Type:=msoControlButton).Caption = "Normal drift"
   .Controls("Normal drift").OnAction = "NormalDrift"
   End With

   Set newSubItem = CommandBars("Cell").Controls("Produktionskörschema")
   With newSubItem
   .Controls.Add(Type:=msoControlButton).Caption = "Simulering"
   .Controls("Simulering").OnAction = "Simulering"
   End With

   Set newSubItem = CommandBars("Cell").Controls("Produktionskörschema")
   With newSubItem
   .Controls.Add(Type:=msoControlButton).Caption = "Historik"
   .Controls("Historik").OnAction = "GetHistori"
   End With

End Sub
Sub NewPopUpMenuItemStaffing()
Dim newSubItem As Object
On Error Resume Next
CommandBars("Cell").Controls("Historik").Delete
On Error GoTo 0

CommandBars("Cell").Controls.Add(Type:=msoControlPopup, before:=1).Caption = "Historik"


   Set newSubItem = CommandBars("Cell").Controls("Historik")
   With newSubItem
       .Controls.Add(Type:=msoControlButton).Caption = "Historik"
       .Controls("Historik").OnAction = "GetHistoriStaffing"
   End With

End Sub

 

Mvh

Falken

[Monshi]

Jag antar att koden körs när en viss arbetsbok startar och att menyerna helt enkelt inte dyker upp som de ska.

 

Då borde en reparation inte påverka, borde inte.

 

Testa att skapa en ny bok där du lägger in en liten testmeny. Fungerar denna?

[Falken110]

Hej

 

Koden körs varje gång bladet väljs.

 

Har även en meny som är helt egen, alltså inget tillägg till en ordenarie meny, och den fungerar utan problem.

 

Har inte datorn här just nu så jag kan testa ditt förslag.

En annan sak jag tänkt pröva är att ta bort "ö" och se om det hjälper.

Hade ett konstigt fel när det gällde fliknamn en gång och det berodde på att "åäö" fanns med i namnet.

 

Mvh

Falken

[Monshi]

Åäö är oftast säkert men skadar inte att testa...

 

 

Om du nu inte har en vidare On Error Resume Next eller liknande när du kör koden borde ett felmeddelande poppa upp om namnet inte godtas kan man tycka men VBA gör inte alltid som vi tycker så att säga.

 

Lycka till

[Falken110]

Hej

 

Problemet löst!

Kom ihåg ett mail från centralt it att det fanns någon fil i App-data som kunde göra excel långsamt och att det bara var att ta bort den.

Gjorde detta och sedan funkade det.