ГЛОБАЛЬНАЯ СМЕНА ЦВЕТОВ

[Djars]

Как автоматически все, что "залито" одним цветом перекрасить в другой. Приложение PowerPoint. Проще говоря, есть презентация с кучей диаграмм, нужно изменить каждый цвет отдельного столбца. И применить к документу всему. Использования шаблона не поможет - нельзя привязать к конкретным данным определенный цвет. Т.е. везде где есть тренд 2001-го года (линия или пай) сделать его красным, взамен синего.

[Djars]

Дело в том, что если запустить запись макроса и посмотреть, как там что происходит (вся операция: выбрать таблицу, сменить цвет):

Код: Выделить всё

ActiveWindow.Selection.ShapeRange.OLEFormat.DoVerb Index:=1

И все. При повторном запуске для другой и даже для той же самой таблицы (цвет которой вернул в прежнее состояние) ничего не происходит кроме ее выделения.
А автоматизация этого процесса была бы очень полезна, когда с цветами играешь

[Djars]

никто никогда не занимался этим чтоли?
Можно конечно применять цветовые схемы, но хочется макрос.
Неужели макросы не всесильны?

[GSerg]

Сделай watch из объекта ActiveWindow.Selection.ShapeRange.OLEFormat.Object. Поставь брейкпойнт. И смотри в watch window, какие у этого объекта свойства...

[Djars]

как сделать watch?

[GSerg]

Debug Add watch...

[Djars]

ок. Фенькс