EXCEL行高列宽的像素计算

zopey

想用vba设置某单元格为正方形，恶补相关知识后，发现行高、列宽的共同单位是 “像素”。
具体如何换算呢？请看实现代码

Sub 按钮1_Click()
Dim i As Integer

For i = 0 To [k4]

If i > 546 Then
   MsgBox "行高限制": Exit Sub
Else
   Rows("1:2").RowHeight = 0.75 * i
End If

If i >= [j5] Then
   Columns("a:b").ColumnWidth = Round((i - 5) / 8, 2)
Else
   Columns("a:b").ColumnWidth = Round(i / [j5], 2)
End If

DoEvents
Next i
End Sub


附件测试
行高列宽的像素计算.rar (17.05 KB, 下载次数: 84)

2020-7-30 22:46 上传

点击文件名下载附件

主要参考网文： https://blog.csdn.net/zazzh007/article/details/106982863

zopey

画个魔方玩 ：普通视图 长宽相等；切到 页面布局（打印效果） 发现新问题：行高不变 ，列宽 变小。
就是说 正方形单元格 打印到纸上 ，并不是正方形 。




魔方六面.rar (21.84 KB, 下载次数: 29)

2020-8-1 22:10 上传

点击文件名下载附件

zopey

工作表绘制五星红旗，[AF2]数值 可调（20-400），如图


长30宽20，大圆6小圆2，四个小五角星有一个角 指向 大五角星中心，标准图：




五星红旗.rar (17.22 KB, 下载次数: 36)

2020-8-2 23:07 上传

点击文件名下载附件

zopey

zopey 发表于 2020-8-1 22:16
画个魔方玩 ：普通视图 长宽相等；切到 页面布局（打印效果） 发现新问题：行高不变 ，列宽 变小。
就是说 ...

应该是DPI造成的 ：电脑显示屏DPI=96 ，打印机DPI=200，两者不是整倍数关系。
所以打印预览图 和 普通视图不一致，是个比较难的问题。

yylucke

马克，谢谢分享，作为备查资料参考。

xvjiex

感谢楼主分享：EXCEL行高列宽的像素计算。非常有用！