设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 589|回复: 1

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

[复制链接]

已领礼包: 9个

财富等级: 恭喜发财

发表于 2018-9-27 00:28:33 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 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

评分

参与人数 1D豆 +5 收起 理由
konglong604 + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 1422个

财富等级: 财源广进

发表于 2018-9-27 09:10:37 | 显示全部楼层
谢谢分享这么实用的资料
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2019-12-16 02:44 , Processed in 0.142857 second(s), 25 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表