На диаграмме Power Point Chart, содержащей двухуровневую ось: применяйте разные шрифты к каждому уровню, используя VBA - PullRequest
Новая
       26

На диаграмме Power Point Chart, содержащей двухуровневую ось: применяйте разные шрифты к каждому уровню, используя VBA

0 голосов
/ 09 марта 2020

У меня есть отчет Power Point, который мне нужен, чтобы обновить формат осей X-координат на нескольких слайдах. Мне нужно применить другой шрифт для каждого уровня оси категории (два уровня).

В настоящее время у меня есть 

For Each sld In ActivePresentation.Slides

    For Each shp In sld.Shapes

        fillBitOfName = Right(shp.Name, 4)

        If (fillBitOfName = "Fill") Then

            For Each ax In shp.Chart.Axes

                If (ax.Name = "Axis 2") Then
                    Debug.Print (ax.TickLabels.MultiLevel) 'Prints as True
                    With ax.TickLabels.Font
                        .Name = "Futura HV BT"
                        .FontStyle = "Bold"
                        .Size = 8
                    End With
                End If
            Next ax                
        End If
    Next shp
Next sld

Это меняет формат для всей оси, а не только один из двух уровней. Как указать, какой уровень я хочу редактировать?

...