Изменение цвета линий для линейных диаграмм PowerPoint 2010 с использованием VBA - PullRequest
Новая
       39

Изменение цвета линий для линейных диаграмм PowerPoint 2010 с использованием VBA

0 голосов
/ 28 августа 2018

Я работаю над тем, чтобы брать слайды из разных групп и процессов и стандартизировать форматирование в PowerPoint 2010. Самая большая проблема, с которой я сталкиваюсь, - это циклическое прохождение всех рядов на диаграмме, которые могут варьироваться в зависимости от слайдов и от отчетов. цикл к отчетному циклу и назначение цвета шаблона каждому.

Я искал ответ на нескольких сайтах, но у меня возникли проблемы с поиском примера, отличного от Excel, и чего-то, что может динамически применять цвета в зависимости от количества серий в диаграмме.

Мой код VBA приведен ниже. Он успешно перебирает слайды и фигуры на каждом слайде, пока не найдет диаграмму. Как только он обнаруживает диаграмму, я пытаюсь назначить цвет и получить Ошибка времени выполнения '13': Несоответствие типов в строке ForeColor. Создание линии невидимой и затем видимой снова было из другого примера, который я видел, что респондент сказал, что необходимо, чтобы остальная часть форматирования работала. 

Sub Chart_Format()
    Dim Sl As Object
    Dim Sh As Object
    Dim Sr As Series
    For Each Sl In ActivePresentation.Slides
        For Each Sh In Sl.Shapes
            Debug.Print Sl.SlideNumber
            If Sh.HasChart Then
                Debug.Print Sh.Chart.ChartType
                If Sh.Chart.ChartType = 4 Then
                    Sh.Chart.SeriesCollection(1).Format.Line _
                        .Visible = msoFalse
                    Sh.Chart.SeriesCollection(1).Format.Line _
                        .Visible = msoTrue
                    Sh.Chart.SeriesCollection(1).Format.Line _
                        .ForeColor = RGB(1, 1, 1)
                End If
            End If
        Next Sh
    Next Sl
End Sub

Спасибо заранее, Eric

...