visio如何选中同一类型所有图形通过代码将选择的对象设置为同一大小

导读2000年微软公司收购同名公司后，Visio成为微软公司的产品。MicrosoftVisio（发音：/ˈvɪzi.oʊ/，VIZ-zee-oh）是Windo....

2000年微软公司收购同名公司后，Visio成为微软公司的产品。

Microsoft Visio（发音： /ˈvɪzi.oʊ/，VIZ-zee-oh）是Windows 操作系统下运行的流程图软件，该产品首次于1992年推出，由Shapeware公司开发，后于2000年被微软收购。它现在是Microsoft Office软件的一部分。Visio可以制作的图表范围十分广泛，有些人利用Visio的强大绘图功能绘制地图、企业标志等，同时Visio支持将文件保存为svg、dwg等矢量图形通用格式，因此受到广泛欢迎。它的最新版本为2019。

---

使用规则

• 默认所有选中的第一个作为大小参考
• 第一个不变，后面的设置为和第一个一样大
• 可以点运行使用，绑定快捷键也可以

添加：

Visio vba 插入模块，复制下面的代码

Sub selectTest()Dim Sel As Visio.SelectionDim Shp As Visio.ShapeSet Sel = Visio.ActiveWindow.SelectionDim width, height As StringDim ii As Integerii = 0For Each Shp In SelIf ii = 0 Thenii = ii 1width = Shp.Cells("Width")height = Shp.Cells("Height")ElseShp.Cells("Width").FormulaU = widthShp.Cells("Height").FormulaU = heightEnd IfNextEnd Sub

效果：