VisSaveAsWeb.AttachToVisioDoc 方法

指出要儲存為網頁的檔。

語法

運算式。AttachToVisioDoc (docObj)

表達 會傳回 VisSaveAsWeb 物件的 運算式。

參數

名稱	必要/選用	資料類型	描述
docObj	必要	Document	支援 IVDocument 介面的 Automation 物件。

傳回值

Nothing

註解

Microsoft Visual Basic 程式可以將 Visio Document 物件傳遞給這個方法，因為從 Visio Document 類別建立的物件支援 IVDocument 介面。

AttachToVisioDoc方法會查詢IUnknown介面是否有IVDocument介面。

範例

下列範例示範如何開啟現有的檔案，並使用 [另存為網頁] 功能的預設設定和 AttachToVisioDoc 和 CreatePages 方法，將它儲存為網頁。 執行此範例之前，請將 取代 path\filename 為要傳遞至 Open 方法之 Visio 檔的有效路徑和檔案名。 此外，請以有效的目標路徑和網頁專案檔的檔案名取代 targetpath\filename 。

Public Sub AttachToVisioDoc_Example () 
    Dim vsoSaveAsWeb As VisSaveAsWeb 
    Dim vsoWebSettings As VisWebPageSettings 
    Dim vsoDocument As Visio.Document
 
    Set vsoDocument = Application.Documents.Open("<variable>path\filename</variable>") 
    Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject
    Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
 
    vsoWebSettings.TargetPath = "<variable>targetpath\filename</variable>"

    With vsoSaveAsWeb
        .AttachToVisioDoc vsoDocument
        .CreatePages 
    End With
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。