Изменение стилей шрифтов для всех диаграмм
Я пытаюсь заставить свой код изменить стиль диаграммы для всех диаграмм. Мне удалось это сделать для таблиц, но если я изменю код для диаграмм, это не сработает. Я что-то пропустил? Это код для таблиц, который работает, но, похоже, он не работает, поскольку стиль применения должен использовать другой стиль для диаграмм.
Код таблицы
If oSh.HasTable Then
Set oTbl = oSh.Table
oTbl.ApplyStyle ("{5C22544A-7EE6-4342-B048-85BDC9FD1C3A}"), True
End If
Я попробовал следующий код
If oSh.HasChart Then
Set oChr = oSh.Chart
oChr.ApplyStyle ("{5C22544A-7EE6-4342-B048-85BDC9FD1C3A}"), True
End If
Но я получаю ошибку
Ошибка компиляции: — Метод или элемент данных не найден.
Код таблицы меняет стиль на Средний стиль 2, Акцент 1. Я ожидаю, что диаграммы будут иметь тот же эффект.
Извините, ошибка в этой строке oChr.ApplyStyle ("{5C22544A-7EE6-4342-B048-85BDC9FD1C3A}"), True
Объекты диаграммы не включают стиль, позволяющий установить новый шрифт. Включен ли новый шрифт в тему шрифтов презентации или вы пытаетесь установить другие шрифты, которых нет в теме презентации? Синтаксис другой.
Ответы 1
- Использование
ChartSytleдля изменения стиля
Документация Майкрософт:
- Если выбрана диаграмма,
Sub ChartSytle()
Dim shp As Shape
With ActiveWindow.Selection
If .ShapeRange.HasChart = msoTrue Then
Set shp = .ShapeRange(1)
shp.Chart.ChartStyle = 12 ' 1 to 48, modify as needed
End If
End With
End Sub
- Если диаграмма не выбрана
Sub ChartSytle()
Dim shp As Shape
Set shp = ActivePresentation.Slides(1).Shapes(1) ' modify as needed
With shp
If .HasChart = msoTrue Then
shp.Chart.ChartStyle = 12 ' 1 to 48, modify as needed
End If
End With
End Sub
Спасибо, я попробовал, но получил ошибку времени выполнения «-2147188160 (80048240)»: Выбор (неизвестный участник): Неверный запрос. Ничего подходящего в настоящее время не выбрано, когда доходит до If .ShapeRange.HasChart = msoTrue then
Выберите диаграмму перед выполнением кода или используйте второй фрагмент.
Огромное спасибо, это отлично работает. Есть ли способ также установить в коде цветную палитру 1? Тогда он сделает именно то, что нужно.
Что такое colorful pallete 1?
Выбрав диаграмму, перейдите в раздел «Дизайн диаграммы», затем выберите «Изменить цвета». Это первый вариант по умолчанию в этой теме.
ГДЕ вы получаете эту ошибку? Какая линия?