VLISP在Excel对象中的应用（四）：Excel中设置行高、列宽及单元格边框

zipo123 · 发表于 2018-9-27 00:28:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 zipo123 于 2018-9-27 23:10 编辑

接着上一次继续补充
(vla-put-visible excel-app :vlax-true);;将当前创建的Excel程序设置为可见
(vlax-put-property (vlax-get-property active-sheet1 "Range" "1:1") "RowHeight" 30);;设置工作表sheet1中的第一行的行高为30
(vlax-put-property (vlax-get-property active-sheet1 "Range" "A:A") "ColumnWidth" 10);;设置工作表sheet1中的第一列的列宽为10
(setq range1 (vlax-get-property active-sheet1 "Range" "A46"));;获取单元格“A46”的属性
(setq range2 (vlax-get-property active-sheet1 "Range" "B47"));;获取单元格“A47”的属性
(vlax-put-property (vlax-get-property range1 "Borders") "Weight" 4);;设置range1所表示的单元格对象的边框宽度为4
(vlax-put-property (vlax-get-property range2 "Borders") "LineStyle" "9");;设置range2所表示的单元格的边框线形，线形为0-13的数字，其中0为无边框，其余数字个对应不同的线型
(vlax-put-property (vlax-get-property range1 "Borders") "ColorIndex" "3");;设置单元格边框颜色，颜色索引号可以为数字1-56，其中1为黑，2为白，3为红，4为绿，5为蓝，6为黄，
(setq borderItem1 (vlax-get-property(vlax-get-property range2 "Borders") "Item" 3 ));;获取单元格边框对象中的上边框对象，其中数字1或7为左边，，2或10为右边，3或8为顶部，4或9为底部，5为左上到右下，6为右上到左下
(setq borderItem2 (vlax-get-property(vlax-get-property range2 "Borders") "Item" 1 ));;获取单元格边框对象中的左边框对象
(vlax-put-property borderItem1 "ColorIndex" "3");;设置单元格上边框颜色为红色
(vlax-put-property borderItem2 "Weight" 4);;设置单元格左边框宽度为4

konglong604 · 发表于 2018-9-27 09:10:37

谢谢分享这么实用的资料

chenruipeng · 发表于 2020-6-23 22:50:36

学习中

wysclc · 发表于 2020-7-6 09:46:56

学习了。。。

qxlonmsn · 发表于 2021-8-21 15:15:39

不说了老大你就是犇顶你

账号		自动登录	找回密码
密码			立即注册

[每日一码] VLISP在Excel对象中的应用（四）：Excel中设置行高、列宽及单元格边框

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子