Italic Property Example

This example sets the title text on slide one and makes the title blue and italic.

With Application.ActivePresentation.Slides(1) _
        .Shapes.Title.TextFrame.TextRange
    .Text = "Volcano Coffee"
    With .Font
        .Italic = True
        .Name = "palatino"
        .Color.RGB = RGB(0, 0, 255)
    End With
End With