我錄製出來的有（選中圖表中的標題，透過工具欄上的字號直接更改的）。 ActiveSheet.ChartObjects("Chart 2").Activate ActiveChart.ChartTitle.Select Selection.Characters.Text = "Test for LifeDebug" Selection.AutoScaleFont = False With Selection.Characters(Start:=1, Length:=18).Font .Name = "宋體" .FontStyle = "Regular" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With