ChartType 屬性的說明幫助(VBA)

要在VBA上畫圖表,一定要懂圖表類型的常數,但是我想台灣人應該習慣用繁體中文的吧!可是用到VBA上,這些常數沒有說明,還真不知是什麼圖表類型,所以我努力的把excel 2003的圖表類型努力的看完了,並且翻譯說明如下,但也突然發現竟然微軟搞錯了一個翻譯,拍照存證如下圖:

2009-03-19_172318

群組橫圓錐圖??這是橫的嗎?不是直的嗎?而且選擇了這個圖形之後,看到的還是直的,所以應該是翻譯錯了!

參閱應用於範例特性

返回或設置圖表類型。XlChartType 類型,可讀寫。

NameValueDescription
xl3DArea-4098立體區域圖.
xl3DAreaStacked78立體堆疊區域圖.
xl3DAreaStacked10079100%堆疊區域圖.
xl3DBarClustered60立體群組橫條圖.
xl3DBarStacked61立體堆疊橫條圖.
xl3DBarStacked10062立體100%堆疊橫條圖.
xl3DColumn-4100立體直條圖.
xl3DColumnClustered54立體群組直條圖.
xl3DColumnStacked55立體堆疊直條圖.
xl3DColumnStacked10056立體100%堆疊直條圖.
xl3DLine-4101立體折線圖.
xl3DPie-4102立體圓形圖.
xl3DPieExploded70分裂式立體圓形圖.
xlArea1區域圖
xlAreaStacked76堆疊區域圖.
xlAreaStacked10077100%堆疊區域圖.
xlBarClustered57群組橫條圖.
xlBarOfPie71圓形圖帶有子橫條圖.
xlBarStacked58堆疊橫條圖.
xlBarStacked10059100%堆疊橫條圖.
xlBubble15泡泡圖.
xlBubble3DEffect87立體泡泡圖.
xlColumnClustered51群組直條圖.
xlColumnStacked52堆疊直條圖.
xlColumnStacked10053100%堆疊直條圖.
xlConeBarClustered102群組橫圓錐圖.
xlConeBarStacked103堆疊橫圓錐圖.
xlConeBarStacked100104100%堆疊橫圓錐圖.
xlConeCol105立體直圓錐圖.
xlConeColClustered99群組直圓錐圖.
xlConeColStacked100堆疊直圓錐圖.
xlConeColStacked100101100%堆疊直圓錐圖.
xlCylinderBarClustered95群組橫圓柱圖.
xlCylinderBarStacked96堆疊橫圓柱圖.
xlCylinderBarStacked10097100%堆疊橫圓柱圖.
xlCylinderCol98立體直圓柱圖.
xlCylinderColClustered92群組直圓柱圖.
xlCylinderColStacked93堆疊直圓柱圖.
xlCylinderColStacked10094100%堆疊直圓柱圖.
xlDoughnut-4120環圈圖.
xlDoughnutExploded80分裂式環圈圖.
xlLine4折線圖.
xlLineMarkers65含有資料標記的折線圖.
xlLineMarkersStacked66含有資料標記的堆疊折線圖.
xlLineMarkersStacked10067含有資料標記的100%堆疊折線圖.
xlLineStacked63堆疊折線圖.
xlLineStacked10064100%堆疊折線圖.
xlPie5圓形圖.
xlPieExploded69分裂式圓形圖.
xlPieOfPie68子母圓形圖.
xlPyramidBarClustered109群組橫圓錐圖.
xlPyramidBarStacked110堆疊橫圓錐圖.
xlPyramidBarStacked100111100%堆疊橫圓錐圖.
xlPyramidCol112立體直圓錐圖.
xlPyramidColClustered106群組直圓錐圖.
xlPyramidColStacked107堆疊直圓錐圖.
xlPyramidColStacked100108100%堆疊直圓錐圖.
xlRadar-4151雷達圖.
xlRadarFilled82填滿式雷達圖.
xlRadarMarkers81帶有資料標記的雷達圖.
xlStockHLC88最高-最低-收盤.
xlStockOHLC89開盤-最高-最低-收盤.
xlStockVHLC90成交量-最高-最低-收盤.
xlStockVOHLC91成交量-開盤-最高-最低-收盤.
xlSurface83立體曲面圖.
xlSurfaceTopView85曲面圖 (俯視).
xlSurfaceTopViewWireframe86曲面圖 (俯視、只顯示線條).
xlSurfaceWireframe84立體曲面圖(只顯示線條).
xlXYScatter-4169散佈圖.
xlXYScatterLines74帶有折線的XY散佈圖.
xlXYScatterLinesNoMarkers75帶有折線但沒有資料標記的XY散佈圖.
xlXYScatterSmooth72帶有平滑線的XY散佈圖.
xlXYScatterSmoothNoMarkers73帶有平滑線但沒有資料標記的XY散佈圖

expression ChartType

expression 必需。該運算式返回應用於列表中的物件之一。

說明

某些圖表類型對資料透視圖報表無效。

範例

當圖表為二維氣泡圖時,本示例將第一個圖表組中的氣泡大小設置為默認大小的 200%

With Worksheets(1).ChartObjects(1).Chart
    If .ChartType = xlBubble Then
        .ChartGroups(1).BubbleScale = 200
    End If
End With

在麻辣家族討論區,有一個問題是如何應用 VBA 將股票圖完整的呈現出來?

各位有空可以留言看看問題如何解決,謝謝。

With ActiveChart
        .SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows & ", 統計圖表!$C$1:統計圖表!$F$" & totalRows)
        '.SetSourceData Source:=Range(" 統計圖表!$C$1:統計圖表!$F$" & totalRows)
        ' .ChartType = xlStockVOHLC              ' 股票圖   ( 會造成 記憶體不足 )
        .ChartType = xlStockOHLC                 ' 股票圖
        .SeriesCollection(1).AxisGroup = 1  ' ****************************************************************************************
                          
        .SeriesCollection.Add Source:=Range("統計圖表!$H$1:統計圖表!$J$" & totalRows)
        .SeriesCollection(5).Name = "=統計圖表!$H$1"
        .SeriesCollection(5).ChartType = xlLine
        .SeriesCollection(6).Name = "=統計圖表!$I$1"
        .SeriesCollection(6).ChartType = xlLine
        .SeriesCollection(7).Name = "=統計圖表!$J$1"
        .SeriesCollection(7).ChartType = xlLine
        ' .SeriesCollection(2).AxisGroup = 1 '****************************************************************************************
        
        With .ChartGroups(1)
             .UpBars.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
             .DownBars.Format.Fill.ForeColor.RGB = RGB(0, 32, 96)
        End With
        
        
        .SeriesCollection.Add Source:=Range("統計圖表!$G$1:統計圖表!$G$" & totalRows)
        .SeriesCollection(8).Name = "=統計圖表!$G$1"
        .SeriesCollection(8).ChartType = xlColumnClustered
        .SeriesCollection(8).AxisGroup = 2 '****************************************************************************************
        
        ' With .ChartGroups(2)      '注意, ChartGroup在插入成交量直條後變成 2 了
        '     .UpBars.Interior.Color = RGB(255, 0, 0)
        '     .DownBars.Interior.Color = RGB(0, 32, 96)
        ' End With
   
                             
        .Axes(xlCategory).CategoryType = xlCategoryScale
        .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm"
        .Axes(xlCategory).MajorTickMark = xlNone
        .Axes(xlCategory).TickLabelPosition = xlLow
            
        .Axes(xlValue).TickLabels.NumberFormatLocal = "0_ "                     ' 代表物件的格式代碼。
   
    End With

 

感謝你看到這裡,很快就可以離開了,但最好的獎勵行動就是按一下幫我分享或留言,感恩喔~

點我分享到Facebook

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。