Count grouped objects in Visio VBA -
i trying count grouped objects in visio display width.
option explicit public sub locationtable() dim vsoshapes visio.shapes dim vsoshape visio.shape dim integer dim count integer dim shpno integer dim shapecount integer dim shpobj visio.shape, celobj visio.cell dim localcent single dim count2 integer set vsoshapes = application.activewindow.page.shapes shpno = 1 visio.activepage.shapes.count 'for each vsoshape in vsoshapes 'shapecount = vsoshape.shapes.count 'for shapecount = 1 vsoshape.shapes.count set shpobj = visio.activepage.shapes(shpno) if not shpobj.oned if vistypegroup = 2 set celobj = shpobj.cells("width") localcent = celobj.result("meters") if localcent = 0.74 count = count + 1 elseif localcent = 0.9 count2 = count2 + 1 end if end if 'next shapecount end if next shpno end sub
Comments
Post a Comment