Chart.GetChartElement (Excel)

Возвращает сведения об элементе диаграммы в координатах x и y . Этот метод отличается тем, что значения указываются только для первых двух аргументов. Microsoft Excel заполняет остальные аргументы, и ваш код должен проверить эти значения при возврате методом.

Синтаксис

выражение. GetChartElement (x, y, ElementID, Arg1, Arg2)

выражение: переменная, представляющая объект Chart.

Параметры

Имя Обязательный или необязательный Тип данных Описание
x Обязательный Long X-координата элемента диаграммы.
y Обязательный Long Координата Y элемента диаграммы.
Элемент ИД Обязательный Long Когда метод возвращает значение, этот аргумент содержит значение XLChartItem элемента диаграммы в указанных координатах. Дополнительные сведения см. в разделе "Примечания".
Арг1 Обязательный Long Когда метод возвращает значение, этот аргумент содержит сведения, связанные с элементом диаграммы. Дополнительные сведения см. в разделе "Примечания".
Арг2 Обязательный Long Когда метод возвращает значение, этот аргумент содержит сведения, связанные с элементом диаграммы. Дополнительные сведения см. в разделе "Примечания".

Примечания

Значение ElementID после возврата метода определяет, содержат ли Arg1 и Arg2 какие-либо данные, как показано в следующей таблице.

Константа ИД элемента Постоянное значение Арг1 Арг2
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 Нет
xlHiLoLines 25 GroupIndex Нет
xlRadarAxisLabels 27 GroupIndex Нет
xlSeriesLines 22 GroupIndex Нет
xlUpBars 18 GroupIndex Нет
xlChartArea 2 Нет Нет
xlChartTitle 4 Нет Нет
xlУглы 6 Нет Нет
xlDataTable 7 Нет Нет
xlFloor 23 Нет Нет
xlВыноска 29 Нет Нет
xlLegend 24 Нет Нет
xlNothing 28 Нет Нет
xlPlotArea 19 Нет Нет
xlСтены 5 Нет Нет
xlDataLabel 7 SeriesIndex PointIndex
xlErrorBars 9 SeriesIndex Нет
xlLegendEntry 12 SeriesIndex Нет
xlLegendKey 13 SeriesIndex Нет
xlSeries 3 SeriesIndex PointIndex
xlShape 14 Индекс фигуры Нет
xlTrendline 8 SeriesIndex TrendLineIndex
xlXErrorBars 10 SeriesIndex Нет
xlYErrorBars 11 SeriesIndex Нет

В следующей таблице описано значение аргументов Arg1 и Arg2 после возврата метода.

Аргументация Описание
AxisIndex Указывает, является ли ось основной или вспомогательной. Может быть одной из следующих констант XlAxisGroup : xlPrimary или xlSecondary.
AxisType Задает тип оси. Может принимать значение одной из следующих констант XlAxisType : xlCategory, xlSeriesAxis или xlValue.
DropZoneType Определяет тип зоны перетаскивания: столбец, данные, страница или поле строки. Может принимать значения одной из следующих констант XlPivotFieldOrientation : xlColumnField, xlDataField, xlPageField или xlRowField. Константы полей столбца и строки задают поля рядов и категорий соответственно.
GroupIndex Указывает смещение в коллекции ChartGroups для определенной группы диаграмм.
PivotFieldIndex Указывает смещение в коллекции PivotFields для определенного столбца (ряда), данных, страницы или строки (поля) категории. -1, если тип зоны перетаскивания — xlDataField.
PointIndex Определяет смещение в коллекции "Точки " для определенной точки в ряду. Значение 1 означает, что выбраны все точки данных.
SeriesIndex Указывает смещение в коллекции "Ряды " для определенного ряда.
Индекс фигуры Указывает смещение в коллекции "Фигуры " для определенной фигуры.
TrendlineIndex Указывает смещение в коллекции "Линии тренда " для конкретной линии тренда в ряду.

Пример

В этом примере пользователь получает предупреждение при наведении указателя мыши на легенду диаграммы.

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 и обратная связь.