如何使用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 ））