Resize a shape in Visio from Excel (VBA)

[maneav]

Hi everyone,I created a shape in Visio from Excel with VBA.Now, I would like to resize it the same way but it doesn't work. I unsuccessfully tried some expressions. I would appreciate if somebody can help me to find the right way to write it.

Sub Excel2Visio()    Dim AppVisio As Object    Dim oCharacters As Object    Dim avarObjects As Object            Set AppVisio = CreateObject("visio.application")    AppVisio.Visible = True            AppVisio.Documents.AddEx "", visMSDefault, 0                         'Open Blank Visio Document    AppVisio.Documents.OpenEx "basic_u.vss", visOpenRO + visOpenDocked   'Add Basic Stencil        Set avarObjects = AppVisio.Documents.Item("BASIC_U.VSS").Masters.ItemU("rectangle")        AppVisio.Windows.ItemEx(1).Activate        AppVisio.ActiveWindow.Page.Drop avarObjects, 0, 0                ' modify Format        Set test = AppVisio.ActiveWindow.Page.Shapes.avarObjects.CellsSRC(visXFormWidth).FormulaU = "3" ' <-- this doesn't work !!!!!                Set oCharacters = AppVisio.ActiveWindow.Page.Shapes.ItemFromID(lX).Characters        oCharacters.Begin = 0        oCharacters.End = Len(oCharacters)        sChar = "Test funktioniert"        oCharacters.Text = sChar            Set oCharacters = Nothing    Set AppVisio = Nothing    End Sub