Excel97, VBA menu programming by ID Number.

  • Thread starter Thread starter Bubu
  • Start date Start date
B

Bubu

Excel97, VBA menu programming by ID Number.

i have the Italian version of Excel97 and there is
not way that i known to patch it to american English
language, to have formulas and menu in english.



For my Excel97 the following code ...

CommandBars("Worksheet menu bar").Controls("Help").Delete

Does not mean anything, because is Italian Version,
and instead of "Help" it has "?"

So the following code is appropriate for the version.

There is a common ID number for any version of Excel.

Is better to use the ID Numbers when programming,
to have more compatibility,



I know how to restore a menu by name or by ID Number,

Sub Restore_by_name()
CommandBars("Worksheet menu
bar").Controls.Add(Type:=msoControlPopup).Caption = "?"
End Sub
Sub Restore_by_ID_Number()
CommandBars("Worksheet menu bar").Controls.Add Type:=msoControlPopup,
Id:=30010, before:=10
End Sub

I know how to delete a menu only by name,

Sub Delete_by_name()
CommandBars("Worksheet menu bar").Controls("?").Delete
End Sub

Sub Delete_by_ID_Number()
' ?
End Sub


How can i delete it by ID Number ?

Any Help ?

Thanks,

Robert.
 
Excel97, VBA menu programming by ID Number.

i have the Italian version of Excel97 and there is
not way that i known to patch it to american English
language, to have formulas and menu in english.



For my Excel97 the following code ...

CommandBars("Worksheet menu bar").Controls("Help").Delete

Does not mean anything, because is Italian Version,
and instead of "Help" it has "?"

So the following code is appropriate for the version.

There is a common ID number for any version of Excel.

Is better to use the ID Numbers when programming,
to have more compatibility,



I know how to restore a menu by name or by ID Number,

Sub Restore_by_name()
CommandBars("Worksheet menu
bar").Controls.Add(Type:=msoControlPopup).Caption = "?"
End Sub
Sub Restore_by_ID_Number()
CommandBars("Worksheet menu bar").Controls.Add Type:=msoControlPopup,
Id:=30010, before:=10
End Sub

I know how to delete a menu only by name,

Sub Delete_by_name()
CommandBars("Worksheet menu bar").Controls("?").Delete
End Sub

Sub Delete_by_ID_Number()
' ?
End Sub


How can i delete it by ID Number ?

Any Help ?

Thanks,

Robert.
 
Back
Top