VisSaveAsWeb.CreatePages メソッド

Web ページの作成を開始します。

構文

式。CreatePages

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

戻り値

Nothing

注釈

VisSaveAsWeb オブジェクトは VisWebPageSettings オブジェクトの設定を使用して Web ページを作成するため、VisWebPageSettings オブジェクトに必要な変更を行った後に CreatePages メソッドを呼び出す必要があります。

Web ページとして保存するドキュメントを指定するには、 AttachToVisioDoc メソッドを使用します。 ドキュメントが指定されていない場合、Microsoft Visio は既定でアクティブなドキュメントを保存します。

例

次の例は、Web ページとして保存機能の既定の設定と、 AttachToVisioDoc メソッドおよび CreatePages メソッドを使用して、既存のファイルを開いて Web ページとして保存する方法を示しています。 この例を実行する前に、 path\filenameを Open メソッドに渡す Visio ドキュメントの有効なパスとファイル名に置き換えます。 さらに、 targetpath\filename を Web ページ プロジェクト ファイルの有効なターゲット パスとファイル名に置き換えます。

Public Sub CreatePages_Example () 
    Dim vsoSaveAsWeb As VisSaveAsWeb 
    Dim vsoWebSettings As VisWebPageSettings 
    Dim vsoDocument As Visio.Document
 
    Set vsoDocument = Application.Documents.Open("path\filename") 
    Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
    Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
 
    vsoWebSettings.TargetPath = "targetpath\filename"
    
    With vsoSaveAsWeb
        .AttachToVisioDoc vsoDocument
        .CreatePages 
    End With
End Sub

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

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