Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Представляет запись легенды в условных обозначениях диаграммы.
Замечания
Объект LegendEntry является членом коллекции LegendEntries . Коллекция LegendEntries содержит все объекты LegendEntry в легенде.
Каждая запись легенды состоит из двух частей:
Текст записи, который является именем ряда или линии тренда, связанной с записью условных обозначений.
Маркер записи, который визуально связывает запись условных обозначений со связанным рядом или линией тренда на диаграмме.
Свойства форматирования для маркера записи и связанного с ним ряда или линии тренда содержатся в объекте LegendKey .
Текст записи условных обозначений изменить нельзя. Объекты LegendEntry поддерживают форматирование шрифта, и их можно удалять. Для записей условных обозначений не поддерживается форматирование шаблона. Положение и размер записей зафиксированы.
Нет прямого способа вернуть ряд или линию тренда, соответствующую записи легенды.
После удаления записей условных обозначений единственный способ восстановить их — удалить и повторно создать легенду, содержащую их, задав для свойства HasLegend для диаграммы значение False , а затем снова значение True.
Пример
Примечание.
Хотя приведенный ниже код относится к microsoft Word, его можно легко изменить для применения к PowerPoint.
Используйте LegendEntries (index), где index — это номер индекса записи легенды, чтобы вернуть один объект LegendEntry . Вы не можете возвращать записи условных обозначений по имени.
Номер индекса представляет положение записи в условных обозначениях.
LegendEntries(1) находится в верхней части легенды, а LegendEntries(LegendEntries.Count) — в нижней части. В следующем примере изменяется шрифт текста записи легенды в верхней части легенды (обычно это легенда для первого ряда) для первой диаграммы в активном документе.
With ActiveDocument.InlineShapes(1)
If .HasChart Then
.Chart.Legend.LegendEntries(1).Font.Italic = True
End If
End With
См. также
Справочник по объектной модели PowerPoint
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.