VBA更改图表标题方法

Sub 辑编标题()
With Worksheets("sheet1").ChartObjects(1).Chart
 .HasTitle = True
 .ChartTitle.Text = "February Sales"
    If .ChartTitle.Text <> "ABC 123" Then
         MsgBox "扣3分"
         .ChartTitle.Text = "ABC 123"
    Else
        MsgBox "加分:5分"
    End If
End With
End Sub

cnliutz

计算机基础教师

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注