List a shape's cells

[Olivier]

How can I enumerate all of a shape's cells? Either in VBA or through
some property box?
For example I'm working with a timeline milestone and I want to change
the date format to mmm for example, so how do I find the name of that
property? I know after some research that to change the "Milestone
Date" you have to use:
Cells("user.vismilestonedate").Formula

 

[JuneTheSecond]

Hi,

Did you check CellsSrc property?

--
Best Regards.

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

 

[AlEdlund]

"Either in VBA or through some property box?"

It's all in the shapesheet of the object which can be displayed using the
menu.
al

 

[WapperDude]

Adding to Al's comment, the closest thing that I've found to a list is at
this site: http://msdn.microsoft.com/en-us/library/ms427031.aspx. However,
it is quite general, and probably doesn't provide enough detail for you. It
lists sections, cells, and functions available for the shapesheet.

Wapperdude

 

[Olivier]

Adding to Al's comment, the closest thing that I've found to a list is at
this site:  http://msdn.microsoft.com/en-us/library/ms427031.aspx.  However,
it is quite general, and probably doesn't provide enough detail for you.  It
lists sections, cells, and functions available for the shapesheet.

Wapperdude







- Show quoted text -

So help me out here, more specifically, when I insert a milestone I
can go to Shape->Actions->Configure Milestone and change the Milestone
Date. But how do I find out that this is what I need to do to do the
same in VBA?
sh.Cells("user.vismilestonedate").Formula = CDbl(CDate("1/15/2006"))
Where do I find out about user.vismilestonedate and the other
available properties for that particalar shape?

 

[AlEdlund]

That shape is a custom shape that goes with the timeline addin code. They
are not documented anywhere. To add to it, each of the other shapes also
have custom fields that you will have to investigate in their shapesheets.
sorry,
al

 

[John... Visio MVP]

Adding to Al's comment, the closest thing that I've found to a list is at
this site: http://msdn.microsoft.com/en-us/library/ms427031.aspx. However,
it is quite general, and probably doesn't provide enough detail for you.
It
lists sections, cells, and functions available for the shapesheet.

Wapperdude







- Show quoted text -

So help me out here, more specifically, when I insert a milestone I
can go to Shape->Actions->Configure Milestone and change the Milestone
Date. But how do I find out that this is what I need to do to do the
same in VBA?
sh.Cells("user.vismilestonedate").Formula = CDbl(CDate("1/15/2006"))
Where do I find out about user.vismilestonedate and the other
available properties for that particalar shape?


Use the macro recorder. Turn it on, repeat your actions and then see what
was recorder. It will not be great code, but it will give you an idea of
what you need to do.

(As an initial cleanup to the recorded code, delete anything that refers to
UndoScope.)

John... Visio MVP

 

[Olivier]

So help me out here, more specifically, when I insert a milestone I
can go to Shape->Actions->Configure Milestone and change the Milestone
Date. But how do I find out that this is what I need to do to do the
same in VBA?
sh.Cells("user.vismilestonedate").Formula = CDbl(CDate("1/15/2006"))
Where do I find out about user.vismilestonedate and the other
available properties for that particalar shape?

Use the macro recorder. Turn it on, repeat your actions and then see what
was recorder. It will not be great code, but it will give you an idea of
what you need to do.

(As an initial cleanup to the recorded code, delete anything that refers to
UndoScope.)

John... Visio MVP- Hide quoted text -

- Show quoted text -

Unfortunately when I configure a milestone the changes are not
recorded by the macro recorder.

 

[AlEdlund]

Maybe this will help,

http://visguy.com/vgforum/index.php?topic=1160.0

hth,
al