英語で読む

次の方法で共有


Styles.Add メソッド (Visio)

Styles コレクションに新しい Style オブジェクトを追加します。

構文

Add (StyleNameBasedOnfIncludesTextfIncludesLinefIncludesFill)

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 のサポートおよびフィードバックを参照してください。