visio中如何用vba修改选中的图形的宽度与高度

[eman1]

问题原因：大量visio图形，需要统一格式，所以我想用一个宏完成如下工作：我鼠标选中要改变格式的图形，然后按快捷键执行该宏，该宏自动将所有我选中的图形的长和高调整为我设定的值，如长30mm高15mm。我录制了一个宏，但是该宏只能规定具体的图形的ID,不知道怎么才能自动将我选择的所有图形都调整

Dim UndoScopeID1 As Long
UndoScopeID1 = Application.BeginUndoScope("Size & Position 2-D")
Application.ActiveWindow.Page.Shapes.ItemFromID(23).CellsSRC(visSectionObject, visRowXFormOut, visXFormWidth).FormulaU = "30 mm"
Application.EndUndoScope UndoScopeID1, True

Dim UndoScopeID2 As Long
UndoScopeID2 = Application.BeginUndoScope("Size & Position 2-D")
Application.ActiveWindow.Page.Shapes.ItemFromID(23).CellsSRC(visSectionObject, visRowXFormOut, visXFormHeight).FormulaU = "15 mm"
Application.EndUndoScope UndoScopeID2, True

[DarkChampion]

参看
http://www.tech-archive.net/Archive/Visio/microsoft.public.visio.developer/2007-11/msg00110.html
英文的，耐心看


我手头没有visio，无法帮你试