Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA PowerPoint Discussion :

Format de puces sur PPT grâce à VBA


Sujet :

VBA PowerPoint

  1. #1
    Candidat au Club
    Format de puces sur PPT grâce à VBA
    Bonjour la communauté,

    Je suis face à un problème avec une de mes macros PPT pour insérer et mettre en forme des puces (bullets en anglais) et je n'arrive pas à coder un format de puce bien particulier.

    Quand je choisis le format de ma puce personnalisée à la main (par l'onglet Accueil, puces, customize), cela donne characters = 2013 et Name ="normal text" et la puce ressemble à un tiret.

    Toutefois, quand je rentre ces caractéristiques dans mon algorithme VBA (CF ci-dessous), je tombe sur un autre style de puce (une sorte de 8 et non un tiret) :

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    With .ParagraphFormat.bullet
                        .Visible = msoCTrue
                        .RelativeSize = 1
                        .Character = 2013
                            With .Font
                            .Name = "(normal text)"
                            .Color.RGB = bullets_pro
                            End With
    End With



    Toutefois, pour mes puces en "wingdings" tout fonctionne très bien. Est-ce-que vous auriez une idée pour m'aider à formater cette puce en particulier? Avez-vous déjà rencontré ce problème?

    Merci d'avance pour votre précieuse aide,

    Clem

  2. #2
    Expert éminent sénior
    Citation Envoyé par Clemladebrouille Voir le message


    Bonjour,

    Je n'ai pas la police (normal text) dans ma liste. Symbol ne donne pas le même caractère que les deux autres polices employées dans ce bout de code.

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
                       With .ParagraphFormat.Bullet
                           ' .Font.Name = "Symbol"
                           ' .Font.Name = "Calibri Light (En-têtes)"
                            .Font.Name = "Garamond"
                            .Character = 45
                       End With


    Pour connaître le caractère utilisé, une fois la puce paramétrée dans votre Powerpoint :
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
     
    Sub Test()
     
    Dim PptEnCours As Presentation
     
        Set PptEnCours = ActivePresentation
        With PptEnCours
             With .Slides(1)
                  With .Shapes(1).TextFrame.TextRange
                       With .ParagraphFormat.Bullet
                           ' .Font.Name = "Symbol"
                           ' .Font.Name = "Calibri Light (En-têtes)"
                            .Font.Name = "Garamond"
                            Debug.Print .Character '= 45
                       End With
                  End With
               End With
     
        End With
        Set PptEnCours = Nothing
     
    End Sub
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  3. #3
    Candidat au Club
    Bonjour,

    J'ai également trouvé une autre solution. Ce site référence tous les types de puces (au moins une bonne partie en tout cas) et donne leur numéro (dans la colonne décimale) qui correspond au "character" sur vba : https://www.ssec.wisc.edu/~tomw/java/unicode.html