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
效果:
更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!