Discussion :

[Clemladebrouille]

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

[Invité]

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

[Clemladebrouille]

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