共用方式為


Chart.GetChartElement 方法 (Excel)

傳回位於指定 xy 座標之圖表專案的相關資訊。 如果只是為了指定值給前兩個引數時,一般並不常使用這個方法。 Microsoft Excel 會填滿其他的引數,而您的程式碼必須檢查此方法傳回的這些值。

語法

運算式GetChartElement (xyElementIDArg1Arg2)

expression 代表 Chart 物件的變數。

參數

名稱 必要/選用 資料類型 描述
x 必要 Long 圖表專案的 x 座標。
y 必要 Long 圖表專案的 y 座標。
ElementID 必要 Long 當方法傳回時,這個引數會包含位於指定座標之圖表專案的 XLChartItem 值。 如需詳細資訊,請參閱<備註>一節。
Arg1 必要 長整數 方法傳回時,此引數會包含與圖表項目相關的資訊。 如需詳細資訊,請參閱<備註>一節。
Arg2 必要 長整數 方法傳回時,此引數會包含與圖表項目相關的資訊。 如需詳細資訊,請參閱<備註>一節。

註解

方法傳回座標值後,無論 Arg1Arg2 是否含有任何資訊,ElementID 的值都會顯示在下列表格中。

ElementID 常數 常數值 Arg1 Arg2
xlAxis 21 AxisIndex AxisType
xlAxisTitle 17 AxisIndex AxisType
xlDisplayUnitLabel 30 AxisIndex AxisType
xlMajorGridlines 15 AxisIndex AxisType
xlMinorGridlines 16 AxisIndex AxisType
xlPivotChartDropZone 32 DropZoneType
xlPivotChartFieldButton 31 DropZoneType PivotFieldIndex
xlDownBars 20 GroupIndex
xlDropLines 26 GroupIndex None
xlHiLoLines 25 GroupIndex
xlRadarAxisLabels 27 GroupIndex
xlSeriesLines 22 GroupIndex
xlUpBars 18 GroupIndex
xlChartArea 2
xlChartTitle 4
xlCorners 6
xlDataTable 7
xlFloor 23
xlLeaderLines 29
xlLegend 24
xlNothing 28
xlPlotArea 19
xlWalls 5
xlDataLabel 7 SeriesIndex PointIndex
xlErrorBars 9 SeriesIndex
xlLegendEntry 12 SeriesIndex
xlLegendKey 13 SeriesIndex
xlSeries 3 SeriesIndex PointIndex
xlShape 14 ShapeIndex
xlTrendline 8 SeriesIndex TrendLineIndex
xlXErrorBars 10 SeriesIndex
xlYErrorBars 11 SeriesIndex

下列表格會說明 Arg1Arg2 在方法傳回後的意義。

參數 描述
AxisIndex 指定座標軸主要或次要。 可以是下列其中一個 XlAxisGroup 常數: xlPrimaryxlSecondary
AxisType 會指定座標軸類型。 可以是下列其中一個 XlAxisType 常數: xlcategory 做xlSeriesAxisxlValue
DropZoneType 會指定放置區域類型: 資料行、 資料、 頁面或列欄位。 可以是下列 XlPivotFieldOrientation 常數之一: xlColumnFieldxlDataFieldxlPageFieldxlRowField 。 欄和列欄位常數分別指定數列] 和 [類別] 欄位。
GroupIndex 指定特定圖表群組在 ChartGroups 集合內的位移。
PivotFieldIndex 指定特定資料行的 PivotFields 集合內的位移, (列) 、資料、頁面或列 (類別目錄) 欄位。 下拉區域類型如果是 xlDataField,則等於 -1。
PointIndex 指定數列中特定點的 Points 集合內的位移。 值為 1 表示已選取所有資料點。
SeriesIndex 指定特定數列在 Series 集合內的位移。
ShapeIndex 指定特定圖案在 Shapes 集合內的位移。
TrendlineIndex 指定數列中特定趨勢線在 Trendlines 集合內的位移。

範例

本範例會在使用者滑鼠移過圖表圖例時發出警告訊息。

Private Sub Chart_MouseMove(ByVal Button As Long, _ 
 ByVal Shift As Long, ByVal X As Long, ByVal Y As Long) 
 Dim IDNum As Long 
 Dim a As Long 
 Dim b As Long 
 
 ActiveChart.GetChartElement X, Y, IDNum, a, b 
 If IDNum = xlLegendEntry Then _ 
 MsgBox "WARNING: Move away from the legend" 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應