本示例将活动单元格的字体设为“仿宋”。

ActiveCell.Font.Name = "仿宋"