Shape.UniqueID Property (Visio)
Gets, deletes, or makes the GUID that uniquely identifies the shape within the scope of the application. Read-only.
Version Information
Version Added: Visio 4.0
Syntax
expression .UniqueID(fUniqueID)
expression An expression that returns a Shape object.
Parameters
Name |
Required/Optional |
Data Type |
Description |
|---|---|---|---|
fUniqueID |
Required |
Integer |
Gets, deletes, or makes the unique ID of a Shape object. See Remarks for possible values. |
Return Value
String
Remarks
Microsoft Visio identifies shapes by two different IDs: shape IDs and unique IDs. Shape IDs are numeric and uniquely identify shapes within the scope of an individual drawing page. They are not unique within a wider scope, however.
Unique IDs are GUIDs. They are unique within the scope of the application.
To convert between shape IDs and unique IDs, you can use two methods of the Page object, ShapeIDsToUniqueIDs and UniqueIDsToShapeIDs.
By default, a shape does not have a unique ID. A shape acquires a unique ID only if you set its UniqueID property.
If a Shape object has a unique ID, no other shape in any other document will have the same ID.
The fUniqueID parameter controls the behavior of the UniqueID property. It should have one of the following values declared in the Visio type library in VisUniqueIDArgs.
Constant |
Value |
Description |
|---|---|---|
visGetGUID |
0 |
Returns the unique ID string only if the shape already has a unique ID. Otherwise it returns a zero-length string (""). |
visGetOrMakeGUID |
1 |
Returns the unique ID string of the shape. If the shape does not yet have a unique ID, it assigns one to the shape and returns the new ID. |
visDeleteGUID |
2 |
Deletes the unique ID of a shape and returns a zero-length string (""). |
To get a shape if you know its unique ID, use Shapes.Item(UniqueIDString).
For example, you can use the following code:
Dim vsoShape As Visio.Shape
Set vsoShape = Visio.ActivePage.Shapes.Item("{2287DC42-B167-11CE-88E9-0020AFDDD917}")
Alternatively, you can use the following code, which adds the letter "U" before the string to identify it as a unique ID:
Dim vsoShape As Visio.Shape
Set vsoShape = Visio.ActivePage.Shapes.Item("U{2287DC42-B167-11CE-88E9-0020AFDDD917}")