none
關於OWC11繪圖問題 RRS feed

  • 問題

  • 請問各位專家,為什麼我以下面程式繪出的兩個圖形,圖形一會讀入圖形二的資料,圖形二也會讀入圖形一的資料。
    我可以讓圖一只讀圖一的資料,圖二只讀圖二的資料嗎?謝謝﹗

    Randomize
        For i = 0 To 5
            Worksheets("sheet1").Cells(1, i + 1) = "Data" & (i + 1)
            For j = 0 To 19
                Worksheets("sheet1").Cells(j + 2, i + 1).Value = Rnd
            Next
        Next
        Dim Series(19), Value(19)
        For j = 0 To 19
            Series(j) = Round(Worksheets("sheet1").Cells(j + 2, 1), 5)
            Value(j) = Round(Worksheets("sheet1").Cells(j + 2, 2), 5)
        Next


         Set cht = UserForm1.ChartSpace1.Charts.Add(0)
        Set c = UserForm1.ChartSpace1.Constants
            cht.Type = c.chChartTypeLine
            cht.SetData c.chDimCategories, c.chDataLiteral, Series
            cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, Series
        Set cht1 = UserForm1.ChartSpace1.Charts.Add(-1)
        Set a = UserForm1.ChartSpace1.Constants
            cht1.Type = a.chChartTypeColumnClustered
            cht1.SetData a.chDimCategories, a.chDataLiteral, Value
            cht1.SeriesCollection(0).SetData a.chDimValues, a.chDataLiteral, Value

    2008年7月21日 上午 05:47

解答

  • 一個 ChartSpace 只有一個類別欄,所以

    Code Snippet

    cht.SetData c.chDimCategories, c.chDataLiteral, Series

    ...

    cht1.SetData a.chDimCategories, a.chDataLiteral, Value

     

     

    會變成在同一類別欄繼續增加類別名稱,在同一個 ChartSpace 裡面的兩個 Chart 就會共用同一類別欄畫圖,變成你的圖 1 後半段的 x 軸是圖 2 的類別名稱,圖 2 同理。

     

    若類別名稱不同時,請用兩個 ChartSpace。

    2008年7月21日 上午 10:14
    版主

所有回覆

  • 一個 ChartSpace 只有一個類別欄,所以

    Code Snippet

    cht.SetData c.chDimCategories, c.chDataLiteral, Series

    ...

    cht1.SetData a.chDimCategories, a.chDataLiteral, Value

     

     

    會變成在同一類別欄繼續增加類別名稱,在同一個 ChartSpace 裡面的兩個 Chart 就會共用同一類別欄畫圖,變成你的圖 1 後半段的 x 軸是圖 2 的類別名稱,圖 2 同理。

     

    若類別名稱不同時,請用兩個 ChartSpace。

    2008年7月21日 上午 10:14
    版主
  • 謝謝您詳細的解說﹗

    可不可以再請叫您一個問題,若我的類別軸是同一個的話,那是不是就可以在同一個chartspace中,建立兩個圖形了?

    2008年7月21日 下午 01:31
  • 是,最多可以建立 64 個 Chart ,線上手冊有。

     

    2008年7月21日 下午 02:28
    版主