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

我有一个代码，在图表标题中创建两行文本，因此第一行作为实际标题，第二行表示副标题

是否有办法更改此代码，使第一行的字体大小为24，第二行的字体大小为18？

这些行指的是一个单元格，用户可以在其中输入自己的标题和副标题，这样我就不能真正偏离确切的字符…谢谢

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

---

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

这应该是一个好的开始，您可能需要稍微调整变量

StartChar

和

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

Sub-Alex664（）
Dim StartChar作为整数_
透镜大小为整数
使用活动图表
.ChartStyle=2
.hasttle=正确
带.图表标题
.Text=工作表（4）范围（“J13”）和Chr（10）以及工作表（4）范围（“J14”）
StartChar=InStr（1、.Text、Chr（10））
如果StartChar为0，则
LenSize=Len（.Text）-StartChar+1
.Characters（开始=1，长度=StartChar）。Font.Size=24
.Characters（开始：=StartChar+1，长度：=LenSize）。Font.Size=18
如果结束
以
以
端接头