UpperRight Example
Sub Example_UpperRight()
' This example returns the Datum Elevation for the first ProfileBlock
' in the collection.
Dim alignProf As AeccProfileBlock
Set alignProf = AeccApplication.ActiveDocument.ProfileBlocks.Item(0)
Dim coords As Variant
coords = alignProf.UpperRight
MsgBox "The UpperRight coordinates for the first Alignment Profile are:" & vbCrLf & _
"X Value: " & Format(coords(0), "0.00") & vbCrLf & _
"Y Value: " & Format(coords(1), "0.00"), vbInformation, "UpperRight Example"
End Sub