CorelDRAW:Workspaces

From OberonPlace Development Portal

Workspaces Class

The Workspaces Class represents the collection of all of the workspaces in CorelDRAW.

• This class supports item enumeration using For Each construct

Remarks

No information is available. Edit this section to add it

Examples

The following example will change your workspace to the Adobe layout. If you want it change to the default it would be 2, or a custom workspace 3 or above:

Sub ChangeWorkSpace()
    Workspaces.Item(1).Activate
End Sub

You may also select the workspace by name like this:

Sub ChangeWorkSpace()
    Workspaces("Adobe(R)Illustrator(R)").Activate
End Sub

The following lists all available workspaces:

Sub WorkspaceCollection()
    Dim ws As Workspace
    Dim s As String
 
    For Each ws In Workspaces
        s = s & ws.Name & vbCr
    Next ws
 
    MsgBox "The application contains the following workspaces: " & vbCr & s
    Set ws = Nothing
End Sub

Version Information

• CorelDRAW: Available since version 9
• Corel DESIGNER: Available since version 10

References

• Workspaces Members