Alignment not working in Corel VBA
Code:
Sub Kramank()
ActiveDocument.BeginCommandGroup "Kramank"
ActiveDocument.Unit = cdrCentimeter
If ActiveShape.Text.IsArtisticText = True Then
Exit Sub
End If
Dim Val As String
Val = InputBox("Width?", "Paragraph Width")
If StrPtr(Val) = False Then Exit Sub
ActiveShape.SetSize Val - 0.1
ActiveShape.Text.Story.Alignment = cdrFullJustifyAlignment
ActiveShape.Text.Story.Tabs.Clear
ActiveShape.Text.Story.Tabs.Add Val - 0.1, cdrTextTabRight
ActiveShape.Text.Story.ParaSpacingBefore = 87
ActiveShape.AlignToPage cdrAlignHCenter
ActiveDocument.EndCommandGroup
End Sub
Here, Alignment to horizontal center of page not working. what wrong here ? please help