Application.Name Visio) (屬性

指定物件的名稱。 唯讀。

語法

運算式。名字

expression 代表 Application 物件的變數。

傳回值

字串

註解

您可以取得 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 屬性可取得或設定 超連結、 圖層、 主圖形、 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 支援與意見反應。