Polar Array – Part 2
It has been almost two years since I blogged, so it is time to dust off the blog. Today in the newsgroups someone asked about using the Polar Array VBA sample from the Visio MVP website, but rather than place a specific shapes multiple times, arrange the shapes that are selected. As usual, the original credit goes to Chris Sub PolarArray()‘ by Chris RothDim shp As Visio.Shape, shpObj As Visio.Shape, celObj As Visio.CellDim iNum As Integer, i As IntegerDim dRad As Double, dAngStart As Double, dAng As DoubleDim x As Double, y As DoubleDim VsoSelect As Visio.SelectionDim VsoShape As Visio.Shape … Continue reading Polar Array – Part 2