Documents.Add メソッド (Visio)

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

構文

式。Add (FileName)

式Documents オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
FileName	必須	String	追加するドキュメントの型またはファイル名。パスを含めない場合、Visio では 、Application オブジェクトの TemplatePaths プロパティに指定されているフォルダーと、公開されているすべての発行済みテンプレート (発行されたサード パーティ製テンプレートを含む) が検索されます。

戻り値

Document

注釈

テンプレートに基づかない新しい図面を作成するには、長さ 0 の文字列 ("") を Add メソッドに渡します。

テンプレートなどの別のファイルに基づいて新しい図面を作成するには、元のファイルのファイル名を Add メソッドに渡します。 指定したテンプレートの作業状態の一部であるステンシルが開き、そのテンプレートに関連するスタイルおよびその他の設定が新しい図面にコピーされます。 テンプレート ファイルの名前が無効な場合は、図面が返されず、エラーが生成されます。

ステンシルを基準にしないで、新しいステンシルを作成するには、("vss") を渡します。

注:

引数としてファイル名を Add メソッドに渡すことは、元のファイルからコピーされたコンテンツを含む新しい空白の図面が作成されるテンプレートのようなファイルを開くと同じです。

例

次のマクロは、テンプレート、ステンシル、図面などの Document オブジェクトを Documents コレクションに追加する方法を示します。

このマクロを実行する前に、Myfile.vsd を有効な .vsd ファイルに変更します。

Public Sub AddDocument_Example() 
 
 Dim vsoDocument As Visio.Document 
 
 'Add a Document object based on the Basic Diagram template. 
 Set vsoDocument = Documents.Add("Basic Diagram.vst") 
 
 'Add a Document object based on a drawing (creates a copy of the drawing). 
 Set vsoDocument = Documents.Add("Myfile.vsd ") 
 
 'Add a Document object based on a stencil (creates a copy of the stencil). 
 Set vsoDocument = Documents.Add("Basic Shapes.vss") 
 
 'Add a Document object based on no template. 
 Set vsoDocument = Documents.Add("") 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。