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.