Sub Macro1()

    Dim width As String
    Dim height As String

    If ActiveWindow.selection.Count = 0 Then Exit Sub

    Dim shape1 As Visio.shape
    Set shape1 = ActiveWindow.selection.Item(1)

    height = shape1.CellsSRC(visSectionObject, visRowXFormOut, visXFormHeight).FormulaU
    width = shape1.CellsSRC(visSectionObject, visRowXFormOut, visXFormWidth).FormulaU
   
    For i = 2 To ActiveWindow.selection.Count Step 1
    Set shape1 = ActiveWindow.selection.Item(i)
    shape1.CellsSRC(visSectionObject, visRowXFormOut, visXFormWidth).FormulaU = width
    shape1.CellsSRC(visSectionObject, visRowXFormOut, visXFormHeight).FormulaU = height
   Next

End Sub

评论