Custom properties

[Jason V]

I have a variable named SLabel that changes content (string content). I am
placing a shape through code and am changing the custom property named label
to what is in SLabel. Here is the code:

VisDoc.Application.ActiveDocument.Pages("Page-1").Drop mstStencil, SpinX,
SpinY
Set selObj = VisDoc.Application.ActiveWindow.Selection
Set vsoShape = selObj(1)
idx = vsoShape.ID
Dim vsoCell As Visio.Cell
Set vsoShape = VisDoc.Application.ActiveWindow.Page.Shapes.ItemFromID(idx)
Set vsoCell = vsoShape.Cells("Prop.Label.value")
vsoCell.FormualU = SLabel

I have tried vsoCell.text, .resultstr, .resultU and everything gives me an
error. If I just replace Slabel with """SLabel""" it puts in SLabel not it's
value. If I replace SLabel with a 3 then it puts in a 3. How do I get this to
work for a variable name?
Thanks

 

[John Goldsmith]

Hello Jason,

You need to add two sets of double quotes for each one you want to add, so
have a go with the following:

vsoCell.FormulaU = "=""" & SLabel & """"

Hope that helps.

Best regards

John


John Goldsmith
www.visualSignals.typepad.co.uk
www.visualSignals.co.uk

 

[Jason V]

That worked, thank you. Do you know where I can go to learn more about that
and
the .resultU, .ResultStr, .FormulaU etc.?

 

[John Goldsmith]

Hello Jason,

Glad that helped.

Take a look at this link, which should shed some light:

http://msdn2.microsoft.com/en-us/library/aa201764(office.10).aspx

Best regards

John


John Goldsmith
www.visualSignals.typepad.co.uk
www.visualSignals.co.uk