Adding Custom Properties in VBA
Thanks but I just found on the MSDN website what I needed.
In the online developer help that comes with Visio 2000
under the Cells topic they make reference to Label, Prompt
etc. properties and the syntax to use them and also refer
to the Ask property. But, you actually use the Verify
property (which is not referenced anywhere in their Help
files but is on their website info) in place of the Ask
property:
shape.Cells("Prop.NewProperty.Verify").Formula = TRUE
Again, thanks for your information.
Mike
Quote:
>-----Original Message-----
>You might want to try:
>shape.CellsSRC(visSectionProp,visRowProp,visCustPropsAsk)
>This will get you the Custom Property in the first row of
the section,
>to get the second replace visRowProp with visRowProp+1.
To get the
>third replace it with visRowProp+2 and so on...
>I hope this helps.
>Kelly
>> I am adding custom properties to document shapes as well
>> as master stencil shapes with VBA but get an error when
>> trying to set the Ask property (Error: Unexpected End Of
>> File...which usually means incorrect or no property).
>> The syntax that works with several other properties is:
>> shape.Cells("Prop.NewProperty.Label").Formula = Chr(34)
>> & "New Property" & Chr(34)
>> and
>> shape.Cells("Prop.NewProperty.Type").Formula = 1
>> But,
>> shape.Cells("Prop.NewProperty.Ask").Formula = TRUE (or -
1)
>> gets the error.
>> Any help would be very much appreciated.
>> Thanks,
>> Mike
>.
