ShowFontDialog Method

Displays the Font dialog box and returns a String that represents the Cascading Style Sheet properties for the font properties selected in the Font dialog box. A value is returned when the users clicks OK. If the user clicks Cancel, an empty String is returned.

expression.ShowFontDialog(strCSSIn)

expression    Required. An expression that returns one of the objects in the Applies To list.

strCSSIn    Optional Variant. A String that represents the initial custom settings for the dialog box.

Example

The following example displays the Font dialog box, and then sets the font style for the active element to the font settings returned.

    Dim strCSS As String
Dim strCSSIn As String

strCSSIn = "font-size:14pt; color:#FF0000"

strCSS = Application.ShowFontDialog(strCSSIn)
If strCSS <> "" Then ActiveDocument _
    .activeElement.Style.Font = strCSS