Page.DropLinked 方法 (Visio)

會傳回繪圖頁面上連結至資料記錄集中資料的新圖形。

注意事項

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

語法

expression。 DropLinked( _ObjectToDrop_ , _x_ , _y_ , _DataRecordsetID_ , _DataRowID_ , _ApplyDataGraphicAfterLink_ )

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

參數

名稱	必要/選用	資料類型	描述
ObjectToDrop	必要	[UNKNOWN]	要放置的物件。 這通常是例如 Master、Shape 或 Selection 物件等的 Visio 物件，但也可以是提供 IDataObject 介面的任何 OLE 物件。
x	必要	雙精確度	放置圖形寬度中心或 PinX 的 x 座標。
y	必要	雙精確度	放置圖形高度中心或 PinY 的 y 座標。
DataRecordsetID	必要	Long	包含要連結之資料的資料記錄集識別碼。
DataRowID	必要	Long	包含要連結之資料的資料列識別碼。
ApplyDataGraphicAfterLink	必要	布林值	是否要將目前的資料圖形套用到連結的圖形。 預設是不套用資料圖形。 如需詳細資訊，請參閱＜備註＞。

傳回值

圖形

註解

當您想要建立的圖形已經連結到繪圖頁面上的資料，其中不包含任何圖形或包含您想要連結的圖形以外的圖形時，您可以使用 Page.DropLinked 和 Page.DropManyLinkedU 方法來建立一或多個已連結至資料的其他圖形。 這些方法類似于現有的 Page.Drop 和 Page.DropManyU 方法，因為它們會在頁面上指定的位置建立其他圖形;但除此之外，它們會在新圖形和指定的資料列之間建立指定之資料記錄集中的連結。

當您將圖形物件傳遞至 ObjectToDrop 參數時，結果圖形之寬度-高度方塊的中心會置於指定的座標上，並且會傳回代表所建立之圖形的 Shape 物件。

如果 ObjectToDrop 是 Master，主圖形的針腳會置於指定的座標上。 主圖形的針腳通常 (但不一定) 位於它的旋轉中心上。

如果您將 True 傳遞至選擇性 ApplyDataGraphicsAfterLink 參數，Visio 會將最近套用的資料圖形套用至目前文件中的任何其他圖形。

範例

下列 Microsoft Visual Basic for Applications (VBA) 巨集會示範如何使用 DropLinked 方法，在使用中繪圖頁面上建立圖形，該圖形在頁面座標 (2, 2) 上置中，並連結至最近新增至使用中文件之資料記錄集中的資料列。

傳遞至 DropLinked 方法的圖形是從 基本圖形 (美國單位) 樣板的簡單矩形。 執行這個宏之前，請使用 DataRecordsets.Add 方法或其他方法，將至少一個資料記錄集新增至 DataRecordsets 集合，並確定 Visio 繪圖視窗中已開啟 [基本圖形 (US 單位) 樣板。 在這個範例中，資料列的識別碼是設為 1；執行程式碼之前，請先確定有該識別碼的資料列，或變更程式碼中的識別碼值。

Public Sub DropLinked_Example() 
 
    Dim vsoShape As Visio.Shape 
    Dim vsoMaster As Visio.Master 
    Dim dblX As Double 
    Dim dblY As Double  
    Dim lngDataRowID As Long 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intRecordsetCount As Integer 
 
    intRecordsetCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intRecordsetCount) 
     
    Set vsoMaster = Visio.Documents("Basic_U.VSS").Masters("Rectangle") 
    dblX = 2 
    dblY = 2 
    lngDataRowID = 1 
 
    Set vsoShape = ActivePage.DropLinked(vsoMaster, dblX, dblY, vsoDataRecordset.ID, lngDataRowID, True) 
 
End Sub

支援和意見反應

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