次の方法で共有


VisWebPageSettings.StoreInFolder プロパティ

作成する Web ページのサポート ファイルを、ルート HTML ファイルと同じ名前のサブフォルダーに配置するかどうかを決定します。 値の取得と設定が可能です。

構文

StoreInFolder

VisWebPageSettings オブジェクトを返す式。

戻り値

Long

注釈

StoreInFolder を 0 以外の値 (True) に設定して、ルート HTML ファイルと同じ名前のサブフォルダーにサポート Web ページ ファイルを配置します。それ以外の場合は、0 (False) に設定します。

StoreInFolder プロパティを True (ゼロ以外) に設定した場合、Microsoft Visio は、.htm ファイルと同じ名前のサブフォルダーにサポート ファイルを配置します。 .htm ファイルまたはサブフォルダーが移動または削除された場合、対応するサブフォルダーまたは.htm ファイルも移動または削除されます。

StoreInFolder プロパティを False (0) に設定した場合、Visio はすべてのサポート ファイルを.htm ファイルと同じフォルダーに配置します。

StoreInFolder プロパティを True に設定することは、[Web ページとして保存] ダイアログ ボックスの [全般] タブの [フォルダーにサポート ファイルを整理する] チェック ボックスをオンにすることと同じです (BackstageButton タブの [名前を付けて保存] タブの[名前を付けて保存>] > リスト >Web ページ (*.htm;*.html)>[発行])。

次のマクロは、Web ページのすべてのサポート ファイルを含み、.htm ファイルと同じ名前を持つサブフォルダーが作成されるように StoreInFolder プロパティを設定する方法を示しています。

このマクロを実行する前に、お使いのコンピューター上の有効なターゲット パスと、Web ページに割り当てるファイル名に置き換えてください path\filename.htm

Public Sub StoreInFolder_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsowebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .StoreInFolder = True 
 .TargetPath = "path\filename.htm" 
 End With 
 
 vsoSaveAsWeb.CreatePages 
 End Sub

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

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