如果文字中间有一条水平删除线，则该值为 True。Boolean 类型，可读写。
本示例将 Sheet1 中活动单元格的字体设置为加删除线。
Worksheets("Sheet1").Activate ActiveCell.Font.Strikethrough = True