Метод Chart.GetChartElement (Excel)
Возвращает сведения об элементе диаграммы в указанных координатах x и y . Этот метод является необычным тем, что вы задаете значения только для первых двух аргументов. Microsoft Excel заполняет другие аргументы, и код должен проверить эти значения при возврате метода.
Синтаксис
expression. GetChartElement (x, y, ElementID, Arg1, Arg2)
выражение: переменная, представляющая объект Chart.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| x | Обязательный | Long | Координата x элемента диаграммы. |
| y | Обязательный | Long | Координата y элемента диаграммы. |
| ElementID | Обязательный | Long | При возврате метода этот аргумент содержит значение XLChartItem элемента диаграммы с заданными координатами. Дополнительные сведения см. в разделе "Примечания". |
| Arg1 | Обязательный | Long | При возврате метода этот аргумент содержит сведения, связанные с элементом диаграммы. Дополнительные сведения см. в разделе "Примечания". |
| Arg2 | Обязательный | Long | При возврате метода этот аргумент содержит сведения, связанные с элементом диаграммы. Дополнительные сведения см. в разделе "Примечания". |
Замечания
Значение ElementID после возврата метода определяет, содержат ли Arg1 и Arg2 какие-либо сведения, как показано в следующей таблице.
| Константка 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 | Нет |
| 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 | Нет |
В следующей таблице описано значение Arg1 и Arg2 после возврата метода.
| Аргументация | Описание |
|---|---|
| AxisIndex | Указывает, является ли ось первичной или вторичной. Может быть одной из следующих констант XlAxisGroup : xlPrimary или xlSecondary. |
| AxisType | Указывает тип оси. Может быть одной из следующих констант XlAxisType : xlCategory, xlSeriesAxis или xlValue. |
| DropZoneType | Указывает тип зоны удаления: столбец, данные, страница или поле строки. Может быть одной из следующих констант XlPivotFieldOrientation : xlColumnField, xlDataField, xlPageField или xlRowField. Константы полей столбцов и строк указывают поля ряда и категории соответственно. |
| GroupIndex | Задает смещение в коллекции ChartGroups для определенной группы диаграмм. |
| PivotFieldIndex | Задает смещение в коллекции PivotFields для определенного столбца (ряда), данных, страницы или строки (категории). -1, если тип зоны перетаскивания имеет тип xlDataField. |
| PointIndex | Задает смещение в коллекции Points для определенной точки в ряде. Значение 1 указывает, что выбраны все точки данных. |
| SeriesIndex | Задает смещение в коллекции Series для определенного ряда. |
| ShapeIndex | Задает смещение в коллекции Фигуры для определенной фигуры. |
| 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 и обратная связь.