本示例将 Sheet1 上所有单元格的字体设置为 8 磅的“Arial”字体。

With ActiveWorkbook.Worksheets("Sheet1").Cells.Font

    .Name = "Arial"

    .Size = 8

End With