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

powershell Start-Process exit code -1073741502 when used with Credential from a windows service environment -

twig - Using Twigbridge in a Laravel 5.1 Package -

c# - LINQ join Entities from HashSet's, Join vs Dictionary vs HashSet performance -