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 名前を付けて保存 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 アプリケーション オブジェクトを取得し、 それを SaveAsWeb プロシージャに渡します。SaveAsWeb プロシージャは、 VisSaveAsWeb オブジェクトを取得し、設定を構成して、Web ページを作成します。

このマクロを実行する前に、前述のように Microsoft Visio 14.0 [Web タイプ ライブラリとして保存 ] への参照を取得し、コード内の path\filename を、Web ページを表示するコンピューターで作成する .htm ファイルの完全なパスと名前に置き換えます。

 
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 のサポートおよびフィードバックを参照してください。

  • Last updated on