none
[VB6]如何在一個圖表上有長條圖+折線圖 RRS feed

解答

  • The Microsoft OLE Chart Object

    http://vb123.com/toolshed/99_graphs/msolechart.htm

    Create Multiple Combination Charts in Excel

    http://www.computorcompanion.com/LPMArticle.asp?ID=211

    參考以上,用OLE物件顯示Excel Chart,試試能把axis改變,結合兩個圖嗎...

    • 已標示為解答 Teutonfx 2010年6月1日 上午 02:39
    2010年5月26日 上午 08:08
  • OWC 跟 MSChart 都可以啊~

    不過要透過程式碼控制變更 ChartType 之類的,從介面上不知道有沒有。


    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。
    • 已標示為解答 Teutonfx 2010年6月1日 上午 02:39
    2010年5月26日 下午 03:18
  • 剛剛後來發現原來在圖表類型要設成組合圖.... .chartType = VtChChartType2dCombination 就可以選擇直線圖.折線圖.區域圖.階梯圖 不過使用Plot.SeriesCollection(1).SeriesType = VtChSeriesType2dXY 按下= 後(智慧感知)..也是會出現全部的類型做選擇....並不會出現只有可以設定的類型 果然VB6還是笨了一點...
    • 已標示為解答 Teutonfx 2010年6月1日 上午 02:40
    2010年6月1日 上午 02:38

所有回覆

  • The Microsoft OLE Chart Object

    http://vb123.com/toolshed/99_graphs/msolechart.htm

    Create Multiple Combination Charts in Excel

    http://www.computorcompanion.com/LPMArticle.asp?ID=211

    參考以上,用OLE物件顯示Excel Chart,試試能把axis改變,結合兩個圖嗎...

    • 已標示為解答 Teutonfx 2010年6月1日 上午 02:39
    2010年5月26日 上午 08:08
  • OWC 跟 MSChart 都可以啊~

    不過要透過程式碼控制變更 ChartType 之類的,從介面上不知道有沒有。


    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。
    • 已標示為解答 Teutonfx 2010年6月1日 上午 02:39
    2010年5月26日 下午 03:18
  • 後來參考這篇資料 http://www.xtremevbtalk.com/showthread.php?t=254175

    不過在一個圖表上,還是只有一種圖形

    SeriesCollection(1).SeriesType = VtChSeriesType2dLine

    寫這段CODE好像沒有作用

     

    我的程式碼:

     

     

    Private Sub Form_Load()

    Dim i As Integer

            chtMileage.AllowSelections = False    

            With chtMileage   ' MSChart

                .chartType = VtChChartType2dBar    ' type of graphic

                .ColumnCount = 2

                .RowCount = 2

                For i = 1 To 2

                    .Row = i

                    .Column = 1

     

                    For j = 1 To 2

                    .Data = j

                    Next j

     

                    .Column = 2

     

                    For j = 2 To 3

                    .Data = j

                    Next j

     

     

                    .Plot.SeriesCollection(1).SeriesType = VtChSeriesType2dLine

                    .Plot.SeriesCollection(2).SeriesType = VtChSeriesType2dBar

     

                    .Plot.SeriesCollection(1).LegendText = "MyImput"

                    .Plot.SeriesCollection(2).LegendText = "MyDiscount"

     

                    .RowLabel = "測試"

     

                Next i

            End With

     

            chtMileage.ShowLegend = True

     

            With chtMileage.Legend 'MSChart.Legend

                .Location.LocationType = VtChLocationTypeTop

                .TextLayout.HorzAlignment = VtHorizontalAlignmentCenter

            End With

    End Sub

     

    2010年6月1日 上午 02:25
  • 剛剛後來發現原來在圖表類型要設成組合圖.... .chartType = VtChChartType2dCombination 就可以選擇直線圖.折線圖.區域圖.階梯圖 不過使用Plot.SeriesCollection(1).SeriesType = VtChSeriesType2dXY 按下= 後(智慧感知)..也是會出現全部的類型做選擇....並不會出現只有可以設定的類型 果然VB6還是笨了一點...
    • 已標示為解答 Teutonfx 2010年6月1日 上午 02:40
    2010年6月1日 上午 02:38