Syntax:
Property Get Size() As Single
Property Let Size(ByVal Value As Single)
Remarks:
The Size property returns or specifies the size of a font, in points.
Examples:
The following VBA example creates a centered text shape and applies 18-point Arial font to it.
Sub Test()
Dim s As Shape
Dim x As Double, y As Double
x = ActivePage.SizeWidth / 2
y = ActivePage.SizeHeight / 2
Set s = ActiveLayer.CreateArtisticText(x, y, "Some Text String" & vbCr & "With Two Lines")
s.Text.AlignProperties.Alignment = cdrCenterAlignment
With s.Text.FontProperties
  .Name = "Arial"
  .Size = 18
End With 
End Sub