excel单元格的宽度与字体大小问题

ahzy2002

当excel单元格输入的数字、字体长度超过单元格设置的宽度时，单元格的字体能自动缩小适应，使输入内容可见，这样的vba怎么编？请高手帮忙。

cattjiu

不需要编VBA，单元格--右键--设置单元格格式--如图打勾：
[upload=bmp]http://www.office-cn.net/vvb/uploadimages/2002122416273152912.bmp[/img]

cattjiu

Range("D8").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True   'here
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With

ahzy2002

感谢！