Visio) (Window.DockedStencils 方法

會傳回 Microsoft Visio 繪圖視窗中所有固定樣板的名稱。

語法

expression。 DockedStencils( _NameArray()_ )

運算式 代表 Window 物件的變數。

參數

傳回值

無

註解

DockedStencils 方法會傳回字串的陣列，這些字串是視窗中固定樣板窗格上顯示之樣板的名稱。 當視窗是繪圖視窗時，停駐的樣板窗格數目 ( n ) 等於或大於零，而當視窗不是繪圖視窗時， n 為零。

如果 DockedStencils 方法成功， NameArray () 會傳回 n 個字串的一維陣列，索引從零 (0) 到 n - 1。 NameArray () 參數是由 DockedStencils 方法配置的輸出參數，其擁有權會傳回給呼叫端。 呼叫端最終應該會在傳回的陣列上執行 SafeArrayDestroy 程序。 請注意， SafeArrayDestroy 程序的副作用是釋放陣列項目所參考的字串。 如果 NameArray () 為 null，DockedStencils 方法會失敗。 (Microsoft Visual Basic 和 Visual Basic for Applications 會為您終結陣列。)

如果 strStencilName 是 NameArray (StencilName) 傳回的字串，則 Documents.Item ( strStencilName) 會成功，並傳回代表樣板的 Document 物件。

範例

下列 Microsoft Visual Basic for Applications 巨集示範如何使用 DockedStencils 方法取得停靠在使用中視窗中的所有樣板的文件名稱。 它也會在 [立即] 視窗中列印使用中文件的名稱，以及保留樣板名稱之陣列的下限和上限，然後也會在 [立即] 視窗中列出樣板名稱和路徑。

 
Public Sub DockedStencils_Example() 
 
 Dim astrStencilNames() As String 
 ActiveWindow.DockedStencils astrStencilNames 
 
 Dim intLowerBound As Integer 
 Dim intUpperBound As Integer 
 Dim intIndex As Integer 
 
 intLowerBound = LBound(astrStencilNames) 
 intUpperBound = UBound(astrStencilNames) 
 Debug.Print "Active document: " ActiveWindow.Document; " Lower bound:"; intLowerBound; " Upper Bound:"; intUpperBound 
 
 intIndex = intLowerBound 
 While intIndex <= intUpperBound 
 Debug.Print astrStencilNames(intIndex) 
 intIndex = intIndex + 1 
 Wend 
 
End Sub

支援和意見反應

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