office教程 > 其他专区 > Visio

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

Visio 2022-03-17 22:25 234

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
visio 通过代码将选择的对象设置为同一大小

效果:

visio 通过代码将选择的对象设置为同一大小

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

  • 标签: Visio visio教程

    office教程 Copyright © 2016-2022 www.office26.com. Some Rights Reserved. 备案号:滇ICP备16002327号