Workspace.Active

Property Active As Boolean

Member of Workspace

The Active property returns whether a workspace is currently active in CorelDRAW.

The Active property returns a read-only value.

The following code example displays a list of all workspaces and whether each workspace is the active workspace:

Sub Test() 
Dim Ws As Workspace 
 For Each Ws In Workspaces 
  s = s & Ws.Name & " - Active: " & Ws.Active & vbCr 
 Next Ws 
 MsgBox "Workspaces: " & vbCr & s 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.