Application.SaveAsWebObject プロパティ (Visio)

VisSaveAsWeb オブジェクトの IDispatch インターフェイスへの参照を返します。 読み取り専用です。

構文

式。SaveAsWebObject

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

戻り値

Object

注釈

VisSaveAsWeb オブジェクトへの参照を取得したら、Web ページとして保存 API のオブジェクト、メソッド、プロパティを使用して、Microsoft Visio ドキュメントを Web に発行できます。 [Web ページとして保存] API の詳細については、MSDN Web サイトで "[Web ページとして保存] API "を検索してください。

Web ページとして保存 API を操作するには、Microsoft Visual Basic または Microsoft Visual Basic for Applications (VBA) プロジェクトの Microsoft Visio 14.0 Save As Web タイプ ライブラリへの参照を取得する必要があります。 VBA でこの参照を取得するには、次の手順に従ってください。

1. [開発] タブの [コード] グループで、[Visual Basic] をクリックします。

2. [ツール] メニューの [参照設定] をクリックします。

3. [参照可能なライブラリ ファイル] ボックスの一覧の [Microsoft Visio 14.0 Save As Web Type Library] をクリックし、[OK] をクリックします。

Visual Studio ソリューションに Microsoft.Office.Interop.Visio リファレンスが含まれている場合、このプロパティは次の種類にマップされます。

• Microsoft.Office.Interop.Visio.IVApplication.SaveAsWebObject

例

この VBA マクロは、 SaveAsWebObject プロパティを使用して VisSaveAsWeb オブジェクトを取得する方法を示しています。 また、VisWebPageSettings オブジェクトを取得し、Web ページ設定を構成し、アクティブな Visio ドキュメントを表示する Web ページを作成する方法についても説明します。 このマクロは Visio Application オブジェクトを取得し、 SaveAsWeb プロシージャに渡します。このプロシージャは VisSaveAsWeb オブジェクトを取得し、設定を構成し、Web ページを作成します。

このマクロを実行する前に、上記のように Microsoft Visio 14.0 Save As Web Type Library への参照を取得し、コードを、Web ページを表示するためにコンピューターに作成する.htm ファイルの完全なパスと名前に置き換えます path\filename 。

 
Public Sub SaveAsWebObject_Example 
 
    Dim vsoApplication as Visio.Application 
    Call SaveAsWeb(vsoApplication) 
 
End Sub 
 
 
Public Sub SaveAsWeb (vsoApplication as Visio.Application) 
 
    Dim objSaveAsWeb As IVisSaveAsWeb 
    Dim objWebPageSettings As IVisWebPageSettings 
 
    ' Get a VisSaveAsWeb object that  
    ' represents a new webpage project 
    Set objSaveAsWeb = Application.SaveAsWebObject 
 
    ' Get a VisWebPageSettings object 
    Set objWebPageSettings = objSaveAsWeb.WebPageSettings 
 
    ' Configure Web-page settings 
    objWebPageSettings.StartPage = 1 
    objWebPageSettings.EndPage = 2 
    objWebPageSettings.LongFileNames = True 
    objWebPageSettings.TargetPath = "path\filename " 
 
    ' Now create the pages; because we did not identify  
    ' a particular document, the active document is saved 
    objSaveAsWeb.CreatePages 
 
End Sub

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

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