Rückgabewerte von Application.Dialogs(wdDialogFormatDefineStyleFont) ?

09/06/2008 - 12:06 von Oliver | Report spam
Guten Tag miteinander

Ich habe eine Funktion gebastelt, welche das Dialogfeld "Zeichen .."
öffnet.
Siehe unten.

Nun habe ich nicht verstanden, wie ich an die Rückgabewerte komme.
Ich möchte alle gewàhlten Optionen (Farbe, Schrift, Stil, ...) an ein
Textfeld übergeben.
Wie mache ich das?

In unten stehenden Makro ist es mir gelungen, den Farbwert als
zweistellige Zahl zu erhalten.
Es scheint aber nicht der RGB Wert zu sein - Schwarz ist z.B 01.

Kann mir jemand helfen?

Gruss
Oliver



Code:
Function getColor() As Integer

' Danke an http://www.tech-archive.net/Archive...00416.html

Dim MyFontDlg As Dialog
Static MyFontColor
Static MyFontStyle
Dim res

Set MyFontDlg = Application.Dialogs(wdDialogFormatDefineStyleFont)
MyFontDlg.Color = MyFontColor


res = MyFontDlg.Display

MyFontColor = MyFontDlg.Color


Debug.Print ("Font Color:" & MyFontColor)


getColor = MyFontColor


End Function
 

Lesen sie die antworten

#1 Thomas Gahler
09/06/2008 - 16:57 | Warnen spam
Hallo Oliver


Nun habe ich nicht verstanden, wie ich an die Rückgabewerte komme.
Ich möchte alle gewàhlten Optionen (Farbe, Schrift, Stil, ...) an ein
Textfeld übergeben.
Wie mache ich das?


Gemàss Hilfe hat der Dialog diese Argumente.

Kommst du damit klar?

wdDialogFormatDefineStyleFont
Points, Underline, Color, StrikeThrough, Superscript, Subscript, Hidden,
SmallCaps, AllCaps, Spacing, Position, Kerning, KerningMin, Default, Tab,
Font, Bold, Italic, DoubleStrikeThrough, Shadow, Outline, Emboss, Engrave,
Scale, Animations, CharAccent, FontMajor, FontLowAnsi, FontHighAnsi,
CharacterWidthGrid, ColorRGB, UnderlineColor, PointsBi, ColorBi, FontNameBi,
BoldBi, ItalicBi, DiacColor



Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen