StructAlignProperties.Alignment

Property Alignment As cdrAlignment

The Alignment property returns or sets the alignment (that is, justification).

The Alignment property returns a value of cdrAlignment.

The following code example creates a text object in the center of the page:

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, "A Text String" & vbCr 
& _ 
  "With Two Lines") 
 s.Text.AlignProperties.Alignment = cdrCenterAlignment 
End Sub