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 Roth Dim shp As Visio.Shape, shpObj As Visio.Shape, celObj As Visio.Cell Dim iNum As Integer, i As Integer Dim dRad As Double, dAngStart As Double