VB.net을 사용하여 VISIO에서 모양 안의 도형을 삭제하는 방법

Question

저는 스텐실로 랙 장착형 장비 (.VSS)를 사용하고 있습니다. 랙에 서버를 연결해야합니다. 그 urget에 대한 답을주세요 ...!

Answer 1

친구에서 WithEvents AxDC로서 AxMicrosoft.Office.Interop.VisOcx.AxDrawingControl

currentPage = 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)로서는 Microsoft.Office.Interop.Visio.Shape

어둡게 shapeSrver = .Drop (currentStencil.Masters ("Server"), 0, 0)

''여기 코드가 있습니다 ...!

shapeSrver.Cells ("BeginX"). GlueTo (shapeRack.CellsSRC (7, 0, 0))

shapeSrver.Cells ("EndX"). GlueTo (shapeRack.CellsSRC (7, 1, 0))