Visio中CellsSRC(7, 0, 0)中的索引内容为什么是7
Application.windows.ItemEx("绘图.vsd").Activate
Application.ActiveWindow.Page.Drop Application.Documents.Item("WADOWI_M.VSS").Masters.ItemU("Wall"), 3.740157, 7.204724
Dim UndoScopeID1 As Long
UndoScopeID1 = Application.BeginUndoScope("置于页上")
Application.windows.ItemEx("绘图.vsd").Activate
Application.ActiveWindow.Page.Drop Application.Documents.Item("WADOWI_M.VSS").Masters.ItemU("Wall"), 4.92126, 7.204724
Dim vsoCell1 As Visio.Cell
Dim vsoCell2 As Visio.Cell
Set vsoCell1 = Application.ActiveWindow.Page.Shapes.ItemFromID(8).CellsU("BeginX")
Set vsoCell2 = Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(7, 1, 0)
vsoCell1.GlueTo vsoCell2
Application.EndUndoScope UndoScopeID1, True