Obtenir la liste Taille de la police dans Powerpoint VBA

Question

Ce code affiche chaque entrée dans la zone de liste déroulante de liste Taille de la police dans 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

Cependant, quand je lance le même code dans la liste Powerpoint 2007 est vide? Comment puis-je initialiser la zone de liste déroulante Taille de la police dans Powerpoint VBA? J'ai vérifié les propriétés Taille de la police « visible » et « activé la fonction », et ils sont tous deux à True.

Merci beaucoup

Joe

Answer 1

J'ai essayé votre code sur Excel et PowerPoint 2007.

Sur PowerPoint, FontList et FontSize sont unselectable (gris foncé) si aucun bloc de texte (ou le dessin) est sélectionné. Cela pourrait expliquer pourquoi le ListCount est encore 0 lors du débogage.

Cela pourrait aussi expliquer pourquoi il fonctionne sur PPT 2003 parce que vous n'avez pas le ruban et peut-être FontSize et FontList sont déjà sélectionnés.

Malheureusement, même lors de la sélection d'un texte de bloc, je n'ai pas réussi à avoir un ListCount> 0. Je dois regarder plus loin.

Max