Member 13265343 Ответов: 2

Как раскрасить все стрелки (фигуры) на всех слайдах power point в красный цвет с помощью VBA?

Я хочу раскрасить все стрелки на всех слайдах в красный цвет с помощью VBA, чтобы избежать ручной работы.

Что я уже пробовал:

Я не пробовал, так как я новичок в VBA

2 Ответов

Рейтинг:
2

Pat O'Brien

Решение №2: Google "как раскрасить все стрелки в презентации powerpoint в красный цвет"
Тогда разберись сам.


Решение №3: Попробуйте сделать что-то вроде следующего:

Sub ColorArrowsRed()

Dim sl As Slide
Dim sh As Shape

    For Each sl In ActivePresentation.Slides
        For Each sh In sl.Shapes
            'Debug.Print sl.Name, sh.Name, sh.Line.ForeColor.RGB
            If InStr(sh.Name, "Arrow") > 0 Then
                sh.Line.ForeColor.RGB = RGB(256, 0, 0)
            End If
        Next
    Next

End Sub


Как всегда, хорошего вам дня.

.

Рейтинг:
0

Maciej Los

Начать здесь: Изменение цветового форматирования фигур в Office 2010[^] и измените код в соответствии с вашими потребностями.