Documents.AddEx メソッド (Visio)

Documents コレクションに新しいステンシルまたは図面を追加し、同時に引数に追加情報を渡すことを許可します。

構文

expression. AddEx( _FileName_ , _MeasurementSystem_ , _Flags_ , _LangID_ )

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

パラメーター

名前 必須 / オプション データ型 説明
FileName 必須 String 追加するドキュメントの型またはファイル名。パスを含めない場合、Microsoft Visio は 、Application オブジェクトの TemplatePaths プロパティに指定されているフォルダーと、公開されているすべての公開済みテンプレート (発行済みのサード パーティ製テンプレートを含む) を検索します。
MeasurementSystem 省略可能 VisMeasurementSystem 新しい図面で使用する寸法の単位です。 使用可能な値については、備考を参照してください。
Flags 省略可能 Long 新しい図面を開く方法を示すフラグです。 使用可能な値については、備考を参照してください。
LangID 省略可能 Long 図面の言語 ID です。 注釈を参照してください。

戻り値

Document

注釈

Documents コレクションに適用される場合の AddEx メソッドは、Add メソッドに類似していますが、AddEx には図面の作成方法を呼び出し側が指定できるいくつかの引数が追加されています。

引数 MeasurementSystem は、Visio タイプ ライブラリで宣言されている VisMeasurementSystem の次のいずれかのメンバーになります。

定数 説明
visMSDefault 0 コントロール パネルで設定されている地域のオプションに応じて、メートル法か米国単位を選択します。
visMSMetric 1 メートル法が使用されます。
visMSUS 2 米国の寸法単位です。

引数 Flags は、Visio タイプ ライブラリで宣言されている VisOpenSaveArgs の次のいずれかのメンバーになります。

定数 説明
visAddDocked 4 固定ウィンドウに図面を追加します。
visAddHidden 64 非表示ウィンドウに図面を追加します。
visAddMacrosDisabled 128 マクロを無効にして図面を追加します。
visAddMinimized 16 最小化したウィンドウに図面を追加します。
visAddNoWorkspace 256 作業状態の情報を指定せずに図面を追加します。
visAddStencil 512 新規のステンシル ファイルを追加します。

LangID 引数は、異なる言語バージョンをエンコードするために Windows で使用される標準 ID の 1 つである必要があります。 たとえば、米国版の Visio の場合、言語 ID は &H0409 です。 言語 ID の一覧については、MSDN Web サイトの Microsoft プラットフォーム SDK で「VERSIONINFO」を検索してください。

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

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

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

ステンシルのコピーを開くには、("stencilname.vss") を渡します。

図面のコピーを開くには、("drawingname.vsd") を渡します。

注:

ステンシルまたは図面のコピーを開くことは、[開く] ダイアログ ボックスの [開く] の一覧で [コピーとして開く] をクリックする操作や、visOpenCopy フラグを指定して OpenEx メソッドを実行した場合と同じになります。

この VBA (Microsoft Visual Basic for Applications) マクロは、AddEx メソッドを使用して既定の寸法単位を使用し、"BASICD_U.VST" テンプレートを基準にして図面を作成する方法を示します。

Public Sub AddEx_Example() 
 
 Application.Documents.AddEx "BASICD_U.VST", visMSDefault 
 
End Sub

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

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