如何使用VB.net在VISIO中放置形狀內的形狀

Question

我正在使用機架安裝設備（US單位）.VSS作爲模板。我需要連接Rack上的服務器。請給它一個答案迫切...！

Answer 1

朋友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 ））