Set Shape Name in a Shape Data Field Programmatically

[david]

i need to add custom properties to a group by code.
i have a problem writing strings in the properties.

for example the following command writes the string hello in the label of the property.
shape.CellsSRC(iSection, visRowProp + 0, visCustPropsLabel).Formula = """hello"""

but i want to write instead of "hello" the string shape.name (the actual name and not the string "shape.name").

what should i write instead of """hello"""?

thanks in advance
David

[Visio Guy]

shp.Cells("Prop.Whatever").Formula = "NAME()"

or as you already have started:

shp.CellsSRC(iSection, visRowProp + 0, visCustPropsLabel).Formula = "NAME()"

If you only have one set of quotes, then the string must be a valid ShapeSheet formula. So:

= "Bob"

Will give you an error,

= """Bob"""

Will write "Bob" to the formula, and:

= "Width + 1in."

Will enter that formula.

[david]

thanks.  but i didn't really mean shape.name.  it was just an example.  i thought that the answer will be for a general value of type String.
what i want to put there is a string that contains the prperty's name. it is assigned into the variable prop_name.  how can i put there the variable?

[Visio Guy]

You mean:

  shp.Cells("Prop.Whatever").Formula = Chr ( 34 ) & shp.Name & Chr ( 34 )

?

Or:

  shp.Cells("Prop.Whatever").Formula = Chr ( 34 ) & shp.NameID & Chr ( 34 )

perhaps? I use "Chr ( 34 )" for a double-quote because it prevents the problem of: do I use ", "", """, or """" ?

[david]

that's exactly what i meant!

thanks alot!!!