Question

我有一个代码，可以在图表标题中创建2行文本，因此第一行充当实际标题，第二行代表字幕。

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

这些行指的是一个用户可以输入自己的标题和副标题的单元格，所以我真的不能找到确切的字符......谢谢！

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

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

Answer 1

这应该是一个好的开始，您可能需要调整变量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

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

1 个答案: