StructFontProperties.Size

Property Size As Single

The Size property returns or sets the size of a font in points.

The following code example creates a centered text shape and applies a font face and size (Arial, 18 pt) 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