Auto custom properties

[Kware]

Im trying to auto fill custom properties of my shapes I have managed to be
able to do this with numbers but when i try it with strings it will not work.
below is what i have if i change the ? to 65 and the company to 2 i will get
"2 in" in the field From reading i thought 231 would resolve this but it has
not. Thanks in advance for any help.

Dim visshape As Shape
Dim txtBOx As Shape
Dim company As String

Set txtBOx = Visio.ActivePage.Shapes("Sheet.21")
txtBOx.Text = "john"
Set visshape = Visio.ActiveWindow.Selection(1)
visshape.Cells("prop.Company").Result(?) = company

 

[Paul Herber]

Im trying to auto fill custom properties of my shapes I have managed to be
able to do this with numbers but when i try it with strings it will not work.
below is what i have if i change the ? to 65 and the company to 2 i will get
"2 in" in the field From reading i thought 231 would resolve this but it has
not. Thanks in advance for any help.

Dim visshape As Shape
Dim txtBOx As Shape
Dim company As String

Set txtBOx = Visio.ActivePage.Shapes("Sheet.21")
txtBOx.Text = "john"
Set visshape = Visio.ActiveWindow.Selection(1)
visshape.Cells("prop.Company").Result(?) = company

The .Result method wants a value of numeric type, to set a string use
the ResultStr method.
What you are doing is setting the result to 2 with the default
internal units (which are inches).
So, on the last line
....ResultStr("") = "a string"
or .. Result("mm") = 2
will set the cell to 2mm

 

[Kware]

Resultstr("") wont work its read only

The .Result method wants a value of numeric type, to set a string use
the ResultStr method.
What you are doing is setting the result to 2 with the default
internal units (which are inches).
So, on the last line
....ResultStr("") = "a string"
or .. Result("mm") = 2
will set the cell to 2mm

 

[Al Edlund]

If my memory serves me correctly, result is meant for when I read a cell,
formula is for when I want to set a cell. (or something like that, it's
early here)

al

 

[Paul Herber]

You're right, of course. Use the Formula and FormulaU properties.

 

[Kware]

sorry about this but it wont work i get an error #NAME?
this is the code i have

Sub EditText()
Dim visshape As Shape
Dim txtBOx As Shape
Dim company As String

Set txtBOx = Visio.ActivePage.Shapes("Sheet.21")
txtBOx.Text = "johnny"
company = txtBOx.Text
Set visshape = Visio.ActiveWindow.Selection(1)
visshape.Cells("prop.Company").FormulaU = company


End Sub

 

[John Goldsmith]

As it's a string you need to set the formula as follows:

..FoumulaU = "=""" & company & """"

Best regards

John


John Goldsmith
www.visualSignals.co.uk

sorry about this but it wont work i get an error #NAME?
this is the code i have

Sub EditText()
Dim visshape As Shape
Dim txtBOx As Shape
Dim company As String

Set txtBOx = Visio.ActivePage.Shapes("Sheet.21")
txtBOx.Text = "johnny"
company = txtBOx.Text
Set visshape = Visio.ActiveWindow.Selection(1)
visshape.Cells("prop.Company").FormulaU = company


End Sub