visio如何选中同一类型所有图形(通过代码将选择的对象设置为同一大小)
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.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
Next
End Sub
效果:
,
免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com