Shape.Name

Property Name As String

Member of Shape

The Name property returns or sets a name-string associated with a shape. If this property was not changed, an empty string is returned.

The following code example gives each polygon a consecutively-numbered name:

Sub Test() 
 Dim s As Shape 
 Dim n As Long 
 n = 1 
 For Each s In ActivePage.Shapes 
  If s.Type = cdrPolygonShape Then s.Name = "Polygon " & n: n = n + 1 
 Next s 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.