ActiveProject Example

Land Auto

previous page next page

ActiveProject Example 

Sub Example_ActiveProject()
    
    ' This example returns the name of the ActivProject.
    Dim activeProj As AeccProject
    Set activeProj = AeccApplication.ActiveProject
    
    MsgBox "The ActiveProject is: " & activeProj.Name, _
    vbInformation, "ActiveProject Example"
    
End Sub

previous page start next page