Size Property Example

This example sets the size of the text attached to shape one on slide one to 24 points.

Application.ActivePresentation.Slides(1) _
    .Shapes(1).TextFrame.TextRange.Font _
    .Size = 24