Visio Resize Block

Hello

I'm working with MS Visio 2003.

Folowing is a code that draws 4 shapes.

I need to group All the shapes and to enlage the GROUP.

I am able to enlarge the shapes separately, but its no good as i need to

resize THE ALL GROUP at once.

Here is my code:

***************************

Private Sub CommandButton1_Click()

Dim vsoShapes(1 To 4) As Visio.Shape
Dim vsoSelection As Visio.Selection
Dim MyCounter As Integer
Dim vsoGroup As Visio.Shape

Set vsoSelection = ActiveWindow.Selection

For MyCounter = 1 To 4
Set vsoShapes(MyCounter) = ActivePage.DrawRectangle(MyCounter, MyCounter + 1, MyCounter + 1, MyCounter)
vsoShapes(MyCounter).CellsU("ResizeMode").Formula = 2
vsoSelection.Select vsoShapes(MyCounter), visSelect
Next MyCounter


Set vsoGroup = vsoSelection.Group

End Sub

******************************

Thanks in advance

To enlarge the group you have to use the .CellsSRC property.

See this example

Code:

---

Set vsoGroup = vsoSelection.Group
vsoGroup.CellsSRC(visSectionObject, visRowXFormOut, visXFormHeight).FormulaU = "5.75 in"

---