Visio可以制作的图表范围十分广泛，有些人利用Visio的强大绘图功能绘制地图、企业标志等，同时Visio支持将文件保存为svg、dwg等矢量图形通用格式，因此受到广泛欢迎。它的最新版本为2019。

使用规则

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

添加：

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

Sub selectTest()	Dim Sel As Visio.Selection	Dim Shp As Visio.Shape	Set Sel = Visio.ActiveWindow.Selection	Dim width, height As String	Dim ii As Integer	ii = 0	For Each Shp In Sel		If ii = 0 Then			ii = ii + 1			width = Shp.Cells("Width")			height = Shp.Cells("Height")		Else			Shp.Cells("Width").FormulaU = width			Shp.Cells("Height").FormulaU = height		End If	NextEnd Sub

效果：

visio 如何通过代码将选择的对象设置为同一大小的下载地址：

本地下载