Obtenga una lista de tamaño de fuente en PowerPoint VBA

Question

Este código imprime cada entrada en el cuadro combinado de la lista de tamaños de fuente en 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

Sin embargo, cuando ejecuto el mismo código en PowerPoint 2007, ¿la lista está vacía? ¿Cómo puedo intializar el cuadro combinado de tamaño de fuente en PowerPoint VBA? He revisado las propiedades del tamaño de fuente 'visibles' y 'habilitadas', y ambos están configurados en verdadero.

Muchas gracias

José

Answer 1

He probado su código en Excel y PowerPoint 2007.

En PowerPoint, FontList y FontSize son no selectables (gris oscuro) si no se selecciona ningún bloque de texto (o dibujo). Eso podría explicar por qué la cuenta de ListS sigue siendo 0 al depurar.

Eso también podría explicar por qué funciona en PPT 2003 porque no tiene la cinta y tal vez la FontSize y FontList ya están seleccionadas.

Desafortunadamente, incluso mientras seleccionaba un texto de bloque, no logré tener un ListCount> 0. Tendría que mirarlo más a fondo.

Máximo