Auf Englisch lesen

Freigeben über


Menu.IconFileName-Methode (Visio)

Legt eine benutzerdefinierte Symboldatei für ein Menü- oder Symbolleistenelement fest.

Syntax

Ausdruck. IconFileName( _IconFileName_ )

Ausdruck Eine Variable, die ein Menu-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
IconFileName Erforderlich String Der Pfad und der Name der zu ladenden ICO-, EXE-, DLL- oder VSL-Datei.

Rückgabewert

Nichts

Bemerkungen

Hinweis

Ab Visio 2010 ersetzt die Microsoft Office Fluent-Benutzeroberfläche das vorherige System von mehrstufigen Menüs, Symbolleisten und Aufgabenbereichen. VBA-Objekte und -Member, die Sie in früheren Versionen von Visio zum Anpassen der Benutzeroberfläche verwendet haben, sind weiterhin in Visio verfügbar, funktionieren aber anders.

Von der IconFileName-Methode wird die Datei geladen, die das Symbol enthält, die Bit gespeichert und der Dateiname verworfen.

Wenn das Symbol mehrere Bilder enthält, wählt Microsoft Visio basierend auf der Symbolgröße und der Farbtiefe das beste Symbol aus.

Wenn IconFileName kein vollqualifizierter Pfad ist, sucht die Anwendung in den von der AddonPaths-Eigenschaft des Application-Objekts angegebenen Ordnern nach der ICO-, EXE-, DLL- oder VSL-Datei (vorausgesetzt das UIObject-Objekt ist im Visio-Prozess enthalten).

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie Sie die IconFileName-Methode verwenden, um das Symbol für eine Symbolleistenschaltfläche festzulegen. Das Makro ruft eine Kopie der integrierten Visio-Symbolleisten ab, fügt eine Symbolleistenschaltfläche hinzu und legt das Schaltflächensymbol fest.

Ersetzen Sie vor dem Ausführen dieses Codespfaddateiname \ durch den vollständigen Pfad zu und den Namen eines gültigen Symbols (ICO-Datei) auf Ihrem Computer.

Rufen Sie die ThisDocument.ClearCustomToolbars-Methode auf, um die integrierte Visio-Benutzeroberfläche wiederherzustellen, nachdem Sie dieses Makro ausgeführt haben.

Public Sub IconFileName_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoToolbarSet As Visio.ToolbarSet 
 Dim vsoToolbarItems As Visio.ToolbarItems 
 Dim vsoToolbarItem As Visio.ToolbarItem 
 
 'Get the UIObject object for the copy of the built-in toolbars. 
 Set vsoUIObject = Visio.Application.BuiltInToolbars(0) 
 
 'Get the drawing window toolbar sets. 
 'NOTE: Use ItemAtID to get the toolbar set. 
 'Using vsoUIObject.ToolbarSets(visUIObjSetDrawing) will not work. 
 Set vsoToolbarSet = vsoUIObject.ToolbarSets.ItemAtID(visUIObjSetDrawing) 
 
 'Get the ToolbarItems collection. 
 Set vsoToolbarItems = vsoToolbarSet.Toolbars(0).ToolbarItems 
 
 'Add a new button in the first position. 
 Set vsoToolbarItem = vsoToolbarItems.AddAt(0) 
 
 'Set properties for the new toolbar button. 
 vsoToolbarItem.CntrlType = visCtrlTypeBUTTON 
 vsoToolbarItem.CmdNum = 1 
 
 vsoToolbarItem.IconFileName "path\filename " 
 
 'Use the new custom UI. 
 ThisDocument.SetCustomToolbars vsoUIObject 
 
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.