VBA Visio.Shapes.Cells.Property
Sub setSamePropertyOfPrimaryShape() Dim vsoSelection As Visio.Selection Dim primaryShape As Visio.Shape 'first selected shape Dim targetShape As Visio.Shape 'other selected shapes Dim primaryShapePropsCount As Integer ' the number of prope…