#If Not VBA6 Then
      Function Replace(sIn As String, sFind As String, _
            sReplace As String, Optional nStart As Long =  1 , _
            Optional nCount As Long = - 1 , Optional bCompare As _
            VbCompareMethod = vbBinaryCompare) As String

          Dim nC As Long, nPos As Integer, sOut As String
          sOut = sIn
          nPos = InStr(nStart, sOut, sFind, bCompare)
          If nPos =  0  Then GoTo EndFn:
          Do
              nC = nC +  1 
              sOut = Left(sOut, nPos -  1 ) & sReplace & _
                 Mid(sOut, nPos + Len(sFind))
              If nCount <> - 1  And nC >= nCount Then Exit Do
              nPos = InStr(nStart, sOut, sFind, bCompare)
          Loop While nPos >  0 
      EndFn:
          Replace = sOut
      End Function
#End If

Sub test()
    Dim oSeries As Series
    Set oSeries = Me.ChartObjects( 1 ).Chart.SeriesCollection( 1 )
    
    oSeries.XValues = "={""янв"",""Фев"",""Мар"",""Апр""}"
    oSeries.Values = "=(Демо1!R2C1,Демо1!R3C1,Демо1!R4C1,Демо1!R5C1)"
    oSeries.BubbleSizes = "=(Демо1!R2C2,Демо1!R3C2,Демо1!R4C2,Демо1!R5C2)"
    oSeries.Name = "=Демо1!R1C1"

    oSeries.XValues = Range("D1:G1")
    oSeries.Values = Sheets("Демо1").Range("A2:A5")
    oSeries.Name = Sheets("Демо1").Range("A1")

    oSeries.XValues = Array("янв","Фев","Мар","Апр")
    oSeries.Values = Array( 1 ,  3 ,  5 ,  8 )
    oSeries.Name = "Y"
End Sub