Application.Name 属性 (Visio)

  • 项目

指定对象的名称。 此为只读属性。

语法

表达式。名字

expression：表示 Application 对象的变量。

返回值

String

备注

您可以获取 Document 对象的 Name 属性，但不能设置该属性。 如果某文档尚未命名，则此属性返回该文档的临时名称，如 Drawing1 或 Stencil1。

您可以获取 Addon 对象或 Font 对象的 Name 属性，但无法设置该属性。

您可以获取 Cell 对象的 Name 属性，但不能设置该属性。 某些单元格位于已命名行中；您可以通过使用 RowName 属性获取并设置已命名的行的名称。

可以设置 Style 对象的 Name 属性，该对象代表的样式不是默认 Microsoft Office Visio 样式。 如果试图设置默认 Visio 样式的 Name 属性，将会生成错误。

单元格既有本地名称又有通用名称。 本地名称根据所安装的正在运行的 Microsoft Windows 版本的区域设置而有所不同。 无论安装哪个区域设置，通用名称都相同。 要获取单元格的通用名称，请使用 Name 属性。 要获取本地名称，请使用 LocalName 属性。

注意

从 Microsoft Visio 2000 开始，您可以使用本地名称和通用名称来引用 Visio 形状、主控形状、文档、页面、行、加载项、单元格、超链接、样式、字体、主控形状快捷方式、UI 对象和图层。 例如，当用户命名形状时，用户将指定一个本地名称。 从 Visio 2003 开始，ShapeSheet 电子表格仅显示单元格公式和值中的通用名称。 （在以前的版本中，通用名称在用户界面中不可见。

） 作为开发人员，如果您不希望每次本地化解决方案时都更改名称，可以在程序中使用通用名称。 使用 Name 属性获取或设置 Hyperlink、Layer、Master、MasterShortcut、Page、Shape、Style 或者 Row 对象的本地名称。 使用 NameU 属性获取或设置其通用名称。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何使用 Name 属性显示图层名称。 该宏还使用 Layer 属性获取对特定图层的引用，并且使用 LayerCount 属性确定向其分配形状的图层的数目。

 
Public Sub Name_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 Dim vsoLayers As Visio.Layers 
 Dim vsoLayer As Visio.Layer 
 
 If ActiveDocument Is Nothing Then 
 Documents.Add ("") 
 End If 
 
 Set vsoPage = ActivePage 
 If vsoPage Is Nothing Then 
 Set vsoPage = ActiveDocument.Pages(1) 
 End If 
 
 'Draw a rectangle. 
 Set vsoShape = vsoPage.DrawRectangle(1, 5, 5, 1) 
 
 'Get the Layers collection. 
 Set vsoLayers = vsoPage.Layers 
 
 'Create a layer named ExampleLayer1 and add the shape to it. 
 Set vsoLayer = vsoLayers.Add("ExampleLayer1") 
 vsoLayer.Add vsoShape, 1 
 
 'Create a layer named ExampleLayer2 and add the shape to it. 
 Set vsoLayer = vsoLayers.Add("ExampleLayer2") 
 vsoLayer.Add vsoShape, 1 
 
 'Verify that the shape has been assigned to 2 layers. 
 Debug.Print "The page has " & vsoShape.LayerCount & " layers." 
 
 'Get a reference to the first layer. 
 Set vsoLayer = vsoShape.Layer(1) 
 
 'Verify by using the Name property. 
 Debug.Print "Current vsoLayer name is """ & vsoLayer.Name & ".""" 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。