Styles.Add メソッド (Visio)
Styles コレクションに新しい Style オブジェクトを追加します。
式。Add (StyleName、 BasedOn、 fIncludesText、 fIncludesLine、 fIncludesFill)
式Styles オブジェクトを表す変数。
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
StyleName | 必須 | 文字列型 (String) | 新しいスタイルの名前を指定します。 |
BasedOn | 必須 | String | 新しいスタイルの基準となるスタイルの名前です。 |
fIncludesText | 必須 | Integer | テキストの属性を無効にするには 0 を指定し、有効にするには 0 以外の値を指定します。 |
fIncludesLine | 必須 | Integer | 線の属性を無効にするには 0 を指定し、有効にするには 0 以外の値を指定します。 |
fIncludesFill | 必須 | Integer | 塗りつぶしの属性を無効にするには 0 を指定し、有効にするには 0 以外の値を指定します。 |
Style
スタイルなしを新しいスタイルの基準にするには、引数 BasedOn に長さが 0 の文字列 ("") を渡します。
次のマクロは、Style オブジェクトを Styles コレクションに追加する方法を示します。 既存のスタイルを基準として新しいスタイルを追加する方法と、既存のスタイルを基準にしないで新しいスタイルを追加する方法についても示します。
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
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。