- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 一条线连接单元格 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102025)
-- 发布时间：2017/6/12 9:48:00
-- 一条线连接单元格
各位老师，当单元格不为空时，将几个单元格用直接连接，也就是绘制单元格，请各位老师指条思路和方法，谢谢
此主题相关图片如下：111.png
-- 发布时间：2017/6/12 10:02:00
--
参考代码
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
-- 发布时间：2017/6/12 10:06:00
--
老师，我是想在TABLE 里绘制，不是在EXCEL内绘制
-- 发布时间：2017/6/12 10:24:00
--
不行，做不到。