Получить список размеров шрифтов в Powerpoint VBA - PullRequest
Новая
       5

Получить список размеров шрифтов в Powerpoint VBA

2 голосов
/ 10 июня 2011

Этот код распечатывает каждую запись в поле со списком Размер шрифта в Excel 2007: 

Sub FontSizeList()

Dim combo As CommandBarComboBox

Dim i As Integer
Dim j As Integer

For i = 1 To Application.CommandBars("Formatting").Controls.Count
    If Application.CommandBars("Formatting").Controls(i).Caption = "&Font Size:" Then
        Set ctl = Application.CommandBars("Formatting").Controls(i)
        For j = 1 To ctl.ListCount
            Debug.Print ctl.List(j)
        Next j
    End If
Next i

End Sub

Однако, когда я запускаю тот же код в Powerpoint 2007, список пуст? Как я могу использовать поле со списком Размер шрифта в Powerpoint VBA? Я проверил оба свойства «Размер шрифта»: «Видимый» и «Включен», и для них обоих установлено значение «Истина».

Большое спасибо

Джо

1 Ответ

2 голосов
/ 16 июня 2011

Я пробовал ваш код как в Excel, так и в PowerPoint 2007.

В PowerPoint FontList и FontSize не выбираются (темно-серый), если текстовый блок (или чертеж) не выбран.Это может объяснить, почему ListCount по-прежнему равен 0 при отладке.

Это также может объяснить, почему он работает на PPT 2003, потому что у вас нет ленты и, возможно, FontSize и FontList уже выбраны.

К сожалению, даже при выделении текста блока мне не удавалось иметь ListCount> 0. Мне пришлось бы смотреть на него дальше.

Макс

...