Autoform/AutoShape Namenskonflikt
31.12.2008 18:15:53
Andreas
habe hier schon super Beiträge gelesen, die mir schon bei vielen Fragen eine Antwort gegeben haben.
Das Wissen hier in dieser Sammlung ist für ein Programmierer schon eine wahre Fundgrube!
Jetzt stehe ich wieder mal vor einer Frage und hoffe hier einen kleinen Tipp zu bekommen.
Habe folgendes Problem:
Da mein Programm auch auf einem anderen Rechner mit anderer Ländereinstellung(englisch) laufen soll,
kommt es automatisch zur Umbenennung von Autoformen.
D.h z.B aus
Sheets("Settings").Shapes("AutoForm 5").Select (auf deutsch eingestellter Rechner)
wird
Sheets("Settings").Shapes("AutoShape 5").Select (auf englisch eingestellter Rechner)
Man könnte die Autoformen über den Index ansprechen.
Nur mal angenommen:
If shp.ID = 59396 Then shp.Select
Meine Frage1:
Kann es passieren, dass sich die ID auf einem anderen Rechner ändert,
weil sich die Zählung auf einem "jungfreulichen" Rechner zurücksetzen könnte?
Wenn sich die ID von einem Autoshape nicht ändert, kann ich alle Shapes über die
ID ansprechen und entsprechend ändern, ohne von der Spracheinstellung des Rechners abhängig
zu sein.
Zweiter Punkt:
Das gleiche Problem habe ich auch bei der Sprachumstellung mit der Menü-Einstellung:
hier mein Code:
Sub MenueMakro_verhindern()
Application.CommandBars(1).Controls("Extras").Controls("Makro").Enabled = False
Application.OnKey "%{F11}", ""
End Sub
Sub MenueMakro_erlauben()
Application.CommandBars(1).Controls("Extras").Controls("Makro").Enabled = True
Application.OnKey "%{F11}"
End Sub
Die Menü-Punkt Extras ändert sich zu Tools und Makro ändert sich zu Macro
Wäre es nicht besser, diese Menüpunkte über einen Index anzusprechen oder
gibt es da wieder neue Probleme?
Würde mich sehr freuen über eine Antwort!!!
Gruß Andreas