Addressing a shape data value using VBA

[MikeM]

I want to assign sex to a shape based on some outside criterion, using VBA. I
thought I could just use, in the shape data section (with Type = 1 and Format
= "M;F")

with [shape]
if [condition] then .cells("Prop.Sex") = "M" else .cells("Prop.Sex") = "F"
end with

Then I tried 0 and 1 instead of "M" and "F", but that didn't work either.

How do I change the value in that cell?

TIA,
Mike

 

[JuneTheSecond]

Mike,

ShapeSheet functions, Index and Lookup may be useful for you.

--
JuneTheSecond

Now, visual calculation is more visual.
http://www.geocities.jp/visualcalculation/english/index.html
Mike

 

[MikeM]

Those are nice to know, June2, but they don't solve my VBA problem.

Mike

 

[David Parker]

You need to assert the string as follows (use doduble-double-quotes):

with [shape]
if [condition] then .cells("Prop.Sex").FormulaU = "=""M""" else
..cells("Prop.Sex").FormulaU = "=""F"""
end with

 

[MikeM]

Thanks, David!

You need to assert the string as follows (use doduble-double-quotes):

with [shape]
if [condition] then .cells("Prop.Sex").FormulaU = "=""M""" else
.cells("Prop.Sex").FormulaU = "=""F"""
end with

Those are nice to know, June2, but they don't solve my VBA problem.

Mike