Toolbar.Visible 属性 (Visio)
确定对象是否可见。 读/写。
语法
表达式。可见
表达 一个代表 Toolbar 对象的变量。
返回值
布尔值
示例
以下示例说明如何使用 Visible 属性确定 UIObject 对象在用户界面中是否可见。 该示例将一个自定义工具栏添加到复制的工具栏集合。 该工具栏出现在 Microsoft Visio 用户界面中,并且在文档处于活动状态时可用。
运行此宏后,要恢复内置 Visio 工具栏,请调用 ThisDocument.ClearCustomToolbars 方法。
Public Sub Visible_Example()
Dim vsoUIObject As Visio.UIObject
Dim vsoToolbars As Visio.Toolbars
Dim vsoToolbar As Visio.Toolbar
'Check whether there are document custom toolbars.
If ThisDocument.CustomToolbars Is Nothing Then
'If not, check whether there are application custom toolbars.
If Visio.Application.CustomToolbars Is Nothing Then
'If not, use the built-in toolbars.
Set vsoUIObject = Visio.Application.BuiltInToolbars(0)
Else
'If there are application custom toolbars, clone them.
Set vsoUIObject = Visio.Application.CustomToolbars.Clone
End If
Else
'If there are custom toolbars in the document, use them.
Set vsoUIObject = ThisDocument.CustomToolbars
End If
'Get the Toolbars collection for the drawing window context.
Set vsoToolbars = vsoUIObject.ToolbarSets.ItemAtID( _
Visio.visUIObjSetDrawing).Toolbars
'Add a toolbar to the collection.
Set vsoToolbar = vsoToolbars.Add
With vsoToolbar
'Set the title of the toolbar.
.Caption = "My New Toolbar"
'Float the toolbar at coordinates (300,200).
.Position = Visio.visBarFloating
.Left = 300
.Top = 200
'Make the toolbar visible.
.Visible = True
End With
'Use the custom toolbars in this document.
ThisDocument.SetCustomToolbars vsoUIObject
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈