Get visSectionProp value without quotes?

[AdamB]

I'm using the visSectionProp to story a variety of metadata on a shape.

For example, I'll have a property called Prop.Region.

I set the formula of this to something like "southwest".

When I retrieve the property through myshape.Cells("Prop.Region") I get "0".
I would love to get "southwest" instead. In order to get "southwest" now, I
need to do a Replace(myshape.Cells("Prop.Region"),chr(34),"").

Does anyone have any ideas on how this can be accomplished? The replace
functions make the code look messy. I even tried .Result and that just
returned zero.

Am I thinking about this the wrong way?

 

[AdamB]

I think I answered my own question.

When I was setting the property, I was doing a
myshape.Cells("Prop.Region").Formula = "southwest"

Instead, I should have done myshape.Cells("Prop.Region") = "southwest" which
will set the ResultIU value.

 

[AdamB]

I guess I didn't fully resolve the issue.

It seems that I have to do what I was doing before re:Formula if I am saving
string values. I had success because the particular variable was an integer.

So for now I've made a CVStr() function that formats the string correctly
and a DVStr() function that decodes it. ugh.

Anyone have any better ideas?

 

[AlEdlund]

sounds like you're re-inventing functionality that is in the visio sdk.
al

 

[AdamB]

What functionality is that?

I've googled extensively on this and no one seems to have an answer.

See http://www.upfrontezine.com/visions/v02n17.htm (Tip #42) for another
person using my workaround.

 

[AdamB]

I guess the problem is more with setting the cell value without using quotes
rather than retreiving it, as there is the .ResultStr(0) function.

 

[AlEdlund]

rather than googling, you might check here

http://www.microsoft.com/downloads/...FamilyID=373d34b8-5ef7-4e6e-a582-c8d6b5ee4e33

for a description on reading cell information

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

al

 

[JuneTheSecond]

Hi,

Did you tried ResultStr property?
Debug.Print myshape.Cells("Prop.Region").ResultStr("")

--
Best Regards.

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

 

[JuneTheSecond]

I see you have tried ResultStr property for retrieve only property.
I think it is impossible to add text data without double quotes.
myshape.Cells("Prop.Region").Formula = Chr(34) & "southwest" & Chr(34)

--
Best Regards.

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