Hi Udo!
When you use this operation, you create two new shapes, as you said. These
shapes are top-most in the Z-order for the page, and are the last two shapes
in the shapes collection.
So if you analyze (per code) right after executing Offset, you can get them
like this:
Dim shp1 as Visio.Shape, shp2 as Visio.Shape
Dim pg as Visio.Page
....
Set shp1 = pg.Shapes( pg.Shapes.Count )
Set shp2 = pg.Shapes( pg.Shapes.Count -1 )
I haven't researched which one is which -- is the first shape the "outer"
one, etc. But it is probably pretty regular, and easy to determine.
--
Hope this helps,
Chris Roth
Visio MVP
For in-depth Visio articles, Visio tutorials and free Visio shapes, stencils
and templates, check out my web site:
Visio Guy
http://www.visguy.com
For more forum help, with pictures and downloads, visit:
http://www.visguy.com/vgforum