Profile View Style Example

' Get the first style in the document's collection of styles.
Dim oProfileViewStyle as AeccProfileViewStyle
Set oProfileViewStyle = oDocument.ProfileViewStyles.Item(0)
 
' Adjust the top axis. Put station information here, with
' the title at the far left.
 
With oProfileViewStyle.TopAxis
    .DisplaySyle2d.Visible = True
    ' Modify the text to display meters in decimal
    ' format.
    .MajorTickStyle.Text = "<[Station Value(Um|FD|P1)]> m"
    .MajorTickStyle.Interval = 164.041995
    Dim dPoint(0 To 2) As Double
    dPoint(0) = 0.13
    dPoint(1) = 0#
    .TitleStyle.Offset = dPoint
    .TitleStyle.Text = "Meters"
    .TitleStyle.Position = aeccStart
End With
 
' Adjust the title to show the alignment name.
oProfileViewStyle.GraphStyle.TitleStyle.Text = _
  "Profile View of:<[Parent Alignment(CP)]>"