中易网

EXCEL VBA中,如何让列宽随窗口的变化而按比例调整?

答案:2  悬赏:0  
解决时间 2021-02-15 23:49
EXCEL VBA中,如何让列宽随窗口的变化而按比例调整?
最佳答案
仅提供思路
ActiveWindow.Width返回的是像素点数
一般全屏至少800或1024
所以结果不对
可以用尺测量一下
列宽为100时所对应的的像素点数
一般大概即可
然后除以100
则得到列宽为1是对应的像素点数

然后在
ActiveWindow.Width * 0.7中
除以此像素点数

另外
语句直接写成
Columns("D:D").ColumnWidth = Round(ActiveWindow.Width * 0.7/n, 0)
n是上面计算的列宽为1是对应的像素点数

仅供参考祝您顺利
全部回答
设置单元格格式--对齐--缩小字体填充
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
芭比娃娃童装店我想知道这个在什么地方
听说有信免费电话能打国际长途,我充值后拨打
青忆小酒馆地址在什么地方,想过去办事
星乐科技艺术中心怎么去啊,我要去那办事
同土路/豫海南街(路口)在哪里啊,我有事要去
1、痛经:会遗传给孩子,女孩痛经、男孩小儿
玲玲佳人时尚女装这个地址在什么地方,我要处
什么牌子的家具性价比高
幼儿园小班小花裙教案反思
东郊旅馆(泰州兴化市)地址有知道的么?有点事
农村商业银行(熙岭乡熙岭村中兴街92号X901)地
林志颖是不是F4赛车手?
天成五金建材这个地址在什么地方,我要处理点
海口万绿园有几个大门
爱情的边疆万声结局是什么引猜疑 最后和谁
推荐资讯
今天看到一辆白色的丰田越野,特别大,车尾右
将25个皮球装到篮子里.如果每2个球装一篮或每
70岁老太太要嫁人正常吗
柏氏盘锦大米专卖店(双台子店)这个地址在什么
表示人心情激昂的词语
大地维修这个地址在什么地方,我要处理点事
如图所示,同位角一共有---------对,内错角一
七公主美甲美睫怎么去啊,我要去那办事
百世快递(九龙路与悦来街交叉口西50米百世快
联众物流(爱店镇云天大道附近联众物流)地址在
多媛素工作室地址在什么地方,想过去办事
阜南县段郢乡李城寨中学地址好找么,我有些事
手机登qq时,显示手机磁盘不足,清理后重新登
刺客的套装怎么选啊?