StructFontProperties.Size

Property Size As Single

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

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