VB设置EXCEL字体

来源:百度知道 编辑:UC知道 时间:2024/05/15 15:17:50
现在编写VB导出EXECEL的程序,其列宽固定,但这一列中的每一行内容有长有短,所以,有的行显示不完整,现在强调列宽不能使用自适应,一定要固定,问:有没有办法,可根据列宽,自动调整每一行字号的大小,来适应列宽,显示完所有内容。

设定列宽
Set objCell = objSheet.Range(Cells(2, 1), Cells(10, 1))
objCell.ColumnWidth = 3

设定自动填充字体
Range("A1:A2").ShrinkToFit = True

这是EXCEL的功能,格式设置为缩小字体填充
如不清楚,可以在VB中录个宏看一下,里面有属性的.

晕!~ 你这不是设置字体!~