Application.Name-Eigenschaft (Visio)

Gibt den Namen eines Objekts an. Schreibgeschützt.

Syntax

Ausdruck. Namen

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Zeichenfolge

HinwBemerkungeneise

Sie können die Name-Eigenschaft eines Document-Objekts abrufen, aber nicht festlegen. Wenn ein Dokument noch nicht benannt ist, gibt diese Eigenschaft den temporären Namen des Dokuments zurück, z. B. Drawing1 oder Stencil1.

Sie können die Name-Eigenschaft eines Addon- oder Font-Objekts abrufen, jedoch nicht festlegen.

Sie können die Name-Eigenschaft eines Cell-Objekts abrufen, aber nicht festlegen. Einige Zellen befinden sich in benannten Zeilen; Sie können den Namen einer benannten Zeile mithilfe der RowName-Eigenschaft abrufen und festlegen.

Sie können die Name-Eigenschaft eines Style-Objekts festlegen, das eine Formatvorlage darstellt, die keine Standardformatvorlage von Microsoft Office Visio ist. Wenn Sie versuchen, die Name-Eigenschaft einer Visio-Standardformatvorlage festzulegen, wird ein Fehler generiert.

Eine Zelle weist sowohl einen lokalen als auch einen universellen Namen auf. Der lokale Name unterscheidet sich in Abhängigkeit vom Gebietsschema, für das die ausgeführte Microsoft Windows-Version installiert wurde. Ungeachtet des Gebietsschemas ist der universelle Name derselbe. Verwenden Sie die Name-Eigenschaft, um den universellen Namen einer Zelle abzurufen. Verwenden Sie die LocalName-Eigenschaft, um den lokalen Namen abzurufen.

Hinweis

Ab Microsoft Visio 2000 können Sie sowohl lokale als auch universelle Namen verwenden, um auf Shapes, Master-Shapes, Dokumente, Zeichenblätter, Zeilen, Add-Ons, Zellen, Hyperlinks, Formatvorlagen, Schriftarten, Master-Shape-Verknüpfungen, Benutzeroberflächenobjekte und Layer von Visio zu verweisen. Wenn ein Benutzer z. B. ein Shape verwendet, gibt er einen lokalen Namen an. Ab Visio 2003 zeigt das ShapeSheet-Arbeitsblatt nur universelle Namen in Zellformeln und -werten an. (In früheren Versionen wurden universelle Namen in der Benutzeroberfläche nicht angezeigt.)

Als Entwickler können Sie universelle Namen in einem Programm verwenden, falls Sie einen Namen nicht jedes Mal ändern möchten, wenn eine Lösung lokalisiert wird. Verwenden Sie die Name-Eigenschaft, um den lokalen Namen eines Hyperlink-, Layer-, Master-, MasterShortcut-, Page-, Shape-, Style- oder Row-Objekts abzurufen oder festzulegen. Verwenden Sie die NameU-Eigenschaft, um den universellen Namen abzurufen oder festzulegen.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der Name-Eigenschaft Layernamen anzeigen. Außerdem wird mit der Layer-Eigenschaft ein Verweis auf einen bestimmten Layer abgerufen, und mit der LayerCount-Eigenschaft wird die Anzahl von Layern bestimmt, denen ein Shape zugewiesen ist.

 
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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.