geometry1 section

[Andreas Suess]

how can I add a Geometry1 Section to a Point that is
created with VBA ?

kind regards
Andreas süß

[Chris Roth]

I'm not sure what you mean by Point? Page.AddGuide(type,x,y)?

You could simply use Page.DrawRectangle and change the 1st Geometry section
in the resulting shape.

übrigens,

To add a geometry section to a shape, try the following code:
'Actual code for adding a second geometry section:

shp.AddSection visSectionLastComponent
shp.AddRow visSectionFirstComponent + 1, visRowFirst, visTagComponent
shp.AddRow visSectionFirstComponent + 1, visRowFirst + 1, visTagMoveTo
shp.AddRow visSectionFirstComponent + 1, visRowFirst + 2, visTagLineTo

This will add a new geometry section with two rows, a MoveTo and a LineTo
row.

--

Hope this helps,

Chris Roth
Visio MVP

visi...@hotmail.kom

Need stencils or ideas? http://www.mvps.org/visio/3rdparty.htm
Need VBA examples? http://www.mvps.org/visio/VBA.htm
Common Visio Questions http://www.mvps.org/visio/common_questions.htm

"Andreas Suess" <Andrea...@khe.siemens.de> wrote in message
news:022901c378fe$3ab802b0$a001...@phx.gbl...

[dan...@gmail.com]

Hi Chris
Thank you for your post.
Could you please describe how we can set X and Y of the line in you sample?