本示例将 Sheet1 上所有单元格的字体设置为 8 磅的“Arial”字体。
With ActiveWorkbook.Worksheets("Sheet1").Cells.Font
.Name = "Arial"
.Size = 8
End With