更改图表标题中字体的大小

我有一个代码在图表标题中创build了两行文本，所以第一行代表实际标题，第二行代表字幕。

有没有办法改变这个代码，所以第一行的字体大小为24，第二行的字体大小为18？

行是指用户可以input他们自己的标题和字幕的单元格，所以我不能真正脱离确切的字符…谢谢！

With ActiveChart .ChartStyle = 2 .HasTitle = True .ChartTitle.Text = Worksheets(4).Range("J13") & Chr(10) & Worksheets(4).Range("J14") End with 

单元格J13是第一行文本来自的单元格，J14包含第二行文本。

Answer 1

这应该是一个好的开始，你可能需要调整一些variablesStartChar和LenSize来准确地适应：

 Sub Alex664() Dim StartChar As Integer, _ LenSize As Integer With ActiveChart .ChartStyle = 2 .HasTitle = True With .ChartTitle .Text = Worksheets(4).Range("J13") & Chr(10) & Worksheets(4).Range("J14") StartChar = InStr(1, .Text, Chr(10)) If StartChar <> 0 Then LenSize = Len(.Text) - StartChar + 1 .Characters(Start:=1, Length:=StartChar).Font.Size = 24 .Characters(Start:=StartChar + 1, Length:=LenSize).Font.Size = 18 End If End With End With End Sub