Visio) (Selection.AutomaticLink 方法

發行項
04/07/2023

會將選取的圖形自動連結至指定資料錄集內的資料列，而不需由您指定所有圖形與資料列的確切對應項目。會傳回連結的圖形數。

注意事項

This Visio object or member is available only to licensed users of Visio Professional 2013.

語法

expression。 AutomaticLink( _DataRecordsetID_ , _ColumnNames()_ , _AutoLinkFieldTypes()_ , _FieldNames()_ , _AutoLinkBehavior_ , _ShapeIDs()_ )

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

參數

名稱	必要/選用	資料類型	描述
DataRecordsetID	必要	Long	含有連結目標資料列之 DataRecordset 物件的 ID 屬性值。
ColumnNames ()	必要	字串	對應於資料錄集內之資料欄名稱的字串陣列。
AutoLinkFieldTypes ()	必要	Long	VisAutoLinkFieldTypes 列舉中 Long 值的陣列，其中包含圖形屬性類型。陣列中至少必須要有一個位置的值對應於 ColumnNames 與 FieldNames 陣列中相同位置上的值。
FieldNames ()	必要	字串	代表圖形值的字串陣列。
AutoLinkBehavior	必要	Long	VisAutoLinkBehavior 列舉中的一個或多個常數組合，可以指定連結運作方式。請參閱「備註」可能的值。
ShapeIDs ()	必要	Long	輸出參數。由方法所連結之圖形 (類型為 Long) 的識別碼陣列。

傳回值

Long

註解

對於 ColumnNames() 參數，您可以傳送由資料庫中資料欄名稱所組成的字串陣列。陣列中至少必須要有一個位置的值對應於 AutoLinkFieldTypes() 和 FieldNames() 陣列中相同位置上的值。

對於 AutoLinkFieldTypes() 參數，您可以從 VisAutoLinkFieldTypes 列舉傳送 Long 值的陣列，其中含有圖形屬性類型。在列舉的圖形屬性中包含圖形所衍生自之主圖形的高度、寬度、文字與名稱。陣列中至少必須要有一個位置的值對應於 ColumnNames() 與 FieldNames() 陣列中相同位置的值。

對於 FieldNames() 參數，您可以傳送代表圖形值的字串。 FieldNames() 陣列中至少必須要有一個位置的值對應於 ColumnNames() 與 AutoLinkFieldTypes() 陣列中相同位置上的值。

針對 AutoLinkFieldTypes () 的大部分值，例如，針對 visAutoLinkShapeText，不需要指定 FieldNames () 值;您可以改為傳遞空字串。不過，當您傳遞 visAutoLinkCustPropsLabel時， visAutoLinkUserRowName、 visAutoLinkPropRowNameU或 AutoLinkFieldTypes 的 visAutoLinkUserRowNameU 值，您必須傳遞 FieldNames () 的值，以完整指定圖形資料項目 (在某些舊版 Visio 中稱為自訂屬性值，) 與資料行名稱進行比較。

對於選擇性的 AutoLinkBehavior 參數，您可以從 VisAutoLinkBehaviors 列舉 (會指定連結的發生方式) 傳送一個或多個值的組合。下表顯示可能的值。

常數	值	描述
visAutoLinkDontReplaceExistingLinks	16	不取代現有的連結。
visAutoLinkGenericProgressBar	2	顯示一般進度列，而不是更詳細的進度列。
visAutoLinkIncludeHiddenProps	64	包含隱藏的屬性。
visAutoLinkNoApplyDataGraphic	4	不對連結的圖形套用預設資料圖形。
visAutoLinkNullMatchesNoFormula	32	允許 NULL 資料庫值對應至 Visio ShapeSheet 試算表中的「無公式」。
visAutoLinkReplaceExistingLinks	8	取代現有的連結。
visAutoLinkSelectedShapesOnly	1	僅連結選取的圖形，不連結所選圖形的子圖形。

您無法傳送同時包含 visAutoLinkDontReplaceExistingLinks 與 visAutoLinkReplaceExistingLinks 的值。如果您嘗試這樣做，此方法會傳回錯誤。

若您傳送 AutoLinkBehavior 的值，它就會修改預設行為，如下所示：

使用記錄集的 LinkReplaceBehavior 設定，決定是否中斷現有的連結。若設定為 visLinkReplacePrompt，則會被視為 visLinkReplaceAlways。
連結選取的圖形及其子圖形。
不將詳細的進度列取代為一般進度列。
套用資料圖形。

針對 ShapeIDs () 參數，傳遞 Long類型的空白無維度陣列。 Visio 將傳回的陣列內含由方法連結至資料之圖形的識別碼。

若要為 Visio 提供足夠的資訊來建立連結，您必須提供至少一組相符的資料：資料記錄集中的資料行名稱、圖形屬性類型，以及必要時的圖形值，全都位於您傳遞給方法之對應陣列的相同索引位置。圖形屬性類型會指出做為比對基礎的圖形屬性。屬性可以是圖形資料項目或圖形文字的值，或其他在 VisAutoLinkFieldTypes 列舉中所指定的值。

例如，假設您的繪圖含有代表不同員工的圖形選取，並且有圖形文字會識別圖形，在此則是顯示出各員工的姓名。如本主題中的範例所示，您會將下列參數傳送至方法：

對於 ColumnNames() 參數，您可以在陣列位置 0 傳送含有 "EmployeeName" 資料欄名稱的陣列。
對於 AutoLinkFieldTypes() 參數，您可以在陣列位置 0 傳送列舉值 visAutoLinkShapeText。
對於 FieldNames() 參數，您可以在陣列位置 0 傳送空字串 (''")，因為當 AutoLinkFieldTypes() 為 visAutoLinkShapeText 時，就不需指定 FieldNames() 值。

範例

下列 Microsoft Visual Basic for Applications (VBA) 巨集會顯示如何使用 AutomaticLink 方法，將繪圖中的圖形自動連結至資料錄集內的資料。它會將資料錄集內含的員工資料，連結至繪圖中圖形文字對應於員工姓名的圖形。

執行此巨集前，請先建立一個資料錄集，其中含有名為 "EmployeeName" 的資料欄 (會列出員工姓名)，以及任何您想包含的其他資料欄，然後將這些員工姓名指派為 Visio 繪圖中對應圖形的圖形文字。使用 DataRecordsets.Add 方法，將記錄集新增至使用中檔的 DataRecordsets 集合。並且確定該資料錄集是您最近新增至集合中的資料錄集。

Public Sub AutomaticLink_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoSelection As Visio.Selection 
    Dim astrColumnNames(1) As String 
    Dim alngFieldTypes(1) As Long 
    Dim astrFieldNames(1) As String 
    Dim alngShapesLinked() As Long 
    Dim intCount As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount ) 
 
    astrColumnNames(0) = "EmployeeName" 
    alngFieldTypes(0) = Visio.VisAutoLinkFieldTypes.visAutoLinkShapeText 
    astrFieldNames(0) = "" 
 
    ActiveWindow.DeselectAll 
    ActiveWindow.SelectAll 
 
    Set vsoSelection = ActiveWindow.Selection 
    vsoSelection.AutomaticLink vsoDataRecordset.ID, _ 
                    astrColumnNames, _ 
                    alngFieldTypes, _ 
                    astrFieldNames, 0, alngShapesLinked 
 
End Sub

支援和意見反應

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

共用方式為

Visio) (Selection.AutomaticLink 方法

語法

參數

傳回值

註解

範例

支援和意見反應

意見反應

其他資源