Excel 请教老师，vba怎样缩小字体填充

Question

如题所述

Answer 1

如对单元格A1的操作：

Sub 宏1()
    Range("A1").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = True
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Answer 2

按F1 找Range对象的方法