VBA实用小程序60： 替换图表SERIES公式中的字符串

Sub ChangeSeriesFormula_ActiveChart()
 '如果没有活动图表
  If ActiveChart Is Nothing Then
    MsgBox"请选择图表后重试.",vbExclamation, _
      "没有选择图表"
    Exit Sub
  End If

   Dim OldString As String
  OldString = InputBox("输入要被替换的字符串:","输入旧字符串")

   If Len(OldString) > 1 Then
    Dim NewString As String
    NewString= InputBox("输入新字符串来替换掉原字符串 "& """" _      &OldString & """:", "输入新字符串")
   ' 遍历所有系列
    Dim srs As Series
    For Each srs In ActiveChart.SeriesCollection
      Dim NewFormula As String
     '替换SERIES公式中的字符串
     NewFormula = WorksheetFunction.Substitute(srs.Formula, _       OldString, NewString)
     '更新SERIES公式
     srs.Formula = NewFormula
    Next
  Else
    MsgBox"没有进行替换操作.",vbInformation, "没有输入"
  End If
End Sub