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

changyiran

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

Gu_xl

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

hnfsf

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

changyiran

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

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

changyiran

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

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

Gu_xl

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

鱼虽好，但渔更重要！

changyiran

Gu_xl 发表于 2014-5-16 08:40
鱼虽好，但渔更重要！

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

changyiran

Gu_xl 发表于 2014-5-16 08:40
鱼虽好，但渔更重要！

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

changyiran

已经完美解决，需要先获取已使用区域的边框集合对象，再获取集合的水平和竖直边框对象，然后再赋线型，代码如下：(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

感谢楼主的解答