How to find and set properties of shapes

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("Width")

Return:Double

 

Shape.Cells("Width") = Double

 

[Shape Height]

Shape.CellsSRC(visSectionObject, visRowXFormOut, visXFormHeight)

Shape.CellsSRC(visSectionObject, visRowXFormOut, visXFormHeight).FormulaU = Double

 

[PinX (Horizontal Position of the center of the shape)]

Shape.Cells("PinX")

Shape.CellsSRC(visSectionObject, visRowXFormOut, visXFormPinX)

 

Shape.Cells("PinX") = Double

Shape.CellsSRC(visSectionObject, visRowXFormOut, visXFormPinX).FormulaU = Double

 

[PinY (Vertical Position of the center of the shape)]

Shape.Cells("PinY")

Shape.CellsSRC(visSectionObject, visRowXFormOut, visXFormPinY)

 

Shape.Cells("PinY") = Double

Shape.CellsSRC(visSectionObject, visRowXFormOut, visXFormPinY).FormulaU = Double

 

[Font Size]

Shape.CellsSRC(visSectionCharacter, 0, visCharacterSize)

Shape.CellsSRC(visSectionCharacter, 0, visCharacterSize).FormulaU = String (e.g. "1 mm")

 

[Font Color]

Shape.CellsSRC(visSectionCharacter, 0, visCharacterColor)

Shape.CellsSRC(visSectionCharacter, 0, visCharacterColor).FormulaU = String (e.g. "THEMEGUARD(RGB(255,0,0))")

 

[Line BeginX, BeginY, EndX, EndY]

Shape.Cells("BeginX")

Shape.Cells("BeginY")

Shape.Cells("EndX")

Shape.Cells("EndY")

Return: Double

 

Shape.Cells("BeginX") = Double

Shape.Cells("BeginY") = Double

Shape.Cells("EndX") = Double

Shape.Cells("EndY") = Double

 

[Line Pattern]

Shape.CellsSRC(visSectionObject, visRowLine, visLinePattern)

1: Solid

2: Long-Dash

9: Dash

Return: Integer(e.g. 1)

 

Shape.CellsSRC(visSectionObject, visRowLine, visLinePattern) = Integer

 

[Line Weight]
Shape.CellsSRC(visSectionObject, visRowLine, visLineWeight)

Return: String (e.g. "1.5 pt")

 

Shape.CellsSRC(visSectionObject, visRowLine, visLineColor) = String (e.g. "1.5 pt")

 

[Line Rounding]

Shape.CellsSRC(visSectionObject, visRowLine, visLineRounding)

Return: String (e.g. "3 mm")

 

Shape.CellsSRC(visSectionObject, visRowLine, visLineRounding).FormulaU =String (e.g. "3 mm")