Holen Sie sich eine Liste der Schriftgröße in PowerPoint VBA

Question

Dieser Code wird in Excel 2007 jeden Eintrag in der Kombination zum Kombination von Schriftstellern in Excel 2007 ausdrucken:

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

Wenn ich jedoch den gleichen Code in PowerPoint 2007 ausführe, ist die Liste leer? Wie kann ich das Kombinationsfeld der Schriftgröße in PowerPoint VBA intialisieren? Ich habe sowohl die Eigenschaften der Schriftgröße "sichtbar" als auch "aktiviert" überprüft, und beide sind auf True eingestellt.

Vielen Dank

Joe

Answer 1

Ich habe Ihren Code sowohl für Excel als auch für PowerPoint 2007 ausprobiert.

Auf PowerPoint sind Schriftliste und fontsize nicht wählbar (dunkelgrau), wenn kein Textblock (oder Zeichnung) ausgewählt ist. Das könnte erklären, warum der ListCount beim Debuggen immer noch 0 ist.

Dies könnte auch erklären, warum es auf PPT 2003 funktioniert, da Sie nicht das Band haben und möglicherweise auch fontsize und fontlist ausgewählt sind.

Leider habe ich auch bei der Auswahl eines Blocktextes keine ListCount> 0. Ich müsste es weiter betrachten.

Max