Блог

Главная - Вопросы по программированию - Выбор размера шрифта метки данных диаграммы при экспорте в VBA

Выбор размера шрифта метки данных диаграммы при экспорте в VBA

#vba #export #powerpoint

Вопрос:

Я хотел бы иметь возможность изменять размер шрифта меток данных до размера 14, сохраняя при этом исходное цветовое форматирование текста (некоторые белые, некоторые черные). У кого-нибудь есть идеи о том, как я могу этого добиться?

     Dim PPTPres As PowerPoint.Presentation
    Dim PPTSlide As PowerPoint.Slide
    Dim PPTShape As PowerPoint.Shape
    Dim SldIndex As Integer

    Dim Chrt As ChartObject
  
    Set PPTApp = New PowerPoint.Application
        PPTApp.Visible = True

    Set PPTPres = PPTApp.Presentations.Add

    SldIndex = 1

    For Each Chrt In ActiveSheet.ChartObjects

        Chrt.Copy

        Set PPTSlide = PPTPres.Slides.Add(SldIndex, ppLayoutBlank)
            PPTSlide.Shapes.Paste
        With PPTPres.Slides(SldIndex).Shapes("Chart 1")
            .Top = 150
            .Left = 350
            .Height = 250
            .Width = 350
            .Chart.ChartArea.Border.LineStyle = xlContinuous
            .Chart.ChartTitle.Format.TextFrame2.TextRange.Font.Size = 20
        End With
        
        SldIndex = SldIndex   1
        
    Next Chrt


End Sub```

Комментарии:

1. Как вы изначально применили смешанное цветовое форматирование к меткам данных?

2. Просто вручную в excel. Я создал панель мониторинга с 6 диаграммами.

3. Это размер шрифта или жирный шрифт (или и то и другое?) что приводит к сбросу цвета? Вы пробовали использовать Characters свойство для их установки? docs.microsoft.com/en-us/office/vba/api/… Обычно это позволяет избежать сброса текста смешанного формата к значению по умолчанию. Однако, возможно, вам придется рассмотреть каждый пункт отдельно…

4. Поэтому я использовал это в качестве примера для заголовка: .Диаграмма. Подзаголовок. Format.TextFrame2.TextRange.Шрифт.Размер = 20

5. Это работает для заголовка и легенды, но я, кажется, не могу назвать метки данных

Метки: