Hallo Kai,
Kennt jemand eine Möglichkeit die Menues und Tastaturkürzel
von Open-Office möglichst nah an Excel (2000) anzupassen?
ich nicht.
Kann man nun aber z. B. die Menues (v.a. die Tastencodes mit
ALT) über eine Werkzeugleiste oder sowas laden, damit man mit
den selben eingeübten Codes (z. B. Alt+T+L+O = opt.
Spaltenbreite
In OO ist das Alt+f+p+o+OK.
Das hieße für dich alle Tastenkombinationen doppelt zu lernen 
und RechteMaustaste-Taste auf der Tastatur+N+W =
Werte einfügen usw.)
In OO wäre das theoretisch Alt+b+h+z+OK, aber das klappt nicht durch Häkchenvorbelegung durch OO.
Für die opt. Spaltenbreite könntest du das Makro OptSpalte ausführen.
Allerdings muß man da wohl die Spaltenbreite vorgeben, zumindest weiß ich grad nicht was da die Value=200 so genau bedeutet ist ein von OO aufgezeichnetes Makro. Das OK fehlt auch noch.
In Excel könnte man mit „Sendkys“ die tastenfolge ins Blatt senden, aber das gibt es ei OO nicht.
Um ein Zeichen in OO ins Blatt zu schicken, rufe die Sub tt auf.
Sie sendet den key 65 ins Blatt, genauer ins aktive Fenster.
65 ist dann ein a, 97 eine 1.
Wie man damit damit Alt+f+p+o+OK nacheinander ans Blatt schicken kann ist noch zu klären.
Wie auch immer das jetzt hilfreich war, du siehst, es fibt da Schwierigkeiten deinen Wunsch umzusetzen.
Gruß
Reinhard
Declare function keybd\_event Lib "user32.dll" ( ByVal bVk As Long, ByVal bScan As Long, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
sub tt
call sendsomekey 65
end sub
sub SendSomeKey(ByVal lKey as Integer) 'lKey is the ASCII code
call keybd\_event(lKey, 0, 0, 0)
'call keybd\_event(lKey, 0, 2, 0)
end sub
sub OptSpalte
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "aExtraWidth"
args1(0).Value = 200
dispatcher.executeDispatch(document, ".uno:SetOptimalColumnWidth", "", 0, args1())
end sub