主题：一条线连接单元格

各位老师，当单元格不为空时，将几个单元格用直接连接，也就是绘制单元格，请各位老师指条思路和方法，谢谢
此主题相关图片如下：111.png

 参考代码

 

Dim app As new MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("g:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

 

Dim cell1 = ws.cells(2, 3)
Dim cell2 = ws.cells(4, 5)
ws.Shapes.AddConnector(1, cell1.left+cell1.width/2, cell1.Top+cell1.height/2, cell2.left+cell2.width/2, cell2.Top+cell2.height/2)

 

wb.saved = True
app.visible = True
'Ws.PrintPreview
'app.quit

老师，我是想在TABLE 里绘制，不是在EXCEL内绘制

 

 不行，做不到。