changyiran 发表于 2014-5-15 21:52:30

如何给excel指定单元格对象加黑色边框

(xl-put-LineStyle (xl-get-range exsheet "b2")1)在使用此函数时提示错误: ActiveX 服务器返回错误: 未知名称: LineStyle。高手请指教下！

Gu_xl 发表于 2014-5-15 21:58:53

查阅Excelvba帮助有关函数用法，或者用Excel录制宏来查看代码“！

hnfsf 发表于 2014-5-15 22:16:47

(defun dsx-excel-gridline1 (active-sheet)
(vlax-invoke-method (vlax-get-property active-sheet 'usedrange)
                      'borderaround   msxl-xlcontinuous msxl-xlmedium 1)
)

changyiran 发表于 2014-5-15 23:40:41

hnfsf 发表于 2014-5-15 22:16 static/image/common/back.gif
(defun dsx-excel-gridline1 (active-sheet)
(vlax-invoke-method (vlax-get-property active-sheet 'us ...

你好，我实验了，这只能给最外边加框，如何能将内部也加上框呢？

changyiran 发表于 2014-5-16 07:12:55

hnfsf 发表于 2014-5-15 22:16 static/image/common/back.gif
(defun dsx-excel-gridline1 (active-sheet)
(vlax-invoke-method (vlax-get-property active-sheet 'us ...

还有框有点太粗了，想画成细的边框该用哪个数值啊？不吝赐教！

Gu_xl 发表于 2014-5-16 08:40:54

changyiran 发表于 2014-5-16 07:12 static/image/common/back.gif
还有框有点太粗了，想画成细的边框该用哪个数值啊？不吝赐教！

鱼虽好，但渔更重要！

changyiran 发表于 2014-5-16 09:48:02

Gu_xl 发表于 2014-5-16 08:40 static/image/common/back.gif
鱼虽好，但渔更重要！

所以才向G版等高手们指教啊！请教也是一种学习，G版赐教下吧！

changyiran 发表于 2014-5-16 09:55:20

Gu_xl 发表于 2014-5-16 08:40 static/image/common/back.gif
鱼虽好，但渔更重要！

画细的我已经找到答案了，xl-xlthin，但是内部边框如何变黑还是不太懂，borderaround指的是外部边框方法。

changyiran 发表于 2014-5-16 12:19:57

已经完美解决，需要先获取已使用区域的边框集合对象，再获取集合的水平和竖直边框对象，然后再赋线型，代码如下：(setq bkjh(vlax-get-property(vlax-get-property exsheet 'usedrange)'borders))
(setq spbk(vlax-get-property bkjh 'item xl-xlInsidehorizontal))
(setq szbk(vlax-get-property bkjh 'item xl-xlInsideVertical))
(xl-put-LineStyle spbk xl-xlContinuous)
(xl-put-LineStyle szbk xl-xlContinuous)

ashleytgg 发表于 2016-6-29 20:50:47

感谢楼主的解答
页: [1] 2
查看完整版本: 如何给excel指定单元格对象加黑色边框