Ottenere Dimensione carattere elenco in PowerPoint VBA

Question

Questo codice stampa fuori ogni voce dell'elenco Dimensioni casella combinata carattere in 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

Tuttavia, quando si esegue lo stesso codice in PowerPoint 2007 l'elenco è vuoto? Come posso inizializzare casella Dimensione combinata carattere in PowerPoint VBA? Ho controllato entrambe le proprietà Dimensione carattere 'visibile' e 'abilitato', e sono entrambi impostati su True.

Grazie molto

Joe

Answer 1

Ho provato il codice su Excel e PowerPoint 2007.

In PowerPoint, FontList e FontSize sono selezionabile (grigio scuro), se (o disegno) non è selezionato alcun blocco di testo. Questo potrebbe spiegare il motivo per cui la ListCount è ancora 0 in fase di debug.

Questo potrebbe anche spiegare il motivo per cui funziona il PPT 2003 in quanto non si dispone il nastro e forse FontSize e FontList sono già selezionati.

Purtroppo, anche mentre la selezione di un testo in blocco, non ho riescono ad avere un ListCount> 0. avrei dovuto guardare oltre.

Max