Styles.Add-Methode (Visio)
Fügt einer Styles-Auflistung ein neues Style-Objekt hinzu.
Syntax
Ausdruck. Add (StyleName, BasedOn, fIncludesText, fIncludesLine, fIncludesFill)
Ausdruck Eine Variable, die ein Styles-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| StyleName | Erforderlich | String | Der neue Formatvorlagenname. |
| BasedOn | Erforderlich | String | Der Name der Formatvorlage, auf der die neue Formatvorlage basieren soll. |
| fIncludesText | Erforderlich | Integer | Null zum Deaktivieren von Textattributen, ungleich Null zum Aktivieren der Attribute. |
| fIncludesLine | Erforderlich | Integer | Null zum Deaktivieren von Zeilenattributen, ungleich Null zum Aktivieren der Attribute. |
| fIncludesFill | Erforderlich | Integer | Null zum Deaktivieren von Füllattributen, ungleich Null zum Aktivieren der Attribute. |
Rückgabewert
Format
Hinweise
Übergeben Sie eine leere Zeichenfolge ("") für das BasedOn-Argument, damit die neue Formatvorlage auf keiner Formatvorlage basiert.
Beispiel
Mit dem folgenden Makro wird gezeigt, wie einer Styles-Auflistung ein Style-Objekt hinzugefügt wird. Es wird zudem gezeigt, wie eine neue Formatvorlage basierend auf einer vorhandenen Formatvorlage hinzugefügt wird und wie eine ganz neu erstellte Formatvorlage hinzugefügt wird.
Public Sub AddStyle_Example()
Dim vsoDocument As Visio.Document
Dim vsoStyles As Visio.Styles
Dim vsoStyle As Visio.Style
'Add a document based on the Basic Diagram template.
Set vsoDocument = Documents.Add("Basic Diagram.vst")
'Add a style named "My FillStyle" to the Styles collection.
'This style is based on the Basic style and includes
'only a Fill style.
Set vsoStyles = vsoDocument.Styles
Set vsoStyle = vsoStyles.Add("My FillStyle", "Basic", 0, 0, 1)
'Add a style named "My NoStyle" to the Styles collection.
'This style is not based on an existing style and includes
'Text, Line, and Fill styles.
Set vsoStyle = vsoStyles.Add("My NoStyle", "", 1, 1, 1)
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.