本示例更改活动单元格的字体格式设置。
ActiveWorkbook.Worksheets("Sheet1").Activate
With ActiveCell.Font
.Bold = True
.Italic = True