ich moechte die Werte des eingebauten Dialogs xlDialogFontProperties auslesen, nachdem ich ihn angezeigt habe, um die Einstellungen des Benutzers speichern zu koennen.
' Code fuer Excel
Private Sub FontDialog()
Dim FDialog As Dialog
Set FDialog = Application.Dialogs(xlDialogFontProperties)
FDialog.Show
MsgBox FDialog.Font
End Sub
Ich erhalte allerdings nur den Laufzeitfehler '438': Objekt unterstuetzt diese Eigenschaft oder Methode nicht, obwohl 'Font' als Property in der Liste der eingebauten Dialoge angegeben ist.
Wenn ich denselben Code mit einem entsprechenden Dialog in VBA fuer Word starte, funktioniert diese Vorgehensweise ohne Probleme.
' Code fuer Word
Private Sub FontDialog()
Dim FDialog As Dialog
Set FDialog = Application.Dialogs(wdDialogFormatAddrFonts)
FDialog.Show
MsgBox FDialog.Font
End Sub
Wie kann ich die Werte auch in Excel abfragen?
Danke fuer die Muehe,
Stefan