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