CurveLabelIncrement Example

Land Auto

previous page next page

CurveLabelIncrement Example 

Sub Example_CurveLabelIncrement()
    
    ' This example returns the CurveLabelIncrement for the first ProfileBlock
    ' in the collection
    Dim alignProf As AeccProfileBlock
    Set alignProf = AeccApplication.ActiveDocument.ProfileBlocks.Item(0)
    
    MsgBox "The CurveLabelIncrement for the first ProfileBlock in the collection is: " _
         & alignProf.CurveLabelIncrement, vbInformation, "CurveLabelIncrement Example"
    
End Sub

previous page start next page