Метод Chart.ApplyDataLabels (Project)

Статья
04/07/2023

Применяет метки данных ко всем рядам диаграммы.

Синтаксис

expression. ApplyDataLabels (Type,IMsoLegendKey,AutoText,HasLeaderLines,ShowSeriesName,ShowCategoryName,ShowValue,ShowPercentage,ShowBubbleSize,Separator)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Type	Необязательный	Office.XlDataLabelsType	Тип применяемой метки данных. Значение по умолчанию — xlDataLabelsShowValue.
IMsoLegendKey	Необязательный	Variant	Значение true , чтобы рядом с точкой отображалось клавиша условных обозначений. Значение по умолчанию — False.
AutoText	Необязательный	Variant	Значение true , если объект автоматически создает соответствующий текст на основе содержимого.
HasLeaderLines	Необязательный	Variant	Значение true , если в серии есть линии лидеров.
ShowSeriesName	Необязательный	Variant	Значение true , чтобы включить имя ряда для метки данных. Значение False , чтобы отключить имя ряда.
ShowCategoryName	Необязательный	Variant	Значение true , чтобы включить имя категории для метки данных. Значение false , чтобы отключить имя категории.
ShowValue	Необязательный	Variant	Значение true , чтобы включить значение для метки данных. Значение false , чтобы отключить значение . Если параметр Type не указан, предполагается, что параметр ShowValue имеет значение True.
ShowPercentage	Необязательный	Variant	Значение true , чтобы включить процент для метки данных. Значение false , чтобы отключить процент.
ShowBubbleSize	Необязательный	Variant	Значение true , чтобы включить размер пузырька для метки данных. Значение false , чтобы отключить размер пузырька.
Separator	Необязательный	Variant	Разделитель для метки данных.

Возвращаемое значение

Nothing

Пример

В следующем примере метки данных применяются к каждой точке данных.

Sub SetDataLabels()
    Dim chartShape As Shape
    Dim reportName As String
    
    reportName = "Simple scalar chart"
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    chartShape.Chart.ApplyDataLabels
End Sub

См. также

Объект Chart

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.