Visio (Window.DockedStencils 方法)

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

語法

expression。 DockedStencils( _NameArray()_ )

表達 代表 Window 物件的變數。

參數

名稱	必要/選用	資料類型	描述
NameArray ()	必要	字串	輸出參數。 會接收視窗中固定樣板之名稱的陣列。

傳回值

無

註解

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

如果DockedStencils方法成功，NameArray () 會傳回從零 (0) 到n - 1 之n個字串的一維陣列。 NameArray () 參數是由DockedStencils方法配置的 out 參數，其擁有權會傳回給呼叫端。 呼叫端最後應該會在傳回的陣列上執行 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 支援與意見反應。