Macro Programming Guide
Macro Programming Guide
Contents
Introduction . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 4
About this resource . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 4
About additional resources . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 5
Understanding automation . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 8
What is automation? . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 8
Which automation environments are supported? . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 9
What is VBA?. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .10
What is VSTA? . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .12
What are the main elements of automation? . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 13
What is an object model? . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .14
What is a class? . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .14
What is a collection? . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .15
What is a property?. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .15
What is a method? . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .16
What is an event? . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .16
What is an enumeration? . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .16
What is a constant?. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .16
How is automation coding structured? . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 16
Declaring variables . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .17
Using functions and subroutines. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .18
Ending lines. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .19
Including comments . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .19
Allocating memory . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .19
Defining scope . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .20
Using Boolean comparison and assignment . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .20
Using logical and bitwise operators . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .21
Providing message boxes and input boxes . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .22
Referencing objects . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .22
Referencing collections . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .23
Using object shortcuts. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .25
Providing event handlers . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .25
Creating macros . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 45
Creating macro projects . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 45
Glossary. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 152
Index . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 158
In this resource
This resource contains the following sections.
Section Description
“Getting started with macros” on page 28 Overview of the macro-related tools and
features of the software
“Creating macros” on page 45 How to write, record, run, and debug macros
“Organizing and deploying macros” on How to organize and deploy the macros you
page 71 create
“Understanding the object models” on Overview of the most important features and
page 74 functions of the CorelDRAW object model
Also included is a glossary (see page 152), which defines many of the key terms used in this documentation.
Most of the code examples provided in this documentation are written in VBA.
In this sectionl
This section contains the following topics:
• “About this resource” on page 4
• “About additional resources” on page 5
Documentation conventions
The following table explains the documentation conventions used in this resource.
<text in italics and between angle brackets> A placeholder for user-specified information,
such as a path or filename
monospace text A reference to coding
Macro Help for Corel PHOTO-PAINT Provides comprehensive information about the
Corel PHOTO-PAINT object model and the macro-related
features and functions of the application
pp_om.chm
For a more basic introduction to macros, please see the topic “Working with macros” in the main Help
file for the application. You can access the main Help from within an application by clicking Help Help
topics.
CorelDRAW website Provides the latest news, tips and tricks, and information about
upgrades
www.corel.com/coreldraw
Corel® Support Services website Provides prompt and accurate information about product
features, specifications, pricing, availability, services, and technical
support
www.corel.com/support
Corel® Knowledge Base™ Provides a repository of articles written by the Corel Technical
Support Services team in response to questions by users
www.corel.com/knowledgebase
CorelDRAW (and Corel DESIGNER) online Provides interaction with other users through sharing
community experiences, asking questions, and receiving help and suggestions
www.coreldraw.com
In this section
This section contains the following topics:
• “What is automation?” on page 8
• “Which automation environments are supported?” on page 9
• “What are the main elements of automation?” on page 13
• “How is automation coding structured?” on page 16
What is automation?
Many actions that you perform in the software can be combined with other, related actions into a single
automated solution. Automating repetitive tasks saves time, reduces effort, and lets you perform operations that
are too complex to perform manually.
Automation can be used by programmers and nonprogrammers alike.
This documentation does not teach programming skills to nonprogrammers; rather, it helps experienced
programmers develop useful solutions within the software. If you are not a programmer, you may want
to refer to other programming-related resources before continuing to read this documentation.
What is a macro?
Most macros are created to automate a series of tasks within an application. The simplest meaning of the term
“macro” is the recording of a group of related actions that can be played back automatically, in sequence,
whenever you need to perform them. Macros consist of instructions that are written in a programming language,
and some programming languages provide access to additional, more advanced, actions that cannot be recorded.
For the purposes of this documentation, a macro refers to a coded solution that performs tasks in the
application by automating functions and subroutines (see “Using functions and subroutines” on page 18).
Although you can record a sequence of actions in the software, the real power of automation is that you can add
conditions and looping mechanisms to a recording. As an example, let’s consider a simple macro that applies a
red fill and a 1-point outline to a selected shape. By adding a condition and a looping mechanism to the code,
you can produce a macro that seeks out each selected shape and applies only the fill to text shapes and only the
outline to all other shape types.
After you create a macro, you can ensure that it has the desired outcome by stepping through its code one line a
a time, or “debugging” it. When you are happy with the macro, you can keep it for future use and even share it
with others.
What is VBA?
Microsoft Visual Basic for Applications (VBA) is a built-in programming environment that can be used to
automate repetitive functions and create intelligent solutions in the software that supports it. VBA is a subset of
the Microsoft Visual Basic (VB) object-driven programming environment. Usually, VBA is integrated into
another application to customize functionality within that application.
VBA is both a language and an editor. The VBA language cannot be used without its editor, and the VBA editor
is the only utility in which VBA code can be edited or VBA programs can be run.
The VBA language is an event-driven programming language. In other words, it is used to write code that
produces a response to an action, such as clicking a button or choosing an option from a list box. When the
action occurs, the appropriate event is called, and the code for that event is executed. Events can be simple or
complex. For instance, you can code a single line that displays a message box or write an entire procedure that
interacts with a database.
With traditional procedural programming (or “object-driven programming”), the program starts at the
first line and executes one line at a time. VB provides an example of an object-driven programming
environment.
Most of the code examples provided in this documentation are written in VBA.
The VBA editor — called the “Macro Editor” (formerly the “Visual Basic Editor”) in CorelDRAW and
Corel PHOTO-PAINT — is an integrated development environment (IDE) that lets you manipulate the objects
that are exposed by the object model of the application. To help you code macros, the Macro Editor provides
context-sensitive Help for all the object-model elements that are available to you.
VBA is an in-process automation controller. In other words, VBA can be used to control software features that
can be automated, and VBA runs efficiently by bypassing the interprocess synchronization mechanisms.
However, the automation that the in-process VBA can access can also be accessed by the following:
• external out-of-process automation controllers (OLE clients)
• applications that are developed in programming languages (such as VB, Visual C++,
Windows® Script Host, and C++) that can be used to develop OLE clients
• the VBA engines of other applications
VBA provides a set of tools for customizing the graphical user interface of the software. These tools let you
process and present data efficiently and effectively. Advantages of using VBA include the following:
• familiarity of the VB language
• rapid application development (RAD) IDE
What is VSTA?
The successor to VBA, Microsoft Visual Studio Tools for Applications (VSTA) is based on
Microsoft Visual Studio 2012. In CorelDRAW and Corel PHOTO-PAINT, the VSTA feature supports the .NET
framework and enables development in two programming languages: Visual Basic .NET and Visual C#.
Most of the code examples provided in this documentation are written in VBA.
The VSTA Editor in CorelDRAW and Corel PHOTO-PAINT is an integrated development environment (IDE)
that lets you create VSTA solutions for the software.
To use the VSTA macro features with CorelDRAW and Corel PHOTO-PAINT, you must have
Microsoft Visual Studio 2012, Professional, Ultimate, or Premium installed.
If you install Microsoft Visual Studio after installing CorelDRAW Graphics Suite, you must re-install the
VSTA macro features by modifying your CorelDRAW Graphics Suite installation.
In this topic
This topic contains the following subtopics:
• “What is an object model?” on page 14
An object requires its full hierarchical (or “fully qualified”) reference unless a shortcut is available to it (or unless
it has an implicit or implied meaning). An object shortcut is merely a syntactic replacement for the long-hand
version of an object. For example, the shortcut object ActiveLayer replaces the long-hand version
Application.ActiveDocument.ActivePage.ActiveLayer, while the object shortcut ActiveSelection
replaces the long-hand version Application.ActiveDocument.Selection.
For more information on object shortcuts, see “Using object shortcuts” on page 25.
What is a class?
A class is the definition or description of an object. A class outlines the properties, methods, and events that
apply to a type of object in an application; it acts as a template for all objects of that type class. To use a
What is a collection?
A collection is similar to an array of objects; it is an object that contains a group of objects that are similar in
type. These objects share the same properties, methods, and events, and they are uniquely identified within the
collection by their index number or their name. Collection objects act in the same manner and are always plural.
For example, Documents represent the Documents collection class in the software program. However,
Documents.Item(1) references the first Document object in that collection.
What is a property?
A property is like an adjective in that it represents an attribute or characteristic quality of an object. Properties
can be returned or set, or they can be read-only.
Most classes have properties. As an illustration, the properties of the class “car” are that it is small, it has an
engine, and it has four wheels. Every instance of the class “car” (that is, every object in that class) also has
properties such as color, speed, and number of seats. Read-only properties are fixed by the design of the class; for
example, the number of wheels or seats does not (usually) vary from car to car. However, other properties can be
changed after the object has been created; for example, the speed of the car can go up and down, and, with a bit
of help, its color can be changed.
In the context of CorelDRAW and Corel PHOTO-PAINT, Document objects have a name, a resolution, and
horizontal and vertical ruler units; individual shapes have outline properties and fill properties, as well as a
position and a rotation factor; and text objects have text properties, which may include the text itself. For
example, ActiveDocument.Name represents the Name property of a Document object; it specifies the name of
the active document.
What is an event?
An event is like a noun in that it represents an action that takes place within an object. An event is triggered by
an action, such as a mouse click, a key press, or a system timer. An event can be coded to trigger appropriate
response in its object.
For example, the ActiveDocument.AfterSave event triggers an action in the Document object after it has
been saved.
What is an enumeration?
An enumeration (also called an “enumerated type”) represents a fixed value in the procedures and functions of
the coding for a macro. Whereas a variable temporarily stores a changing data value, the value of an
enumeration does not change.
What is a constant?
A constant is an instance of an enumeration, and an enumeration groups similar constants together.
For example, cdrPageOrientation is an enumeration, yet it contains several constants, including
cdrPortrait and cdrLandscape.
In this topic
This topic contains the following subtopics:
• “Declaring variables” on page 17
• “Using functions and subroutines” on page 18
• “Ending lines” on page 19
• “Including comments” on page 19
• “Allocating memory” on page 19
Declaring variables
In VBA, the construction for declaring variables is as follows:
Dim foobar As Integer
The built-in data types are Byte, Boolean, Integer, Long, Single, Double, String, Variant, and several
other less-used types including Date, Decimal, and Object.
Variables can be declared anywhere within the body of a function, or at the top of the current module. However,
it is generally a good idea to declare a variable before it is used; otherwise, the compiler interprets it as a
Variant, and inefficiencies can be incurred at run time.
Booleans take False to be 0 and True to be any other value, although converting from a Boolean to a
Long results in True being converted to a value of –1.
To get more information about one of the built-in data types, type it in the Code window of the
Macro Editor, select it, and then press F1.
Data structures can be built by using the following VBA syntax:
Public Type fooType
item1 As Integer
item2 As String
End Type
The items within a variable declared as type fooType are accessed by using dot notation:
myTypedItem.item1 = 5
Declaring strings
Using strings is much simpler in VBA than in C. In VBA, strings can be added together, truncated, searched
forwards and backwards, and passed as simple arguments to functions.
To add two strings together in VBA, simply use the concatenation operator ( & ) or the addition operator ( + ):
string2 = string1 & " more text" + " even more text"
In VBA, there are many functions for manipulating strings, including InStr(), Left(), Mid(), Right(),
Len(), and Trim().
Declaring enumerations
To declare an enumeration in VBA, use the following construction:
Public Enum fooEnum
ItemOne
ItemTwo
ItemThree
End Enum
Declaring arrays
To declare an array in VBA, use parentheses — that is, the ( and ) symbols:
Dim barArray (4) As Integer
The value defines the index of the last item in the array. Because array indexes are zero-based by default, there
are five elements in the preceding sample array (that is, elements 0 thru 4, inclusive).
Arrays can be resized by using ReDim. For example, the following VBA code adds an extra element to barArray
but preserves the existing contents of the original five elements:
ReDim Preserve barArray (6)
Upper and lower bounds for an array can be determined at run time by using the functions UBound() and
LBound().
Multidimensional arrays can be declared by separating the dimension indexes with commas, as in the following
VBA example:
Dim barArray (4, 3)
End Sub
End Function
To force a function or sub to exit immediately, you can use Exit Function or Exit Sub (respectively).
Ending lines
In VBA, each statement must exist on its own line, but no special character is required to denote the end of each
line. (In contrast, many other programming languages use a semicolon to separate individual statements.)
To break a long VBA statement over two or more lines, each of the lines (other than the last line) must end with
an underscore ( _ ) preceded by at least one space:
newString = fooFunction ("This is a string", _
5, 10, 2)
You can combine several statements in a single VBA line by separating them with colons:
a = 1 : b = 2 : c = a + b
A VBA line cannot end with a colon. VBA lines that end with a colon are labels that are used by the Goto
statement.
Including comments
Comments in VBA — similarly to in ANSI, C++, and Java — can be created only at the end of a line.
Comments begin with an apostrophe ( ' ) and terminate at the end of the line.
Each line of a multi-line comment must begin with its own apostrophe in VBA:
a = b ' This is a really interesting piece of code that
To comment out large sections of VBA code, use the following syntax (similarly to in C or C++):
#If 0 Then ' That's a zero, not the letter 'oh'.
#End If
Allocating memory
VBA does not support C-style memory pointers. Memory allocation and garbage collection are automatic and
transparent, just as in Java and JavaScript (and some C++ code).
In the preceding VBA example, arguments long1 and long2 are both, by default, passed by reference.
Modifying either argument within the body of the function modifies the original variable; however, modifying
int1 does not modify the original because it is a copy of the original.
Defining scope
You can define the scope of a data type or procedure (or even an object). Data types, functions, and subroutines
(and members of classes) that are declared as private are visible only within that module (or file). By contrast,
functions that are declared as public are visible throughout all the modules; however, you may need to use fully
qualified referencing if the modules are almost out of scope — for example, if you are referencing a function in a
different project.
Unlike C, VBA does not use braces — that is, the { and } symbols — to define local scope. Local scope in VBA
is defined by an opening function or subroutine definition statement (that is, Function or Sub) and a matching
End statement (that is, End Function or End Sub). Any variables declared within the function are available
only within the scope of the function itself.
The following code, which is valid in C, C++, Java, and JavaScript, is invalid in VBA:
if( ( result = fooBar( ) ) == true )
For other Boolean comparisons, VBA uses the same operators as other languages (except for the operators for “is
equal to” and “is not equal to”). All the Boolean-comparison operators are provided in the following table.
Is equal to = ==
Alternatively, the preceding VBA code could be written in the following full long-hand form:
If ( a And b = True ) Or ( c And d = True ) = True Then
The following table provides a comparison of the four common VBA logical and bitwise operators, and the C-
style logical and bitwise operators that are used by C, C++, Java, and JavaScript.
Not ~ !
Or | ||
Xor ^
End If
You can also get strings from the user by using InputBox function:
Dim inText As String
inText = InputBox("Input some text:", "type here")
If Len(inText) > 0 Then
MsgBox "You typed the following: " & inText & "."
End If
If the user clicks Cancel, the length of the string returned in inText is zero.
For information on creating more complex user interfaces, see “Making macros user-friendly” on page 57.
Referencing objects
If you want to create a reference to an object so that you can treat that reference like a variable (sh, in the
following VBA example for CorelDRAW), you can use the Set keyword.
Dim sh As Shape
Set sh = ActiveSelection.Shapes.Item(1)
After you create this reference, you can treat it as though it were the object itself.
sh.Outline.Color.GrayAssign 35
If the selection is changed while sh is still in scope, sh references the original shape from the old selection and is
unaffected by the new selection. You cannot simply assign the object to the variable as in the following example:
Dim sh As Shape
sh = ActiveSelection.Shapes.Item(1)
You can also test whether a variable references a valid object by using the Nothing keyword.
If sh Is Nothing Then MsgBox "sh is de-referenced."
Objects do not need to be explicitly released. In most cases, VB releases the object upon disposal of the variable
when you exit the function or subroutine.
Referencing collections
Many objects are members of collections. A collection is similar to an array, except that it contains objects rather
than values. However, members of collections can be accessed in the same way as arrays. For example, a
collection that is used frequently in CorelDRAW is the collection of shapes on a layer: The object ActiveLayer
references either the current layer or the layer that is selected in the Object Manager docker.
CorelDRAW contains many collections: A document contains pages, a page contains layers, a layer contains
shapes, a curve contains subpaths, a subpath contains segments and nodes, a text range contains lines and words,
a group contains shapes, and the application contains windows. All these collections are handled by VBA in the
same way.
Set sh = ActiveLayer.Shapes.Item(1)
Most elements of a collection start at 1 and increase. For the collection ActiveLayer.Shapes, Item(1) is the
item at the “top” or “front” of the layer — in other words, it is the item that is in front of all other shapes.
Furthermore, because each item in the ActiveLayer collection is an object of type Shape, you can reference any
item in VBA merely by appending the appropriate dot-notated member:
ActiveLayer.Shapes.Item(1).Outline.ConvertToObject
Sometimes, individual items have names. If the item you are looking for has an associated name (and you know
what the name is and which collection the item is in), you can use that name to reference the item directly, as in
the following VBA example for CorelDRAW:
Dim sh1 As Shape, sh2 As Shape
sh1.Name = "myShape"
Also, because an item is usually the implied or default member of a collection, it is not strictly required. For this
reason, the last line of the preceding VBA code can be rewritten as follows:
Set sh2 = ActiveLayer.Shapes("myShape")
count = ActiveLayer.Shapes.Count
The returned value is not only the number of items in the collection: Because the collection starts from 1, it is
also the index of the last item.
count = ActiveLayer.Shapes.Count
For I = 1 to count
ActiveLayer.Shapes.Item(i).SizeWidth = 10
End If
Next I
There is, however, a more convenient way of parsing a collection in VBA. Instead of using the Count property
and a For-Next loop, this technique uses a For-Each-In loop:
Dim sh As Shape
sh.SizeWidth = 10
End If
Next sh
If you want to copy the selection and then parse it later when it is no longer selected, copy the selection into a
ShapeRange object:
Dim sr As ShapeRange
Dim sh As Shape
Set sr = ActiveSelectionRange
For Each sh In sr
Next sh
ActiveLayer ActivePage.ActiveLayer
ActivePage ActiveDocument.ActivePage
ActiveSelection ActiveDocument.Selection
ActiveSelectionRange ActiveDocument.SelectionRange
ActiveShape ActiveDocument.Selection.Shapes(1)
ActiveView ActiveWindow.ActiveView
ActiveWindow ActiveDocument.ActiveWindow
For Corel PHOTO-PAINT, a shortcut can be used on its own as a property of the Corel PHOTO-PAINT
Application object. The following table provides these shortcuts and their long forms. (For a description of any
item, see the “Object Model Reference” section of the Corel PHOTO-PAINT Macros Help file [pp_om.chm].)
ActiveLayer ActivePage.ActiveLayer
ActiveWindow ActiveDocument.ActiveWindow
For CorelDRAW, the following shortcuts can also be used as members of a given Document object:
• ActiveLayer
• ActivePage
• ActiveShape
• ActiveWindow
For Corel PHOTO-PAINT, the following shortcuts can also be used as members of a given Document object:
• ActiveLayer
• ActiveWindow
For CorelDRAW, the Document object also has the properties Selection and SelectionRange, which let you
get the selection or selection range (respectively) from a specified document regardless of whether that document
is active.
Call LogFileOpen(FileName)
End Sub
Event Description
DocumentAfterSave Raised after a document is saved; passes the file name of the
document as a parameter
DocumentBeforePrint Raised before the Print dialog box is displayed
DocumentAfterPrint Raised after a document is printed
SelectionChange Raised when a selection changes
DocumentClose Raised before a document is closed
Quit Raised when the user quits the application
Event handlers for frequent events — such as events related to the Shape class — should be as efficient
as possible, to keep the application running as quickly as possible.
In this section
This section contains the following topics:
• “Setting up the automation feature” on page 28
• “Using the Macros toolbar” on page 29
• “Using the Macro Manager docker” on page 30
• “Using the Macro Editor” on page 31
• “Using the VSTA Editor” on page 43
2 6
3 7
Icon Item
macro project
folder
document or object
(CorelDRAW)
document or object
(Corel PHOTO-PAINT)
form
module
However, if the returned value from a function call is being discarded, or if you are calling a subroutine, the
parentheses must be left out (unlike in most other languages):
barFunc d, e
fooBarSub f
If you prefer always to see the parentheses, use the Call keyword before the function call or subroutine call:
Call barFunc (d, e)
Green Comment
White text on red background and red dot in the left Breakpoint set for debugging purposes
margin
For more information, see “Setting breakpoints” on
page 55.
Jumping to definitions
The Macro Editor lets you jump directly to the definition of a variable, function, or object.
Variable Right-click the variable in the Code The definition of the variable in the
window, and then click Definition. code
Function Right-click the function in the Code The definition of the function in the
window, and then click Definition. code
Object Right-click the object in the Code The definition of the object in the
window, and then click Definition. Object Browser
To return to where you requested the definition, right-click anywhere in the Code window, and then
click Last Position.
Copy to
Class list Clipboard
button
Member
list
Information
window
The Object Browser window (Corel PHOTO-PAINT version shown)
To open the Object Browser from within the Macro Editor, do any of the following:
• Click View Object Browser.
• Click the Object Browser button on the Standard toolbar.
• Press F2.
To reference the object model of another application, click Tools References. Referenced components
can be accessed by the macro code.
Icon Item
global value
class
module
type
enumeration
To access the Help topic for a selected item, click the Help button, or press F1.
If the return value of a function is not used, the function call does not take parentheses around the argument list
unless the Call keyword is used.
For documentation on all methods available to CorelDRAW or Corel PHOTO-PAINT, see the “Object
Model Reference | Methods” section of the Macros Help file for the application.
Events are associated with some classes. You can set up an event handler that is called when that event occurs in
the application; this functionality lets you develop sophisticated applications that respond automatically to what
is happening within the application. Commonly handled events include the BeforePrint, BeforeSave,
PageActivate, SelectionChange, and ShapeMove events of the Document class in CorelDRAW.
For documentation on all events available to CorelDRAW or Corel PHOTO-PAINT, see the “Object
Model Reference | Events” section of the Macros Help file for the application.
The constants displayed in the Member list are members of enumerations or are defined as public in a module.
Enumerations group related items from a closed list — such as CorelDRAW shape types, import/export filters,
and alignments — for use anywhere an integer value is required.
In CorelDRAW and Corel PHOTO-PAINT, many constants begin with cdr (for example, cdrEPS and
cdrLeftAlignment), while others begin with clr, cui, pdf, pnt, or prn. Visual Basic also has its own constants,
including ones (such as vbKeyEnter) for keystrokes and ones (such as vbOK) for dialog-box buttons.
For documentation on all constants available to CorelDRAW or Corel PHOTO-PAINT, see the “Object
Model Reference | Constants” section of the Macros Help file for the application.
Each type of item in the Member list has an icon assigned to it:
Icon Item
property
default property
method
event
constant
In this section
This section contains the following topics:
• “Creating macro projects” on page 45
• “Writing macros” on page 48
• “Recording macros” on page 49
• “Running macros” on page 52
• “Debugging macros” on page 53
Related procedures
For details on creating macro projects, see the following procedures:
• “To create a macro project” on page 46
• “To add a dialog box to a macro project” on page 47
• “To add a code module to a macro project” on page 47
• “To add a class module to a macro project” on page 48
Rename a macro project Right-click the project in the list, and then click Rename.
You can also rename a macro project from within the
Macro Editor. Click the project in the Project Explorer, and
then edit the (Name) value in the Properties window.
Press Enter to commit your changes.
Copy a GMS-based macro project Right-click the project in the list, click Copy to, and then
choose the target location for the copy.
NOTE: You cannot copy a document-based macro project.
Such projects are stored within a document and cannot be
managed separately from that document.
Unload a GMS-based macro project Right-click the macro project in the list, and then click
Unload macro project.
NOTE: You can close a document-based macro project
only by closing the document in which it is stored.
Display or hide all code modules in the Macro Manager In the Macro Manager docker, click the Simple mode
docker button .
Edit a code module In the Macro Manager docker, do one of the following:
• Click the module in the list, and then click the Edit button
.
• Right-click the module in the list, and then click Edit.
The code module opens in the Macro Editor.
Rename a code module In the Macro Manager docker, right-click the module in
the list, and then click Rename.
Delete a code module In the Macro Manager docker, do one of the following:
• Click the module in the list, and then click the Delete
button .
• Right-click the module in the list, and then click Delete.
Writing macros
You can manually code a macro by writing it in the Macro Editor or the VSTA Editor. (Alternatively, in
CorelDRAW, you can create a VBA macro by recording it. For information, see “Recording macros” on page 49.)
Macros that are developed in the Macro Editor or the VSTA Editor can take advantage of full programming
control, including conditional execution, looping, and branching. In effect, you can write macros that are
programs in their own right.
In this documentation, all macro code is referred to as a macro. In some contexts, however, a macro is
just those parts of the code that can be run by CorelDRAW or Corel PHOTO-PAINT.
To write a macro, you must first add it to a code module for the desired macro project. You can edit, rename, or
even delete macros.
For details on writing macros, see the following procedures:
• “To add a macro to a macro project” on page 48
• “To edit a VBA macro” on page 49
• “To delete a VBA macro” on page 49
Recording macros
CorelDRAW offers a recording feature that lets you create a macro without needing to manually code it. For
many simple and repetitive tasks, recorded macros are a quick, efficient solution: They store the sequence of keys
that you press and the mouse actions that you perform within the application. You may prefer to create macros
by recording them if you are not familiar with the object model for the application, or if you are not sure which
objects and methods to use.
In Corel PHOTO-PAINT, actions can be recorded as Corel SCRIPT scripts but not as VBA or VSTA
macros. For information on recording scripts, see “Working with scripts” in the main Help file for
Corel PHOTO-PAINT (corelpp.chm).
If you want to store a recorded macro for future use, you can save it by using the Record Macro dialog box.
Saving a recorded macro is particularly useful if you want to extend or customize its functionality by editing it in
the Macro Editor.
Save the actions in the Undo list as a VBA macro Click Tools Undo, perform the actions that you want to
record, and then click the Save list to a VBA macro
button in the Undo docker.
Running macros
You can run saved macros in one of two ways:
• from directly within CorelDRAW or Corel PHOTO-PAINT
• from within the Macro Editor
Debugging macros
To ensure that your macros run as expected, it’s important to debug them.
The Macro Editor provides four windows for debugging VBA code. The Macro Editor also provides two strong
debugging facilities that are common to language editors: setting breakpoints, and stepping through code.
The Macro Editor also supports two advanced debugging techniques that are not discussed in this
documentation: Making changes to the code while it is running, and watching and changing variables.
Setting breakpoints
A breakpoint is a marker in a line of code that causes execution to pause. To continue, you must either restart the
execution or step through the subsequent lines of code.
To set or clear a breakpoint, click the line, and then click Debug Toggle breakpoint. By default, the line is
highlighted in dark red, and a red dot is placed in the margin.
To restart the code after it pauses at a breakpoint, click Run Continue. To pause the execution of the code
(immediately exiting from all functions and discarding all return values), click Run Reset.
You can also “run to cursor” — that is, execute the code until it reaches the line that the cursor is on, and then
pause at that line. To do this, click the line where you want execution to pause, and then click Debug Run to
cursor.
In this section
This section contains the following topics:
• “Providing toolbars for macros” on page 57
• “Providing dialog boxes for macros” on page 59
• “Providing user interaction for macros” on page 66
• “Providing documentation for macros” on page 69
TextBox Provides an area for typing text. For information on coding this control,
see “Providing text boxes in dialog boxes” on page 64.
ComboBox Provides a list from which a single item can be selected; optionally, also
provides an area for typing text. For information on coding this control,
see “Providing combination boxes and list boxes in dialog boxes” on
page 64.
ListBox Provides a list from which multiple items can be selected. For
information on coding this control, see “Providing combination boxes
and list boxes in dialog boxes” on page 64.
CheckBox Provides a check box that can be enabled (by clicking to display a check
mark), disabled (by clicking to remove the check mark), or grayed (that
is, made unavailable)
OptionButton Provides a “radio button” that is linked to other radio buttons with the
same GroupName property, such that only one of the buttons can be
enabled at a time
ToggleButton Provides a button that can be toggled (to appear pressed or not pressed)
Frame Groups items together so that they move with the frame
CommandButton Provides a button that can be clicked to commit an assigned action. For
information on coding this control, see “Providing buttons in dialog
boxes” on page 64.
TabStrip Provides separate views of related controls
SpinButton Enhances another control (such as a TextBox control) so that the value
for that control can be set more quickly
Image Provides an image. For information on coding this control, see “Providing
images in dialog boxes” on page 66.
The Form Designer toolbox also features a Pick tool , which lets you select and move the controls
on a dialog box.
To display a Help topic containing information about a selected dialog-box control in the Form Designer,
press F1.
In addition, the Show method provides a Modal parameter, which lets you specify whether the dialog box is
modal or modeless. A value of vbModal (or 1) for this parameter creates a modal dialog box, while a value of
vbModeless (or 0) creates a modeless dialog box. The following VBA example creates a modeless dialog box:
frmFooForm.Show vbModeless
To open a dialog box from a macro that is available from within the application itself, you must create a public
subroutine within a code module. However, a subroutine cannot be made available from within the application if
the subroutine exists either within the code for a dialog box or within a class module. In addition, the subroutine
cannot take any parameters.
The following VBA example subroutine opens frmFooForm as a modeless dialog box:
Public Sub showFooForm()
frmFooForm.Show vbModeless
End Sub
When a dialog box loads, it triggers its own UserForm_Initialize event. From this event handler, you
must initialize all the relevant controls on the dialog box. For more information, see “Providing event
handlers” on page 25.
Finally, you can also use the Show method to open additional dialog boxes from within the current one, as in the
following VBA example:
However, control is not returned to you until all open dialog boxes are unloaded.
txtHeight = "1"
To get the value of a TextBox control, get its Text property in the Properties window, as in the following VBA
example:
Call SetSize(txtWidth.Text, txtHeight.Text)
ComboBox1.AddItem 2
ComboBox1.AddItem 3
ComboBox1.AddItem 0, 0
To test which item is selected when the OK button is clicked, test the ListIndex property for the list.
To get the value of the caption for a selected combination box or list box, test the Text property for the item, as
in the following VBA example:
Dim retList As String
retList = ComboBox1.Text
Me.Hide
Unload Me
End Sub
ActiveDocument.Unit = cdrInch
End Sub
From inside the code module for the dialog box, the dialog-box object is implicit, so all the controls can be
simply accessed by name. From other modules, the controls must be accessed through their full name (as in
UserForm1.buttonOK).
Unload Me
End Sub
If you continue by setting the Cancel property for the dialog box to True, then when the user presses Escape,
the cmdCancel_Click event is triggered and the provided code unloads the form.
doc.Unit = cdrCentimeter
The following parameters for the Document.GetUserClick method are coded into the preceding example:
• The variable x returns the horizontal position of the mouse click.
• The variable y returns the vertical position of the mouse click.
• The parameter shift returns the combination of the Shift, Ctrl, and Alt keys that is held down by the user
when clicking the mouse. The Shift, Ctrl, and Alt keys are assigned values of 1, 2, and 4 (respectively), the
sum of which is the returned value.
• The value 10 specifies the number of seconds for the user to click in the document.
• The value True specifies that the SnapToObjects parameter is enabled.
• The value cdrCursorPick specifies that the icon for the Pick tool is used for the cursor icon. (You cannot use
a custom icon.)
One of the following values is returned:
• 0 — The user successfully completes the click.
• 1 — The user cancels by pressing Escape.
• 2 — The operation times out.
The returned coordinates are relative to the origin of the page and, unless explicity specified, are in
document units.
To get the shapes under the returned click point, you can use the method SelectShapesAtPoint (which is a
member of Page), as in the following VBA example:
doc.ActivePage.SelectShapesAtPoint x, y, True
A value of True selects unfilled objects, while False does not select unfilled objects.
doc.Unit = cdrCentimeter
The following parameters for the Document.GetUserArea method are coded into the preceding example:
• The variables x1 and y1 return the horizontal and vertical positions (respectively) of the upper-left corner of
the area.
• The variables x2 and y2 return the horizontal and vertical positions (respectively) of the lower-right corner of
the area.
• The parameter shift returns the combination of the Shift, Ctrl, and Alt keys that is held down by the user
when dragging the mouse. The Shift, Ctrl, and Alt keys are assigned values of 1, 2, and 4 (respectively), the
sum of which is the returned value.
• The value 10 specifies the number of seconds for the user to click in the document.
• The value True specifies that the SnapToObjects parameter is enabled.
• The value cdrCursorExtPick specifies the icon to use for the cursor.
In the preceding example, the code ends by selecting the shapes that lie completely within the area by using the
Page.SelectShapesFromRectangle method.
One of the following values is returned:
• 0 — The user successfully completes the selection.
• 1 — The user cancels by pressing Escape.
• 2 — The operation times out.
This method returns two points that are interpreted as the corners of a rectangle. However, the two
points can also be used as the start point and end point of a mouse drag.
The returned coordinates are relative to the origin of the page and, unless explicity specified, are in
document units.
Capturing coordinates
When capturing mouse actions, or when developing a complex macro solution, you may want to convert
between screen coordinates and document coordinates. This conversion is done with the methods
ScreenToDocument and DocumentToScreen of the Window class.
The following VBA example converts a set of screen coordinates into a point in the document that is visible in
the active window:
ActiveDocument.Unit = cdrMillimeter
The following VBA example returns the screen coordinates of a point in the document as it appears on the
screen:
Dim screenX As Long, screenY As Long
ActiveDocument.Unit = cdrMillimeter
In both examples, the converted coordinates are returned in the last two parameters.
Screen coordinates start from the upper-left corner of the screen, so positive y-values are down the screen,
whereas negative y-values are up the screen.
You can test whether a set of coordinates (that is, a point) is inside, outside, or on the outline of a curve by using
the Shape.IsOnShape method. For a set of document coordinates, this method returns one of the following:
• cdrInsideShape — if the coordinate is inside the shape
• cdrOutsideShape — if the coordinate is outside the shape
• cdrOnMarginOfShape — if the coordinate is on or near the outline of the shape
For example, the following VBA code tests where the point (4, 6) is in relation to the active shape:
Dim onShape As Long
ActiveDocument.Unit = cdrInch
onShape = ActiveShape.IsOnShape(4, 6)
End Sub
End Sub
In this section
This section contains the following topics:
• “Organizing macros” on page 71
• “Deploying macros” on page 71
Organizing macros
To make your macro solutions easy to deploy, you can organize them. Here are some tips:
• To sort your macros, use a separate code module for each macro, and then group related macros into a single
GMS file.
• To help users find the entry point to a macro, place all public subroutines into a single code module so that the
macro can be called from within the application.
Deploying macros
You can deploy macro solutions to users for installation. You can deploy GMS files or workspaces, or both.
Deploying workspaces
Some macro solutions include a customized workspace that contains relevant toolbars, menus, and shortcut keys.
You can deploy the features of a customized workspace to users by creating a Corel workspace (XSLT) file. You
can export a subset of workspace features — such as individual menus, individual toolbars, or complete sets of
shortcut keys — if you want users to install only those features, or you can export the entire workspace if you
prefer. For more information, see “To export workspace features” on page 72.
In this section
This section contains the following topics:
• “Understanding the object-model hierarchy” on page 74
• “Working with the Application object” on page 75
• “Working with documents” on page 75
• “Working with pages” on page 94
• “Working with layers” on page 100
• “Working with shapes” on page 104
• “Working with import filters and export filters” on page 140
• “Arranging open documents” on page 144
All code examples in this section are written in VBA.
For a visual representation of the object model, please see the object-model diagram at
X:\Program Files\Corel\<folder>\Data (where X: is the drive and <folder> is the folder where the
software is installed):
• CorelDRAW Object Model Diagram.pdf
If desired, you can avoid using the CreateObject keyword in the preceding example by importing the
target type library and using the data types directly.
For detailed information on any property, method, or event, see “Object Model Reference” section in the
Macros Help file for the application.
In this topic
For more information on document-related activities, see the following subtopics:
• “Creating documents” on page 83
• “Opening documents” on page 84
• “Activating documents” on page 84
• “Setting document properties” on page 85
• “Displaying documents” on page 86
• “Modifying documents” on page 88
• “Creating command groups for documents” on page 88
• “Saving documents” on page 88
• “Exporting files from documents” on page 89
• “Publishing documents to PDF” on page 91
• “Printing documents” on page 92
• “Closing documents” on page 93
Files of all supported formats can be imported. Imported files are placed on document layers, so
information on importing files is provided in the section on working with layers (see “Importing files into
layers” on page 103) rather than in this section on working with documents.
Creating documents
The Application object has two methods for creating documents: CreateDocument and
CreateDocumentFromTemplate.
The Application.CreateDocument method creates an empty document based on the default page size,
orientation, and styles:
Both of these functions return a reference to the new document, so they are typically used in the following
manner:
Dim newDoc as Document
The new document becomes active immediately and can be referenced by using the
Application.ActiveDocument property. For more information on this property, see “Activating documents” on
page 84.
If you want, you can use event handlers to respond to events that are triggered by creating a document:
• Application.DocumentNew
• GlobalMacroStorage.DocumentNew
Opening documents
To open a document, you can use the Application.OpenDocument method.
Dim doc As Document
If you want, you can use event handlers to respond to events that are triggered by opening a document:
• Application.DocumentOpen
• Document.Open
• GlobalMacroStorage.DocumentOpen
Activating documents
Each open document is a member of the Application.Documents collection. The documents in that collection
appear in the order in which they were created or opened.
To reflect the actual stacking order of the documents, you must use the Application.Windows
collection.
The Application.ActiveDocument property provides direct access to the active document — that is, the
document that is in front of all the other documents in the application window. ActiveDocument is an object of
type Document and, therefore, has the same members — properties, methods, and objects — as the
Document class.
If no documents are open, ActiveDocument returns nothing. You can check for open documents by using the
following VBA code:
If Documents.Count = 0 Then
Exit Sub
End If
The Document.Activate method activates a document so that it can be referenced by ActiveDocument. The
following VBA code activates the third open document (if three or more documents are open):
Documents(3).Activate
Next doc
End Function
You can then activate the returned document by using the Document.Activate method.
The Document.ActiveWindow property provides direct access to the active window — that is, the document
window that is in front of all other document windows.
The next window and previous window for the active document are referenced in the Window.Next and
Window.Previous properties:
ActiveWindow.Next.Activate
To close a window (and the document, if it has only one open window), use the Window.Close method:
ActiveWindow.Close
If you want, you can use event handlers to respond to events that are triggered by activating a window:
• Application.WindowActivate
• GlobalMacroStorage.WindowActivate
You can also use event handlers to respond to events that are triggered by deactivating a window:
• Application.WindowDeactivate
• GlobalMacroStorage.WindowDeactivate
You can also create a view with specific settings by using the Document.CreateView method. The following
VBA code creates a new View object that accesses the position (3, 4) in inches, uses a zoom factor of 95%, and
displays page 6:
ActiveDocument.Unit = cdrInch
To apply a saved view to the active window, call the View.Activate method:
ActiveDocument.Views("New View").Activate
Zooming
To zoom an ActiveView object by a set amount, set the ActiveView.Zoom property by specifying a double
value in percent. For example, the following VBA code sets the zoom factor to 200%:
ActiveWindow.ActiveView.Zoom = 200.0
You can also zoom by using the following methods of the ActiveView class:
• SetActualSize
• ToFitAllObjects
• ToFitArea
• ToFitPage
• ToFitPageHeight
• ToFitPageWidth
• ToFitSelection
• ToFitShape
• ToFitShapeRange
Panning
To pan an ActiveView object, you can move its origin by modifying the ActiveView.OriginX and
ActiveView.OriginY properties. The following VBA code pans the document 5 inches to the left and 3 inches
up:
Dim av As ActiveView
ActiveDocument.Unit = cdrInch
Set av = ActiveWindow.ActiveView
av.OriginX = av.OriginX - 5
av.OriginY = av.OriginY + 3
ActiveDocument.Unit = cdrInch
Set av = ActiveWindow.ActiveView
Modifying documents
You can modify a document regardless of whether it is active.
Modifying an inactive document does not activate that document. To activate a document, you must use
its Activate method (see “Activating documents” on page 84).
The following VBA code adds a layer named “fooLayer” to the third open document:
Dim doc As Document
doc.ActivePage.CreateLayer "fooLayer"
The following VBA code uses the findDocument() function to add a layer named “fooLayer” to the inactive
document named barDoc.cdr:
Dim doc As Document
ActiveDocument.BeginCommandGroup "CreateCurveEllipse"
Set sh = ActiveLayer.CreateEllipse(0, 1, 1, 0)
sh.ConvertToCurves
ActiveDocument.EndCommandGroup
The preceding code sets the Undo string in the Edit menu as Undo CreateCurveEllipse. Clicking this
command undoes not only the ConvertToCurves operation but also the CreateEllipse operation.
A command group can contain many hundreds of commands, if required. Creating command groups can make
your macros appear to be fully integrated into the application.
Saving documents
Two methods can be used for saving documents: Document.SaveAs and Document.Save.
The Document.SaveAs method saves a document by using the specified file path and filename. You can use this
method to save a previously unsaved document or to save an existing document to a different file.
However, the preceding code gives little control over the output of the image. More control is obtained by
including a StructExportOptions object, as in the following VBA code:
Dim expOpts As New StructExportOptions
expOpts.ImageType = cdrCMYKColorImage
expOpts.AntiAliasingType = cdrNormalAntiAliasing
expOpts.ResolutionX = 72
expOpts.ResolutionY = 72
expOpts.SizeX = 210
expOpts.SizeY = 297
A StructPaletteOptions object can also be included in the function call for palette-based image formats,
if you want to provide the settings for automatically generating the palette.
eFilt.Finish
End If
Else
eFilt.Finish
End If
eFilt.Finish
With doc.PDFSettings
.Bookmarks = True
.ColorMode = pdfRGB
.ComplexFillsAsBitmaps = False
.CompressText = True
.DownsampleGray = True
.EmbedBaseFonts = True
.EmbedFonts = True
.Hyperlinks = True
.Linearize = True
.pdfVersion = pdfVersion13
.PublishRange = pdfPageRange
End With
doc.PublishToPDF "C:\MyPDF.pdf"
The following VBA example gives more control to the user by displaying the Publish to PDF Settings dialog
box:
Dim doc As Document
doc.PublishToPDF "C:\MyPDF.pdf"
End If
Profiles for PDF settings can be saved and loaded by using the PDFVBASettings.Save method and
PDFVBASettings.Load method (respectively).
Printing documents
Using VBA to print documents is straightforward: almost all settings that are available in the Print dialog box
are available to the Document.PrintSettings property. When these properties are set, printing the document is
simply a matter of calling the Document.PrintOut method.
For example, the following VBA code prints three copies of pages 1, 3, and 4 to a level-3 PostScript® printer:
With ActiveDocument.PrintSettings
.Copies = 3
.PrintRange = prnPageRange
.Options.PrintJobInfo = True
With .PostScript
.DownloadType1 = True
.Level = prnPSLevel3
End With
End With
ActiveDocument.PrintOut
Each page in the Print dialog box has a corresponding object-model class that contains all settings for that page.
The following table lists these classes.
General PrintSettings
Prepress PrintPrepress
PostScript PrintPostScript
Misc PrintOptions
You cannot set layout options in VBA. However, if necessary, you can open the Print dialog box by using
the PrintSettings.ShowDialog method.
You can print only the selected objects in a document by setting the PrintSettings.PrintRange property
to prnSelection.
You can use a specific printer in the Application.Printers collection by specifying it in the
PrintSettings.Printer property.
You can save a printing profile by using the PrintSettings.Save method.
You can access a saved printing profile by using the PrintSettings.Load method, but be sure to specify
the full path to the profile.
You can reset the print settings by using the PrintSettings.Reset method.
If you want, you can use event handlers to respond to events that are triggered by opening the Print dialog box:
• Application.DocumentBeforePrint
• Document.BeforePrint
• GlobalMacroStorage.DocumentBeforePrint
You can also use event handlers to respond to events that are triggered by printing a document and closing the
Print dialog box:
• Application.DocumentAfterPrint
• Document.AfterPrint
• GlobalMacroStorage.DocumentAfterPrint
Finally, you can also use event handlers to respond to events that are triggered when the user responds to a
request to print a document:
• Application.QueryDocumentPrint
• Document.QueryPrint
• GlobalMacroStorage.QueryDocumentPrint
Closing documents
You can close a document by calling the Document.Close method.
The following VBA code closes the active document and activates the document behind it:
ActiveDocument.Close
If the code closes a document that is not active, the document referenced by the
Application.ActiveDocument property does not change.
If you want, you can use event handlers to respond to events that are triggered by closing a document:
• Application.DocumentClose
• Document.Close
• GlobalMacroStorage.DocumentClose
You can also use event handlers to respond to events that are triggered when the user responds to a request to
close a document:
• Application.QueryDocumentClose
• Document.QueryClose
• GlobalMacroStorage.QueryDocumentClose
Application ActivePage property Provides direct access to the active page of the
active document
For more information, see “Activating pages” on
page 97.
Application PageSizes property Contains the collection of defined page sizes for
the application
For more information, see “Using defined page
sizes” on page 99.
PageSize BuiltIn property Returns True if a page size is built-in (rather than
user-defined)
For more information, see “Using defined page
sizes” on page 99.
For detailed information on any property, method, or event, see “Object Model Reference” section in the
Macros Help file for the application.
In this topic
For more information on page-related activities, see the following subtopics:
• “Creating pages” on page 96
• “Activating pages” on page 97
• “Reordering pages” on page 98
• “Sizing pages” on page 98
• “Modifying pages” on page 99
• “Deleting pages” on page 100
Creating pages
The methods for creating pages belong to the Document class.
Both the Document.AddPages method and the Document.AddPagesEx method add the specified number of
pages to the end of a document. The difference between these methods is that AddPages uses the default page
size, while AddPagesEx uses a specified size.
End Function
The following VBA example uses the AddPagesEx method to add to the end of the document three pages that
are 8.5 inches wide by 11 inches high:
Public Function AddSomeSpecifiedPages() as Page
doc.Unit = cdrInch
End Function
The preceding examples return the first page that was added; all other added pages follow this page. You can
therefore reference any of the added pages by incrementing the Index property of the returned page:
Dim firstNewPage As Page, secondNewPage As Page
If you want, you can use event handlers to respond to events that are triggered by creating a page:
• Document.PageCreate
Activating pages
Each page is a member of the Document.Pages collection for the document in which it appears. The pages in a
Document.Pages collection appear in the order in which they appear in that document — for example, the fifth
page in the active document is ActiveDocument.Pages.Item(5). If pages are added, reordered, or deleted,
the affected Pages collection is immediately updated to reflect the new page order of that document.
You can access the active page of the active document by using the Application.ActivePage property (or
ActiveDocument.ActivePage, or simply ActivePage). A reference to the active page in the active document,
of type Page, is returned.
Dim pg As Page
Set pg = ActivePage
You can access the active page of a document, regardless of whether that document is active, by using
ActivePage property for that document:
Public Function getDocsActivePage(doc As Document) As Page
End Function
You can switch pages by finding the desired page and then invoking its Activate method. The following VBA
code activates page 3 in a document:
ActiveDocument.Pages(3).Activate
If you want, you can use event handlers to respond to events that are triggered by activating a page:
• Document.PageActivate
You can also use event handlers to respond to events that are triggered by deactivating a page:
• Document.PageChange
Reordering pages
A page can be moved to another location in a document by using its MoveTo method. The following VBA code
moves page 2 to the position of page 4:
ActiveDocument.Pages(2).MoveTo 4
Activating a page in an inactive document does not activate that document. To activate a document, you
must use its Activate method (see “Activating documents” on page 84).
Sizing pages
You can specify the size and orientation of pages, specifying the default page size, and use defined page sizes.
ActivePage.Orientation = cdrLandscape
For the SetSize method, the first number is always the page width and the second number is always the page
height. Reversing the two numbers switches the orientation of the page.
doc.Unit = cdrMillimeter
Alternatively, you can use the Document.MasterPage property to specify the default page size:
doc.Unit = cdrMillimeter
pageSizeName = Application.PageSizes(3).Name
Page sizes can be specified by name. For example, the following VBA code gets the PageSize object named
“Business Card”:
Dim thisSize As PageSize
You can get the actual dimensions of a PageSize object by using its Width and Height properties. The following
VBA code retrieves the width and height (in millimeters) of the third PageSize object:
Dim pageWidth As Double, pageHeight As Double
Application.Unit = cdrMillimeter
pageWidth = Application.PageSizes(3).Width
pageHeight = Application.PageSizes(3).Height
Although each PageSize object provides a Delete method, this method can be used only on user-defined page
sizes. You can determine whether a PageSize object is user-defined by testing its BuiltIn Boolean property:
Public Sub deletePageSize(thisSize As PageSize)
End Sub
You can specify a particular unit of measurement for a page size by setting the units for the document
before getting its width and height.
Modifying pages
You can modify a page regardless of whether it is active.
Activating a page in an inactive document does not activate that document. To activate a document, you
must use its Activate method (see “Activating documents” on page 84).
By explicitly referencing the page that you want to modify, you can make those changes without activating the
page. The following VBA code deletes all shapes on page 3 of the active document without activating that page:
Public Sub DeleteShapesFromPage3()
doc.Pages(3).Shapes.All.Delete
End Sub
Deleting pages
You can delete a page by using its Delete method, as in the following VBA example:
ActivePage.Delete
The Page.Delete method deletes all shapes on that page, deletes the page from the Pages collection for that
document, and then updates that collection to reflect the change.
If you want to delete more than one page, you must use the Delete method for each unwanted page. However,
you cannot delete all pages in a document. You can avoid trying to delete the last remaining page in a document
by using the following VBA code:
If ActiveDocument.Pages.Count > 1 Then ActivePage.Delete
If you want, you can use event handlers to respond to events that are triggered by deleting a page:
• Document.PageDelete
Document ActiveLayer property Provides direct access to the active layer for a document
For more information, see “Activating layers” on page 102.
Layer Visible property Controls whether the contents of a layer are visible
For information, see “Locking and hiding layers” on page 102.
Page ActiveLayer property Provides direct access to the active layer for a page
For more information, see “Activating layers” on page 102.
Page CreateLayer method Inserts a new layer at the top of the list of non-master layers
For more information, see “Creating layers” on page 102.
For detailed information on any property, method, or event, see “Object Model Reference” section in the
Macros Help file for the application.
In this topic
For more information on layer-related activities, see the following subtopics:
• “Creating layers” on page 102
• “Activating layers” on page 102
• “Locking and hiding layers” on page 102
• “Reordering layers” on page 103
• “Renaming layers” on page 103
Creating layers
You can create a layer by using the Page.CreateLayer method. Creating a layer inserts a new layer at the top of
the list of non-master layers.
The following VBA code creates a new layer called “My New Layer”:
ActivePage.CreateLayer "My New Layer"
If you want, you can use event handlers to respond to events that are triggered by activating a layer:
• Document.LayerCreate
Activating layers
Each layer is a member of the Page.Layers collection for the page on which it appears. The layers in a
Page.Layers collection appear in the order in which they appear on that page — the first layer is the one at the
top of the “stack,” and the last layer is the one at the bottom. If layers are added, reordered, or deleted, the
affected Page.Layers collection is immediately updated to reflect the new layer order of that page.
The Document.ActiveLayer property provides direct access to the active layer for a document, while the
Page.ActiveLayer property provides direct access to the active layer for a page.
You can activate a layer by using the Layer.Activate method:
ActivePage.Layers("Layer 1").Activate
Activating a locked layer does not unlock it. Similarly, activating a hidden layer does not make it visible.
For information on unlocking and displaying layers, see “Locking and hiding layers” on page 102.
If you want, you can use event handlers to respond to events that are triggered by activating a layer:
• Document.LayerActivate
You can also use event handlers to respond to events that are triggered by deactivating a layer:
• Document.LayerChange
The result of any changes to these properties is immediately displayed in the Object Manager.
For more information on working with pages, see “Working with pages” on page 94.
Reordering layers
You can reorder layers by using the following two methods of the Layer class: MoveAbove and MoveBelow.
Both methods move the specified layer above or below the layer that is referenced as a parameter.
The following VBA code moves the layer called “Layer 1” to immediately below the layer “Guides”:
Dim pageLayers As Layers
The change is immediately reflected in the Object Manager (although it may be apparent only in the Layer
Manager).
Renaming layers
You can rename a layer by editing its Name property.
The following VBA code renames “Layer 1” as “Layer with a New Name”:
ActivePage.Layers("Layer 1").Name = "Layer with a New Name"
Importing a file selects the contents of that file and deselects any other selected objects in the document. You can
therefore reposition or resize the imported objects by getting the document selection:
ActiveSelection.SetSize 3, 2
Some file formats can be imported by using one of several filters, so it is important to understand the benefits of
each available filter. For example, when importing an Encapsulated PostScript (EPS) file, you can choose between
the EPS filter and the PDF filter. The EPS filter lets you do the following:
• import an EPS file as a placeable object that can be printed but not modified
• interpret the PostScript portion of the file, so that you can import the original artwork from within the file
rather than its low-resolution header
To specify which filter to use, you can include the optional parameter Filter, as in the following VBA example:
ActiveLayer.Import "C:\map.eps", cdrPSInterpreted
importProps.LinkBitmapExternally = True
iFilt.Finish
Deleting layers
As previously discussed, each layer is a member of the Page.Layers collection for the page on which it appears.
You can delete a layer by calling its Delete method. Deleting a layer removes that layer from the document,
taking with it all shapes on that layer on all pages in the document.
The following VBA code deletes the layer called “Layer 1”:
ActivePage.Layers("Layer 1").Delete
If you want, you can use event handlers to respond to events that are triggered by deleting a layer:
• Document.LayerDelete
For detailed information on any property, method, or event, see “Object Model Reference” section in the
Macros Help file for the application.
In this topic
For more information on shape-related activities, see the following subtopics:
• “Creating shapes” on page 115
• “Determining shape type” on page 124
• “Selecting shapes” on page 124
• “Duplicating shapes” on page 128
Creating shapes
Every document is made up of shapes, or Shape objects, which are created by using the drawing tools. The
shapes on a document page are stored on layers, so the various shape-creation methods belong to the Layer class.
For information on creating specific types of shapes, see the following subtopics:
• “Creating rectangles” on page 115
• “Creating ellipses” on page 116
• “Creating lines and curves” on page 117
• “Creating text objects” on page 119
• “Creating symbols” on page 121
Supported shapes not discussed in this section include polygons (or Polygon objects) and customized
shapes (or CustomShape objects).
Customized shapes that are supported include tables (or TableShape objects).
Shapes are measured in document units. You can specify the unit of measurement for a document by
using the Document.Unit property (see “Setting document properties” on page 85).
If you want, you can use event handlers to respond to events that are triggered by creating a shape:
• AddinHook.ShapeCreated
• Document.ShapeCreate
Creating rectangles
You can add rectangles (or Rectangle objects) to your documents by using one of the following methods:
• Layer.CreateRectangle
• Layer.CreateRectangle2
• Layer.CreateRectangleRect
These methods return a reference to the new Shape object. They differ only in the parameters that they take, so
you can choose the method that best suits your macro solution.
You can also use these rectangle-creation methods to create squares.
The CreateRectangle method creates a rectangle by using four parameters that specify the following:
• the distance between the left, top, right, and bottom sides of the rectangle (in that order)
• the corresponding edges of the page frame
The following VBA example uses the CreateRectangle method to create a 2" × 1" rectangle that is positioned
6" up from the bottom of the page frame and 3" in from the left side of the page frame:
Dim sh As Shape
Set sh = ActiveLayer.CreateRectangle(3, 7, 6, 5)
The CreateRectangle2 method creates a rectangle based on the coordinates of its lower-left corner, its width,
and its height.
The following VBA example uses the CreateRectangle2 method to create the same rectangle as the previous
example:
Dim sh As Shape
ActiveDocument.Unit = cdrInch
Set sh = ActiveLayer.CreateRectangle2(3, 6, 2, 1)
Finally, the CreateRectangleRect method creates a rectangle based on its bounding box (or Rect object).
These three rectangle-creation methods provide optional parameters for specifying corner roundness.
The CreateRectangle method specifies corner roundness by using parameters for the upper-left, upper-right,
lower-left, and lower-right corners (in that order). These parameters take integer values (which range from the
default 0 to 100) that define the radius of the four corners as a whole-number percentage of half of the length of
the shortest side.
The following VBA example re-creates the 2" × 1" rectangle from the previous examples. However, this time,
the four corner radii are set to 100%, 75%, 50%, and 0% of half of the length of the shortest side (that is, to
0.5", 0.375", 0.25", and a cusp):
Dim sh As Shape
ActiveDocument.Unit = cdrInch
The CreateRectangle2 method and the CreateRectangleRect method define the corner radii in the same order
as the CreateRectangle method (that is, upper-left, upper-right, lower-left, and lower-right). However,
CreateRectangle2 and CreateRectangleRect take double (floating-point) values that measure the corner radii
in document units.
When using CreateRectangle2 or CreateRectangleRect, you must limit the size of the corner radii to
less than half of the length of the shortest side of the rectangle.
The following VBA example uses the CreateRectangle2 method to create the same round-cornered rectangle as
the previous example:
Dim sh As Shape
ActiveDocument.Unit = cdrInch
ActiveDocument.ReferencePoint = cdrBottomLeft
0)
Creating ellipses
You can add ellipses (or Ellipse objects) to your documents by using one of the following methods:
• Layer.CreateEllipse
ActiveDocument.Unit = cdrMillimeter
The CreateEllipse2 method creates an ellipse based on its center point, its horizontal radius, and its vertical
radius. (If only one radius is given, a circle is created.)
The following VBA example uses the CreateEllipse2 method to create an ellipse:
Dim sh As Shape
ActiveDocument.Unit = cdrMillimeter
The following VBA example uses the CreateEllipse2 method to create the same 50-millimeter circle as the
CreateEllipse example:
Dim sh As Shape
ActiveDocument.Unit = cdrMillimeter
Finally, the CreateEllipseRect method creates an ellipse based on its bounding box (or Rect object).
These three ellipse-creation methods provide three optional parameters for creating an arc or a pie shape. The
StartAngle and EndAngle parameters — which are double values that are measured with zero being
horizontally right on the page and with positive values being degrees from zero and moving counterclockwise —
are used to define the start angle and end angle of the shape (respectively). In addition, the Pie parameter —
which is a Boolean value — defines whether the shape is an arc (False) or a pie shape (True).
The following VBA code uses the CreateEllipse method to create a “C” shape:
Dim sh As Shape
ActiveDocument.Unit = cdrMillimeter
ActiveDocument.Unit = cdrCentimeter
The Layer class provides three additional methods that act as shortcuts for creating a basic line or basic curve
that has a single segment on a single subpath:
ActiveDocument.Unit = cdrInch
You can fit artistic text to a path by using the Text.FitTextToPath method, which simply attaches the text to
the outline of a shape such that the text flows along the path of that shape.
The following VBA code creates a new artistic-text object and attaches it to the selected shape:
Dim sh As Shape, sPath As Shape
ActiveDocument.Unit = cdrInch
sh.Text.FitToPath sPath
To create a paragraph-text object, you can use one of the following methods:
• Layer.CreateParagraphText — creates basic paragraph text
• Layer.CreateParagraphTextWide — creates paragraph text that is in Unicode format
Both of these methods require you to specify the size of the paragraph-text frame by setting its position
from the left, top, right, and bottom sides of the page frame (in that order). Optionally, both of these
methods let you specify the desired text and set such text attributes as font style, font size, formatting,
and alignment. In addition, both of these methods return a reference to the new Shape object.
ActiveDocument.Unit = cdrInch
Alignment := cdrCenterAlignment)
You can format existing paragraph text by using text ranges (or TextRange objects). Text ranges are handled in
two ways, both of which involve frames (or TextFrame objects):
• “frames” method — The Text.Frames property represents a series of text frames, each of which has its own
text range.
• “story” method — The Text.Story property represents a text range that includes all text in a series of text
frames.
A text range can be treated as a single block of text, such that any changes to text properties (such as font style
and font size) are applied to all text in that text range. Alternatively, a text range can be broken down into the
following smaller text ranges:
• columns (or TextColumns objects)
• paragraphs (or TextParagraphs objects)
• lines (or TextLines objects)
• words (or TextWords objects)
• characters (or TextCharacters objects)
The object model supports all paragraph-formatting options and character-formatting options that are
offered by the application.
The following VBA code formats the specified text range by using the Text.Story property. The first paragraph
of the story is changed to a heading style and the second and third paragraphs into a body-text style:
Dim txt As TextRange
txt.ChangeCase cdrTextUpperCase
txt.Font = "Verdana"
txt.Size = 18
txt.Bold = True
txt.Size = 12
txt.Style = cdrNormalFontStyle
You can place selected text inside closed shapes by using the Shape.PlaceTextInside method.
ActiveDocument.Unit = cdrInch
Set sh = ActiveLayer.CreateEllipse(0, 2, 5, 0)
sh.PlaceTextInside txt
Creating symbols
A symbol (or Symbol object) is a reusable graphic element that is defined in a symbol library. Using symbols in
your documents provides the following benefits:
• lower file-size — Each symbol is defined only once, regardless of how many actual instances of that symbol
appear in the document.
• increased productivity — Any changes made to a symbol definition are automatically propagated to all
instances of that symbol in the document.
• improved workflow — Symbol libraries are a convenient way to store and reuse common graphic elements.
Symbol libraries come in two varieties: external and internal.
External symbol libraries use the filename extension CSL and contain symbol definitions that must be manually
added to the workspace at the application level. You cannot modify a symbol that is defined in an external library
unless you open the associated external library (CSL) file; simply importing the file as a library does not let you
modify its contents.
External symbol libraries must be published to a location that all users can access. A common mapped
drive is a good solution, but a corporate intranet is a better one. However, if the security of the symbols
is not important, the best solution is a corporate Internet site.
Internal symbol libraries exist at the document level. Defining a new symbol in a document — or adding an
instance of an external-library symbol to a document — automatically adds that symbol to the internal library
for that document. For this reason, each document has its own unique internal symbol library.
Inserting an instance of a symbol from an external symbol library creates a link to the definition for that
symbol in that external symbol library. If, at any point, the document cannot access the external symbol
library, the symbol definition in the internal symbol library for that document is used instead.
The Application.SymbolLibraries property contains the collection of all external symbol libraries (or
SymbolLibrary objects) that are available to the application; the Document.SymbolLibrary property returns
just the internal symbol library for that document. The SymbolLibrary.Symbols property contains the
collection of all symbol definitions (or SymbolDefinition objects) in that symbol library. A SymbolDefinition
object is also returned by the Symbol.Defintion property; therefore, you can modify the defintion of a symbol
by using the various properties and methods of the SymbolDefinition class.
To remove a symbol definition from the internal symbol library for a document, you must delete all
instances of the symbol from the document and then run the SymbolLibrary.PurgeUnusedSymbols
method. Simply removing all instances of a symbol from a document does not automatically remove its
symbol definition from the internal symbol library for that document.
The following VBA code demonstrates the basics of using symbols:
ActiveDocument.Unit = cdrMillimeter
'workspace.
("C:\libs\switches\switchesA.csl")
"breaker2", SymbolLibraries("switchesA"))
'Add another instance of the breaker2 symbol, this time from the
"breaker2")
SymbolLibraries("switchesA").Delete
shpSymBreaker2.Delete
shpSymBreaker2A.Delete
'At this point, the internal symbol library for the document
'reference it.
ActiveDocument.SymbolLibrary.PurgeUnusedSymbols
End Sub
A symbol can contain (or “nest”) other symbols. A top-level symbol can contain symbols, and each of those
symbols can contain a symbol, and so forth. In the object model, the SymbolDefinition.NestedSymbols
property returns (as a SymbolDefinitions object) the collection of nested symbols for a symbol definition. While
there is no restriction on how many nesting levels can be created, the symbol cannot be rendered without access
'document.
shpRng.Add shp1
shpRng.Add shp2
shpRng.Add shpSym
shpRng.ConvertToSymbol "shapes"
End Sub
Set sh = ActiveShape
sh.Rotate 10
End If
End If
Selecting shapes
Each shape is a member of the Layer.Shapes collection for the layer on which it appears. The shapes in a
Layer.Shapes collection appear in the order in which they appear on that layer — the first shape is the one at the
top of the “stack,” and the last shape is the one at the bottom. If shapes are added, reordered, or deleted, the
affected Layer.Shapes collection is immediately updated to reflect the new shape order of that layer.
In addition, each document page has a Shapes collection, which contains all Layer.Shapes collections for
that page. The first shape in a Page.Shapes collection is the one at the very top of that page, and the last
shape is the one at the very bottom.
If you want to access individual shapes, you can select them. When you select shapes, you create a “selection”
that contains only those shapes.
The Shape.Selected property takes a Boolean value that indicates whether a shape is selected: True if the shape
is selected, False otherwise. You can select a shape by changing the value of its Selected property to True; this
technique adds the shape to the current selection — that is, rather than creating a new selection that contains
only that shape.
If you want to create a new selection from a shape — that is, by selecting a specified shape and deselecting any
other selected shapes — you can use the Shape.CreateSelection method, as in the following VBA example:
Dim sh As Shape
Set sh = ActivePage.Shapes(1)
The shortcut for ActiveDocument.Selection is ActiveSelection, which returns a Shape object of subtype
cdrSelectionShape. The Shape subtype has a member collection called Shapes, which represents a collection of
all the selected shapes in the document. The shapes in the ActiveSelection.Shapes collection can be accessed
as in the following VBA example:
Dim sh As Shape, shs As Shapes
Next sh
Next sh
After you use the ActiveSelectionRange command to create a copy of the current document selection, you
can subsequently access the returned ShapeRange object to access any of its shapes. You can even add shapes to
or remove shapes from the returned ShapeRange object. You can then use the ShapeRange.CreateSelection
method if you want to replace the current selection with the modified ShapeRange object.
The following VBA code creates a ShapeRange object from the current document selection, removes the first
and second shapes from that shape range, and then replaces the original selection with this modified
ShapeRange object:
Dim shRange As ShapeRange
shRange.Remove 1
shRange.Remove 2
shRange.CreateSelection
If you want to add a specified ShapeRange object to the current selection (rather than use it to replace
the current selection), you can use the ShapeRange.AddToSelection method.
Next sh
Here is a VBA code sample for accessing the shapes in a selection range:
Dim sRange As ShapeRange, sh As Shape
Next sh
Remember that the ActiveSelection.Shapes command provides direct access to the current
selection, while the ActiveSelectionRange command provides a copy of the current selection. Use
ActiveSelection.Shapes if you want to access the current selection; use ActiveSelectionRange if
you want to create a “snapshot” of the current selection that you can access later.
Deselecting shapes
You can deselect any shape by changing the value of its Shape.Selected property to False.
You can deselect all shapes by using the Document.ClearSelection method. The following VBA code uses the
ClearSelection method to deselect all shapes in the active document:
ActiveDocument.ClearSelection
If you want, you can use event handlers to respond to events that are triggered by deseleting a shape:
• Document.ShapeChange
You can also use event handlers to respond to events that are triggered by deactivating a selection:
• Application.SelectionChange
• Document.SelectionChange
• GlobalMacroStorage.SelectionChange
The Duplicate method provides two optional parameters, OffsetX and OffsetY, which offset the duplicate from
the original (horizontally and vertically, respectively). The following VBA code positions the duplicate two inches
to the right and one inch above the original:
ActiveDocument.Unit = cdrInch
ActiveSelection.Duplicate 2, 1
Transforming shapes
You can transform shapes in various ways, as explained in the following topics:
• “Sizing shapes” on page 128
• “Stretching shapes” on page 130
• “Skewing shapes” on page 130
• “Rotating shapes” on page 131
• “Positioning shapes” on page 131
If you want, you can use event handlers to respond to events that are triggered by transforming a shape:
• Document.ShapeTransform
Sizing shapes
You can return the width and height of a shape (in document units) by using the Shape.SizeWidth and
Shape.SizeHeight properties, as in the following VBA example:
Dim width As Double, height As Double
ActiveDocument.Unit = cdrMillimeter
width = ActiveShape.SizeWidth
height = ActiveShape.SizeHeight
You can also use the Shape.SizeWidth and Shape.SizeHeight properties to resize an existing shape by
specifying new values for those properties. The following VBA example uses these properties to set the size of the
active shape to a width of 50 millimeters and a height of 70 millimeters:
ActiveDocument.Unit = cdrMillimeter
ActiveShape.SizeWidth = 50
ActiveShape.SizeHeight = 70
You can return both the width and the height of a shape (in document units) by using the Shape.GetSize
method, as in the following VBA example:
Dim width As Double, height As Double
ActiveDocument.Unit = cdrMillimeter
ActiveShape.SetSize 50, 70
You can also resize a shape by using the Shape.SetSizeEx method. Besides the new width and new height for the
shape, this method takes a reference point for the resize (instead of using the center point of the shape). The
following VBA code uses the SetSizeEx method to resize the current selection to 10 inches wide by 8 inches high
about the reference point (6, 5) in the document:
ActiveDocument.Unit = cdrInch
ActiveSelection.SetSizeEx 6, 5, 10, 8
If you want to take the outline of a shape into account when returning the size of that shape, you must use the
Shape.GetBoundingBox method. The bounding box for a shape surrounds both the shape and its outline;
however, the actual dimensions of a shape specify its width and height irrespective of the size of its outline. The
following VBA example uses the GetBoundingBox method to return the size of the active shape:
Dim width As Double, height As Double
ActiveDocument.Unit = cdrInch
ActiveDocument.ReferencePoint = cdrBottomLeft
The Shape.GetBoundingBox method takes parameters that specify the position of the lower-left corner of the
shape, the width of the shape, and the height of the shape. The final parameter is a Boolean value that indicates
whether to include (True) or exclude (False) the outline of the shape. The Shape.SetBoundingBox method lets
you set the size of a shape by specifying the size of its bounding box; however, this method lacks the parameter
for specifying whether to include the outline in the new size. If you want to calculate the size and position of the
bounding box of a shape without including its outline, you can use the GetBoundingBox method twice (once
including the outline and once excluding it), as in the following VBA example:
Public Sub SetBoundingBoxEx(X As Double, Y As Double, _
Dim sh As Shape
Set sh = ActiveSelection
cdrBottomLeft
End Sub
Stretching shapes
You can stretch a shape (or scale it by stretching is proportionately) by using the Shape.Stretch method or the
Shape.StretchEx method. Both methods take a decimal value for the stretch, where 1 is 100% (or no change);
you cannot use zero, so you must use a very small value instead.
The following VBA code uses the Shape.Stretch method to stretch the selection to half its current height and
twice its width, about the midpoint of the bottom edge of its bounding box:
ActiveDocument.ReferencePoint = cdrBottomMiddle
ActiveSelection.Stretch 2, 0.5
If you want to specify the reference point about which to perform a stretch, you can use the Shape.StretchEx
method. The following VBA code performs the same stretch as the previous code, but it performs that stretch
about the point (4, 5) on the page (in inches):
ActiveDocument.Unit = cdrInch
ActiveSelection.StretchEx 4, 5, 2, 0.5
The Shape.Stretch and Shape.StretchEx methods provide an optional Boolean parameter that
determines how to stretch paragraph text. A value of True stretches the characters, while False stretches
the bounding box and re-flows the text within it.
Skewing shapes
You can skew a shape by using the Shape.Skew method or the Shape.SkewEx method. These methods let you
specify the horizontal-skew angle (in degrees, where positive values move the top edge to the left and the bottom
edge to the right) and the vertical-skew angle (in degrees, where positive values move the right edge upwards
and the left edge downwards).
Skews of angles close to or greater than 90° are not allowed.
The horizontal skew is applied before the vertical skew.
The difference between the Shape.Skew and Shape.SkewEx methods is the point about which the skew is
performed: Skew uses the center of rotation for the shape, while SkewEx uses the specified reference point.
Rotating shapes
You can rotate a shape by using the Shape.Rotate method or the Shape.RotateEx method. These methods
rotate the shape by the given angle (in degrees). However, the difference between these methods is the point
about which they perform the rotation: Rotate uses the center of rotation for the shape, while RotateEx uses the
specified reference point.
You can determine the center of rotation for a shape by returning the values of its
Shape.RotationCenterX and Shape.RotationCenterY properties. Changing these values moves the
center of rotation for that shape.
The following VBA code uses the Shape.Rotate method to rotate the selection (about its center of rotation) by
30°:
ActiveSelection.Rotate 30
The following VBA code uses the Shape.RotateEx method to rotate each selected shape by 15° clockwise about
its lower-right corner:
Dim sh As Shape
ActiveDocument.ReferencePoint = cdrBottomRight
Next sh
Positioning shapes
You can return the horizontal and vertical position of a shape by using the Shape.PositionX and
Shape.PositionY properties (respectively). Alternatively, you can use the Shape.GetPosition method to return
both the horizontal position and the vertical position of a shape.
You can use the Shape.GetBoundingBox method if you want to return the position of a shape,
including its outline. For more information on this method, see “Sizing shapes” on page 128.
The following VBA code uses the Shape.GetPosition method to return the position of the selection relative to
the current reference point of the active document, which the code explicitly sets to the lower-left corner:
Dim posX As Double, posY As Double
ActiveDocument.ReferencePoint = cdrBottomLeft
ActiveDocument.Unit = cdrInch
ActiveDocument.ReferencePoint = cdrBottomRight
sh.SetPosition 3, 2
Next sh
If you want, you can use event handlers to respond to events that are triggered by positioning a shape:
• Document.ShapeMove
Coloring shapes
You can add color to a shape by applying a fill (or Fill object) to it. The fill type for a shape is recorded by the
Fill.Type property as one of the following constants for the cdrFillType enumeration:
• cdrUniformFill — uniform fill
• cdrFountainFill — fountain fill
• cdrPatternFill — pattern fill
• cdrTextureFill — texture fill
• cdrPostScriptFill — PostScript fill
• cdrHatchFill — hatch fill
• cdrNoFill — no fill
The following VBA code returns the type of fill that is applied to the active shape:
Dim fillType As cdrFillType
fillType = ActiveShape.Fill.Type
You cannot change the fill type for a shape by modifying its Fill.Type property. Instead, you must use
the appropriate Fill.Apply...Fill method, as described in the subsections that follow.
You can also add color to a shape by applying an outline (or Outline object) to it.
In addition, the object model provides a variety of properties and methods for working with the colors (or Color
objects) that you apply to shapes.
For information on applying fills and outlines and on working with colors, see the following subtopics:
• “Applying uniform fills” on page 133
You can change the color of a uniform fill by modifying its Fill.UniformColor property. The following VBA
example changes the uniform fill of the active shape to deep navy blue:
ActiveShape.Fill.UniformColor.RGBAssign 0, 0, 102
You can remove the uniform fill from a shape by using the Fill.ApplyNoFill method.
startCol.RGBAssign 255, 0, 0
You can add a color to a fountain fill by using the FountainColors.Add method. Color positions are integer
values in percent, where 0% is the start-color position and 100% is the end-color position. The following VBA
example adds a green color to the fountain fill at a position about one-third (33%) of the way from the existing
red color:
Dim fFill As FountainFill
You can move a color in a fountain fill by using the FountainColor.Move method. The following VBA code
moves the green color from the previous example to a position that is 60% of the way from the red (that is, more
towards the yellow):
ActiveShape.Fill.Fountain.Colors(1).Move 60
You can use the FountainColors.Count property to determine the number of colors between the start color and
end color of a fountain fill. (For the preceding example, this value is 1.) The first color in the collection is that
start color, and its index number is 0; this color cannot be moved, but its color can be changed. The last color in
the collection is the end color, and its index number is (Count + 1); this color cannot be moved, but its color
can be changed. The following VBA code changes the end color from yellow to blue:
Dim cols As FountainColors
You can remove the fountain fill from a shape by using the Fill.ApplyNoFill method.
Applying outlines
You can use the various properties and methods of the Outline class to define the outline of a shape.
The Outline.Type property uses the following constants of the cdrOutlineType enumeration to record whether
the specified shape has an outline:
• cdrOutline — indicates that the shape has an outline
• cdrNoOutline — indicates that the shape does not have an outline
If a shape has no outline, setting its Outline.Type property to cdrOutline applies the document-default
outline style.
If a shape has an outline, setting its Outline.Type property to cdrNoOutline removes that outline.
The Outline.Width property for an outline sets its width in document units. In the following VBA example, the
outline of the selected shapes is set to 1 millimeter:
ActiveDocument.Unit = cdrMillimeter
ActiveSelection.Outline.Width = 1
If a shape does not have an outline, its Outline.Width value is 0. Changing this value applies an outline
and automatically changes the value for the Outline.Type property from cdrNoOutline to cdrOutline.
Similarly, if a shape has an outline, its Outline.Width value is greater than 0. Changing this value to 0
removes the outline and automatically changes the value for the Outline.Type property from cdrOutline
to cdrNoOutline.
The Outline.Color property for an outline defines its color, as in the following VBA example:
ActiveSelection.Outline.Color.GrayAssign 0 ' Set to black
Setting the color of an outline automatically sets the Outline.Type property of that outline to
cdrOutline and applies the default outline width.
The Outline.Style property for an outline specifies the dash settings of that outline. These dash settings are
defined by the following properties of the OutlineStyle class:
• DashCount — represents the number of pairs of dashes and gaps in an outline. This value ranges from 1 to 5.
• DashLength — represents the length of each dash in an outline. This value is calculated as a multiple of the
outline width, which is measured in document units. For example, if DashLength(1) is 5 and the outline is
0.2" wide, the length of the dash is 1"; however, if the width of the line is changed to 0.1", the length of the
dash becomes 0.5".
colType = ActiveShape.Outline.Color.Type
The Color.Type property is defined by the cdrColorType enumeration, which provides the following constants
(among many others) for supported color models:
• cdrColorCMYK — specifies the CMYK color model
• cdrColorRGB — specifies the RGB color model
• cdrColorGray — specifies the grayscale color model
The color components for each supported color model are defined by additional properties of the Color
class, as demostrated by the following VBA examples:
• CMYK color model — is defined by the Color.CMYKCyan, Color.CMYKMagenta,
Color.CMYKYellow, and Color.CMYKBlack properties
• RGB color model — is defined by the Color.RGBRed, Color.RGBGreen, and Color.RGBBlue
properties
• grayscale color model — is defined by the Color.Gray property
The range of values that is supported by a color component depends on the color model for that
component.
To create a color, you can use the automation keyword New, as in Dim col As New Color.
Set sh = ActiveShape
sh.Outline.Color.CopyAssign sh.Fill.UniformColor
The color “none” does not exist. To set a fill color or outline color to “none,” you must instead set the fill
type or outline type to “none.”
Applying blends
The Shape.CreateBlend method creates a blend between the current shape and the shape that is specified as a
parameter. This method provides optional parameters for various blend settings, such as the acceleration of the
blend and the path along which the blend is created.
The following VBA code creates a basic ten-step blend:
Dim sh As Shapes, eff As Effect
In the preceding example, the number of shapes in the blend is twelve: the start and end shapes, plus the
ten blend steps that are created.
The Shape.CreateBlend method returns an Effect object, the Effect.Blend property for which you can
use to modify the created blend.
Applying contours
The Shape.CreateContour method applies a contour to a shape. This method provides optional parameters for
various contour settings, such as the colors and acceleration of the contour.
The following VBA code creates a three-step contour at a five-millimeter spacing:
Dim eff As Effect
ActiveDocument.Unit = cdrMillimeter
The Shape.CreateContour method returns an Effect object, the Effect.Contour property for which you
can use to modify the created contour.
Applying distortions
The following methods apply a distortion to a shape:
• Shape.CreatePushPullDistortion — applies a Push-and-pull distortion
• Shape.CreateTwisterDistortion — applies a Twister distortion
• Shape.CreateZipperDistortion — applies a Zipper distortion
• Shape.CreateCustomDistortion — applies a customized distortion
These methods provide parameters for various distortion settings.
The distortion-creation methods return an Effect object, the Effect.Distortion property for which you
can use to modify the created distortion.
If you want, you can use event handlers to respond to events that are triggered by distorting a shape:
• Document.ShapeDistort
Applying envelopes
The following methods apply an envelope to a shape:
• Shape.CreateEnvelope — applies a basic envelope
• Shape.CreateEnvelopeFromCurve — applies an envelope by using the specified curve as a template
• Shape.CreateEnvelopeFromShape — applies an envelope by using the specified shape as a template
These methods provide parameters for various envelope settings.
The envelope-creation methods return an Effect object, the Effect.Envelope property for which you can
use to modify the created envelope.
Applying extrusions
The Shape.CreateExtrude method applies an extrusion to a shape. This method provides optional parameters
for various extrusion settings, such as the angle and color of the extrusion.
The Shape.CreateExtrude method returns an Effect object, the Effect.Extrude property for which you
can use to modify the created extrusion.
Applying lenses
The Shape.CreateLens method applies a lens to a shape. This method provides optional parameters for various
lens settings, such as the color and magnitude of the lens.
The Shape.CreateLens method returns an Effect object, the Effect.Lens property for which you can use
to modify the created lens.
Applying perspective
The Shape.CreatePerspective method applies perspective to a shape. This method provides optional
parameters for specifying horizontal and vertical vanishing points.
The Shape.CreatePerspective method returns an Effect object, the Effect.Perspective property for
which you can use to modify the created perspective effect.
For comprehensive information on using CQL, see “Including queries in macros” in the Macros Help file for the
application.
Deleting shapes
If you want, you can use event handlers to respond to events that are triggered by deleting a shape:
• Document.ShapeDelete
In this topic
To learn more about working with filters, see the following subtopics:
• “Working with import filters” on page 140
• “Working with export filters” on page 142
'Initialize FilterObject
cdrDSF)
FilterObject.DefaultLinestyle = 1 'Dashed
FilterObject.DeleteInvisibleObjects = True
End Sub
For best results, use the filter-specific object DSFImport only to learn the specific interfaces that are supported
by a filter. For example, the following screenshot demonstrates that the ImportFilter object exposes only generic
interfaces in Microsoft® IntelliSense® because the ImportFilter interface is generic (and not filter-specific). The
ImportFilter object does not contain the DefaultLinestyle and DeleteInvisibleObjects properties; however,
you can still set these properties in the ImportFilter interface if they are supported by the specified import filter.
As previously discussed, using the ImportFilter object (rather than the filter-specific object DSFImport)
ensures that a file-import script can be used on any other workstation running the same version of the
application. To reference the properties, methods, and enumerations for a specific filter, locate that filter in the
Object Browser. For example, the following screenshot demonstrates that the line-style dsfDashed2 can be
specified by assigning a value of 7 to the DefaultLinestyle property.
To access the object model for a filter, click Tools References from within the Macro Editor. In the
References dialog box that appears, click Browse, and navigate to the Filters folder of the installed software.
Select the dynamic-link library (DLL) file for the desired filter, and then click OK. When the References dialog
box reappears, enable the checkbox that corresponds to the desired filter, and then click OK. You can now access
the object model for the filter, as in the following VBA example:
Sub OpenRectangleDSF()
'Initialize FilterObject
Style = dsfDashed
FilterObject.DefaultLinestyle = Style
FilterObject.DeleteInvisibleObjects = True
FilterObject.Finish
End Sub
Working with an import filter is made much easier by having the script access the object model for that filter;
however, as discussed, this technique reduces the portability of the script. When used at another workstation, the
script must first be updated with the correct location of the DLL file for the filter.
'Initialize FilterObject
cdrDXF)
BitmapType = dxfBitmapGIF
Units = dxfInches
FilterObject.Units = Units
TextAsCurves = False
FilterObject.TextAsCurves = TextAsCurves
Version = dxfVersion2000
FilterObject.Version = Version
FilterObject.Finish
End Sub
In the preceding example, a call is made to ActiveDocument.ExportEx method, and the interface for the
export filter (DXFExport) is invoked. However, you can use the generic export interface (ExportFilter) rather
than the filter-specific interface (DXFExport), as in the following VBA example:
Sub SaveRectangle()
'Initialize FilterObject
FilterObject.BitmapType = 1 'GIF
FilterObject.Units = 0 'Inches
FilterObject.TextAsCurves = False
FilterObject.Finish
End Sub
The following VBA example demonstrates how to invoke the Export dialog box:
Sub ShowExportDialog()
'Initialize FilterObject
vntReturn = FilterObject.ShowDialog
FilterObject.Finish
End If
End If
End Sub
The preceding example requires you to check the return value of the dialog box, and to invoke the Finish
method for when the user clicks OK.
Sample layout
Dim s As String
Dim f As FrameWindow
DumpFrameWindows f, 0, s
Next f
Debug.Print s
End Sub
Else
End If
End Sub
s = s & Space(indent) & "DockHost: " & d.ID & " - " & IIf(d.Orientation = _
Next item
s = s & Space(indent) & "View: " & w.ID & " - Kind: " & w.Kind & " - " & w.Title & _
End Sub
Dim w As ViewWindow
s = s & Space(indent) & "ViewHost: " & v.ID & " - " & v.Views.Count & " view(s)" & _
vbCrLf
DumpViewWindow w, indent + 2, s
Next
End Sub
s = s & Space(indent) & "FrameWindow: " & f.ID & " - " & IIf(f.IsMainFrame, _
s = s & vbCrLf
End Sub
If you run the DumpLayout macro for the “Sample layout” on page 144, you will see an output similar to the
following:
DockHost: fc796773-64ff-4250-8d64-3bd07fd9352f - V
DockHost: 1304df1c-d014-4daf-a755-c0fbbd983127 - H
DockHost: ed290c1b-448e-49e6-a1e4-fbee981b9545 - V
Each of the elements — FrameWindow, DockHost, ViewHost, ViewWindow— have unique IDs (GUID) that
you can use to identify the elements. A view window also has a GUID that lets you differentiate the Welcome
screen (kind: 1a9379f7-f018-3eb7-41e2-51436969b66f) from a regular document window
(kind: ab303a90-464d-5191-423f-613c4d1dcb2c).
Combining views
The following VBA example takes all the document views and places them all in one ViewHost in the main
frame window. Any docked or floating documents are placed in the main frame.
Sub CombineAllViews()
Dim f As FrameWindow
If FrameWork.MainFrameWindow.ViewHosts.Count = 0 Then _
FrameWork.MainFrameWindow.RootDockHost.InsertViewHost vh, 1
Set vhc = vh
Else
End If
Next vh
Next f
End Sub
If the preceding macro is run on the “Sample layout” on page 144, the views are combined, and all open
documents appear tabbed.
Cascading views
The following VBA example cascades all the views by extracting each view into its own floating window and
arranging the views on top of the main frame window.
Sub CascadeViews()
Set rc = FrameWork.MainFrameWindow.RootDockHost.Position.GetCopy
Set fw = FrameWork.CreateFrameWindowForView(v)
fw.Position.CopyAssign rc
Next v
Next vh
End Sub
Cascading views
Tiling views
The following VBA macro tiles all the views inside the main frame window by using a grid.
Sub TileViews()
Dim views As New Collection
Dim fw As FrameWindow
Dim vh As ViewHost, vw As ViewWindow, dh As DockHost
Dim rows As Long, cols As Long
Tiled views
array
A set of sequentially indexed objects of the same data type (or “array elements”)
Each array element has the same data type (although elements can have different values), and the entire array is
stored contiguously in memory (with no gaps between elements). For example, you could have an array of integers
or an array of characters or an array of anything that has a defined data type.
By default, array indexes are zero-based.
Arrays can have more than one dimension. A one-dimensional array is called a “vector,” while a two-dimensional
array is called a “matrix.”
automation
The process of recording or scripting a macro
class
The definition of each property, method, and event that applies to a type of object in the application
class module
A type of module that contains the definition of an object-oriented Visual Basic class, including the definitions
of the properties and methods for that class
collection
A group of objects that have similar characteristics and similar actions but that are uniquely identified by index
names or index numbers
Collections are always plural. For example, Documents is a collection of Document objects.
constant
A value in an automation-programming structure that remains fixed while the macro is being executed
Unlike a variable, which temporarily stores a changing data value in a code procedure or code function, constant
values do not change.
A constant is an instance of an enumeration.
dithering
The process of simulating color by putting dots of another color very close together
enumeration
Also called an “enumerated type,” a data type that lists all possible values for the variables that use it
Unlike a variable, which temporarily stores a changing data value, an enumeration stores fixed values.
A constant is an instance of an enumeration.
enumerated type
See “enumeration.”
event
An action that takes place in an object and that is recognized by a form or control
Each object within an object model is defined by a property, method, event, or a combination of each. An event
is triggered by an action — such as a click, key press, or system timer — and you can write code that causes an
object to respond to that event.
event-driven programming
A style of programming, unlike traditional procedural programming (in which the program starts at line 1 and
executes line by line), that executes code in response to events
Visual Basic for Applications is an event-driven programming language. Most of the code you create is written to
respond to an event.
Compare with “object-oriented programming.”
event handler
A subroutine that is programmed to cause the application to respond to a specific event
form
A type of module that is used for customized dialog boxes and user interfaces, and that includes the code to
control them
function
A procedure that performs a given task in a macro and that can be used to return a value
A function procedure begins with a Function statement and ends with an End Function statement. In VBA
and VSTA, functions do not need to be declared before being used, nor before being defined.
gap
A space between dashes in an outline style
GMS file
Also called a “project file” (and short for “Global Macro Storage file”), the location to which the Macro Editor
stores all modules for a project
index number
A reference to an object in a collection that contains more than one object
An index number is used to identify each object in a collection. The index number can range from 1 to the number
of available objects within the collection.
macro
A recorded or scripted set of tasks that can be repeatedly invoked within an application
A macro is a symbol, name, or key that represents a list of commands.
method
An operation that an object can have performed on itself
module
A container that is used by a GMS file for storing project components
Generic modules are used for general code and for macros. Other types of modules include forms and class
modules.
object
When referring to an object model, an instance of a class
object model
A high-level structure of the relationship between the parent objects and child objects in an application
object-oriented programming
A style of programming that places emphasis on creating and using objects
Compare with “event-driven programming.”
parameter
Synonymous with “argument,” a value that is passed to a routine and that defines a characteristic of an object in
the Visual Basic programming environment
Parameters are attributes that appear after a recorded command in the Recorder docker. For example, dialog-
box options are not recorded as separate commands in the Recorder docker; they are recorded as attributes of the
command that initially invoked the dialog box.
passing by reference
The act of passing an argument to a function or subroutine by using a reference to the original
By default, function parameters and subroutine parameters are passed by reference. To explicity indicate that
you want to pass an argument by reference, prefix the argument with ByRef.
passing by value
The act of passing an argument to a function or subroutine by using a copy of the original
To explicity indicate that you want to pass an argument by value, prefix the argument with ByVal.
property
A characteristic of a class
Properties can be returned or set. In addition, properties can be designated as read-only (to indicate that they are
fixed by the design of the class).
range
A series of similar objects
scope
The visibility of a data type, procedure, or object
shortcut object
A syntactic replacement for the longhand version of an object
sub
See “subroutine.”
subroutine
Sometimes called a “sub,” a procedure that performs a given task in a macro but cannot be used to return a value
A subroutine procedure begins with a Sub statement and ends with an End Sub statement. In VBA and VSTA,
subroutines do not need to be declared before being used, nor before being defined.
variable
An item that can be created (or “declared”) for the purposes of storing data
The built-in data types are Boolean, Double, Integer, Long, Single, String, Variant, and several other less-
used types including Date, Decimal, and Object. If a variable is not declared before being used, the compiler
interprets it as a Variant.
Variant
The data type for all variables that are not declared as another type, such as Dim, Private, Public, or Static
The Variant data type has no type-declaration character.
VBA
A built-in programming language that can automate repetitive functions and create intelligent solutions in a
software application
VBA is a subset of the Microsoft Visual Basic (VB) object-driven programming environment, but it is considered
“for applications” because it is most often integrated into another application to customize the functionality of
that application.
activating classes
documents . . . . . . . . . . . . . . . . . . . . . . . . . . . . .84 understanding . . . . . . . . . . . . . . . . . . . . . . . . . .14
layers . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .102 closing
pages . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .97 documents . . . . . . . . . . . . . . . . . . . . . . . . . . . . .93
shapes . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .124 macro projects . . . . . . . . . . . . . . . . . . . . . . . . . .47
allocating memory . . . . . . . . . . . . . . . . . . . . . . . . .19 code
Application class stepping through . . . . . . . . . . . . . . . . . . . . . . . .56
understanding . . . . . . . . . . . . . . . . . . . . . . . . . .75 understanding structure of . . . . . . . . . . . . . . . .16
W
Watches window . . . . . . . . . . . . . . . . . . . . . . . . . .53
windows . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .86
Windows Script Host
vs. VBA . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .12
workspaces
deploying . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .71
exporting features . . . . . . . . . . . . . . . . . . . . . . .72
importing features . . . . . . . . . . . . . . . . . . . . . . .72
writing macros . . . . . . . . . . . . . . . . . . . . . . . . . . . .48
Z
zooming in documents . . . . . . . . . . . . . . . . . . . . .87