Setting the value of a custom property

[realminds]

Hi All,

I am trying to Set a custom property of a shape using some vb code.
Basically my shape is conencted to a SharePoint List meta data, and i want
to access the Name property and rename it based on some criteria, I came to
know to try VSOShape.SetFormulas, but am somohow not able to understand how
to use it to rename the property value in Visio 2007. Can any body help

 

[JuneTheSecond]

Name of property is given by the value of Label1 cell in shapesheet.
Is this the name you mentioned?

 

[realminds]

Hi,

Thanks for your reply, I somehow solved it by using following code


Dim sCustomPropertyName As String
sCustomPropertyName = "Prop._VisDM_Name"

Dim i As Integer
Dim VSOCell As Visio.Cell
Dim VSOshape As Visio.Shape

For Each VSOshape In ActivePage.Shapes
Set VSOname = VSOshape.Cells(sCustomPropertyName)
VSOname.Formula = Chr(34) & "abcd" & i & Chr(34)
Set VSOname = Nothing
Next