Sous points de paragraphes

Version imprimable

14/05/2009, 10h37
Graphiste Powerpoint

Sous points de paragraphes

Bonjour,

J'ai finalement décidé de me mettre aux programmation de macro, comme je rame un peu, un petit coup de main de votre forum serrait vraiment bienvenue :)
Je cherche à faire une macro qui m'afficherait une boite de texte sous un format particulier.
Je bloque au niveau des puces des paragraphes. Je dois configurer une puce particulière pour le premier niveau d'un paragrphe, puis une aure avec un interligne différent pour le second niveau et pareil pour le troisième.
J'ai réussi à mettre ne place le premier niveau mais je n'arrive pas à trouver la formule pour créer un 2e et 3e niveau sur mon paragraphe.

Merci beaucoup pour votre aide !

Bonjour

Je pense savoir ce que tu veux dire ;)

D'abord un petit exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Sub Puce() Dim sld As Slide Dim shp As Shape Dim i As Integer Set sld = ActivePresentation.Slides(1) Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 25, 25, 200, 300) shp.TextFrame.TextRange.Text = "toto" & vbCrLf & "titi" With shp.TextFrame.TextRange.Paragraphs(1) .IndentLevel = 1 .ParagraphFormat.Bullet.Style = ppBulletHindiAlpha1Period End With With shp.TextFrame.TextRange.Paragraphs(2) .IndentLevel = 2 .ParagraphFormat.Bullet.Style = ppBulletArabicPlain End With End Sub
Colle ce code dans un module et exécute le (F5) pour voir le résultat sur la première diapositive.

Ce code crée deux paragraphe dans une zone de texte.
Au premier paragraphe j'affecte une puce, et il a une indentation de 1.

Le deuxième paragraphe une autre puce avec une indentation de 2.

En fait le principe est d'écrire les éléments de ta zone de texte, en les séparant avec un retour chariot (vbCrLf), ce qui crée tes paragraphes.

Ensuite chaque paragraphe à un numéro (de 1 à ...), et tu fais ce que tu veux dans chaque.

A partir de cela, et avec l'explorateur d'objet (F2) tu devrais trouver ce que tu veux.

Philippe

19/05/2009, 10h07
Graphiste Powerpoint

Merci beaucoup !
:D
20/05/2009, 13h15
Graphiste Powerpoint

En fait j'ai bossé dessus et je n'ai pas trouvé les puces que je veux dans l'explorateur d'objet. il s'agit de puces customisées. Par exemple ma première puce est le caractère 190 de Wingdings 2.
J'ai essayé de voir comment lui proposer cette puce mais à chaque fois ça bug.... :(

Bonjour

Bullet (qui correspond au bulles), à une propriété Font, avec celle-ci tu devrais t'en sortir.

Dans l'explorateur d'objet sélectionne BulletFormat, et tu auras les propriétés pour le formatage des listes à puces.

PS : J'ai enlevé le résolu, penses à le remettre si c'est bon ;)

Nouvel exemple ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Sub Puce()
    Dim sld As Slide
    Dim shp As Shape
    Dim i As Integer
 
    Set sld = ActivePresentation.Slides(1)
    Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 25, 25, 200, 300)
    shp.TextFrame.TextRange.Text = "toto" & vbCrLf & "titi"
 
    With shp.TextFrame.TextRange.Paragraphs(1)
        .IndentLevel = 1
        .ParagraphFormat.Bullet.Style = ppBulletHindiAlpha1Period
    End With
    With shp.TextFrame.TextRange.Paragraphs(2)
        .IndentLevel = 2
        With .ParagraphFormat.Bullet
            .Style = ppBulletAlphaLCParenBoth
            .Font.Name = "Wingdings 2"
            .Character = 190
        End With
    End With
 
 
End Sub

C'est cette partie qui est intéressante :

Code:

1
2
3
4
5
With .ParagraphFormat.Bullet
            .Style = ppBulletAlphaLCParenBoth
            .Font.Name = "Wingdings 2"
            .Character = 190
        End With

*
Le style n'est pas obligatoire dans ce cas ;)

Philippe

26/05/2009, 11h57
Graphiste Powerpoint

Merci, ça marche comme ça !
:ccool: