2011-03-23 103 views

回答

0

朋友WITHEVENTS AxDC作爲AxMicrosoft.Office.Interop.VisOcx.AxDrawingControl

當前頁= AxDC.Document.Pages(1) currentStencil = AxDC.Document.Application.Documents.OpenEx(FILE_NAME,VisOpenSaveArgs.visOpenDocked)

昏暗shapeRack作爲Microsoft.Office.Interop.Visio.Shape = currentPage.Drop(currentStencil.Masters( 「機架」),1,6)

昏暗shapeSrver作爲Microsoft.Office.Interop.Visio.Shape = .Drop(currentStencil.Masters(「Server」),0,0)

''這是代碼...!

shapeSrver.Cells( 「BeginX」)。GlueTo(shapeRack.CellsSRC(7,0,0))

shapeSrver.Cells( 「EndX」)。GlueTo(shapeRack.CellsSRC(7,1,0 ))