idMso-Werte auslesen
25.10.2012 15:47:46
Hase
kann man per VBA oder xml die idMso-Werte von
Excel auslesen?
Unter
Symbolleiste für den Schnellzugriff anpassen
Weitere Befehle...
kann man die idMso-Werte in Klammern sehen, wenn man den
Mauszeiger ruhig hält. Eine komplette Liste würde ich
allerdings besser finden. Im Internet sind zwar Listen.
Wenn man Erweiterungen installiert, kommen neue idMso-Werte
dazu. Jedes mal über die Symbolleiste für den Schnellzugriff zu
gehen ist mir zu umständlich.
Schriftarten kann man z. B. mit folgendem Makro auslesen:
Sub SchriftartenLesen()
Dim CBC As CommandBarControl
Dim iCnt As Integer, strTxt As String
Application.ScreenUpdating = False
strTxt = InputBox("Testtext:", "")
If strTxt = "" Then Exit Sub
Set CBC = Application.CommandBars.FindControl(ID:=1728)
For iCnt = 1 To CBC.ListCount
With Cells(iCnt, 2)
.Value = strTxt
.Font.Name = CBC.List(iCnt)
End With
Cells(iCnt, 1) = CBC.List(iCnt)
Next iCnt
Columns("A:B").AutoFit
Application.ScreenUpdating = True
End Sub
Vielleicht muss man das Makro nur etwas zum
Auslesen der idMso-Werte ändern. Von der Aufteilung
der Tabelle mit 2 Spalten wäre diese Art zum Auslesen der
idMso-Werte nämlich gut geeignet.
1. Spalte Befehl
2. Spalte idMso-Wert
Gruß Hase
Anzeige