Hopefully that'll at least get you started. Result = (Result And TheShape.CellsSRC(visSectionFirstComponent, 5, 0).ResultIU() = 0 And TheShape.CellsSRC(visSectionFirstComponent, 5, 1).ResultIU() = 0) Result = (Result And TheShape.CellsSRC(visSectionFirstComponent, 4, 0).ResultIU() = 0 And TheShape.CellsSRC(visSectionFirstComponent, 4, 1).ResultIU() = Height) Result = (Result And TheShape.CellsSRC(visSectionFirstComponent, 3, 0).ResultIU() = Width And TheShape.CellsSRC(visSectionFirstComponent, 3, 1).ResultIU() = Height) ![]() Result = (Result And TheShape.CellsSRC(visSectionFirstComponent, 2, 0).ResultIU() = Width And TheShape.CellsSRC(visSectionFirstComponent, 2, 1).ResultIU() = 0) Result = (Result And TheShape.CellsSRC(visSectionFirstComponent, 1, 0).ResultIU() = 0 And TheShape.CellsSRC(visSectionFirstComponent, 1, 1).ResultIU() = 0) Result = (TheShape.RowCount(visSectionFirstComponent) = 6) If IsRectangle(CheckShp) Then ActiveWindow.Select CheckShp, visSelectįunction IsRectangle(TheShape As Visio.Shape) As Boolean ![]() ![]() You can also mess with looking at the shapesheet geometry sections for shapes to see if they're rectangles like so: Sub SelectRectangles() If SelShp.Master Is Nothing Then Exit Sub This code will select all shapes in the active page like the selected shape (using the shapes master) Sub SelectSimilarShapesByMaster() You can do it in VBA, assuming the arrows or rectangles were created using a stencil, rather than just drawn. New Horizons Des Moines Visio courses cover: Working with basic diagrams and shapes Creating an organization chart Creating shapes, design styles, templates.
0 Comments
Leave a Reply. |