Returns or sets the character size, in points. Read/write Single.
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