ApplyCustomDropCap Method

Microsoft Publisher Visual Basic

expression.ApplyCustomDropCap(LinesUp, Size, Span, FontName, Bold, Italic)

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

LinesUp   Optional Long. The number of lines to move up the drop cap. The default is 0. The maximum number cannot be more than the number entered for the Size argument less one.

Size   Optional Long. The size of the drop cap letters in number of lines high. The default is 5.

Span   Optional Long. The number of letters included in the drop cap. The default is 1.

FontName   Optional String. The name of the font to format the drop cap. The default is the current font.

Bold   Optional Boolean. True to bold the drop cap. The default is False.

Italic   Optional Boolean. True to italicize the drop cap. The default is False.

Example

This example formats the first three letters of the paragraphs in the specified text box.

Sub CustDropCap()

    ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange.DropCap _
        .ApplyCustomDropCap LinesUp:=1, Size:=6, Span:=3, _
        FontName:="Script MT Bold", Bold:=True, Italic:=True

End Sub