Menu.IconFileName-Methode (Visio)
Legt eine benutzerdefinierte Symboldatei für ein Menü- oder Symbolleistenelement fest.
Ausdruck. IconFileName
( _IconFileName_
)
Ausdruck Eine Variable, die ein Menu-Objekt darstellt.
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
IconFileName | Erforderlich | String | Der Pfad und der Name der zu ladenden ICO-, EXE-, DLL- oder VSL-Datei. |
Nichts
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).
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
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.