Question

VB设置EXCEL字体

现在编写VB导出EXECEL的程序，其列宽固定，但这一列中的每一行内容有长有短，所以，有的行显示不完整，现在强调列宽不能使用自适应，一定要固定，问：有没有办法，可根据列宽，自动调整每一行字号的大小，来适应列宽，显示完所有内容。

Answer 1

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

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

Answer 2

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

Answer 3

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

Answer 4

vba中控件的字体都可以在控件属性中进行设置
包括字体、字号、颜色等等属性