VBA Visio.Shapes.Size and Appearance
Get and set the sizes of shapes [Shape Width] Shape.CellsSRC(visSectionObject, visRowXFormOut, visXFormWidth) Return: String (e.g. "10 mm") Shape.CellsSRC(visSectionObject, visRowXFormOut, visXFormWidth).FormulaU = String Shape.Cells("Widt…