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

Popular posts from this blog

twig - Using Twigbridge in a Laravel 5.1 Package -

jdbc - Not able to establish database connection in eclipse -

Kivy: Swiping (Carousel & ScreenManager) -