图表 涉及到的数组问题

Question

   ActiveSheet.ChartObjects("图表 1").Activate    dd = [{11,2,33,49,-35,6,37,8,19}]  ----------  运行结果成立
--
    Dim Arr(1 To 20) 
    ActiveChart.SeriesCollection(1).Values = Arr  -------- 运行结果不成立。
请各位大侠提供一个
   图表与 数组的格式的例子。
   
   谢谢。
    

Answer 1

找到解法了
  Dim oChart As Object
  Dim oSht As Object
  Set oSht = Sht.Parent.sheets("Sheet1")
  Set oChart = oSht.ChartObjects("图表 5").Chart  Str = "={"
  Str1 = Str: Str2 = Str
  For ii = 0 To nn
    Str = Str & ii * 360 / nn & ","
    Str1 = Str1 & Round(r * (ii * Alfa), 1) & ","
    Str2 = Str2 & Round(Hh + rr - Sqr(rr ^ 2 - (r * Cos(ii * Alfa + Alfa1)) ^ 2), 1) & ","
  Next ii
  Str = Left(Str, Len(Str) - 1) & "}"
  Str1 = Left(Str1, Len(Str1) - 1) & "}"
  Str2 = Left(Str2, Len(Str2) - 1) & "}"
  With oChart
    Debug.Print .Name
    .SeriesCollection(1).XValues = Str
    .SeriesCollection(1).Values = Str2
  End With