OVH Cloud OVH Cloud

Numérotation des paragraphe en VBA

2 réponses
Avatar
Cervolent
Salut =E0 tous,

J'ai un souci de vb sous PPoint 2002. Je cr=E9=E9 une macro=20
automatisant un sommaire dans la 2eme diapo du mod=E8le.
Seulement lorsque j'utilise les commandes d'insertion de=20
N=B0 dans le VBA il me donne une puce en r=E9sultat.
losrque j'effectue l'enregistrement automatique voici ce=20
qu'il donne :
=20
With ActiveWindow.Selection.ShapeRange. _
TextFrame.TextRange.Paragraphs(Start:=3D3, _
Length:=3D1).ParagraphFormat.Bullet
.Visible =3D msoTrue
.UseTextFont =3D msoTrue
.UseTextColor =3D msoTrue
.Character =3D 8226
End With
Par contre =E0 l'=E9xecution il donne une puce POINT
Je souhaiterais un chiffre romain (comme on peut le faire=20
manuellement par le menu format - Puce et N=B0 - onglet N=B0 -
choix 4)
Comment faire Please ...? Je p=E8te les plombs ...

Merci d'avance

2 réponses

Avatar
Geo
Bonjour Cervolent


Salut à tous,

J'ai un souci de vb sous PPoint 2002. Je créé une macro
automatisant un sommaire dans la 2eme diapo du modèle.
Seulement lorsque j'utilise les commandes d'insertion de
N° dans le VBA il me donne une puce en résultat.
losrque j'effectue l'enregistrement automatique voici ce
qu'il donne :

With ActiveWindow.Selection.ShapeRange. _
TextFrame.TextRange.Paragraphs(Start:=3, _
Length:=1).ParagraphFormat.Bullet
.Visible = msoTrue
.UseTextFont = msoTrue
.UseTextColor = msoTrue
.Character = 8226
End With
Par contre à l'éxecution il donne une puce POINT
Je souhaiterais un chiffre romain (comme on peut le faire
manuellement par le menu format - Puce et N° - onglet N° -
choix 4)
Comment faire Please ...? Je pète les plombs ...


C'est curieux ce texte, l'enregistreur de macros ne serait plus notre
ami ?
remplace la ligne Character par :
.Style = ppBulletRomanUCParenRight
Il y a a plusieurs formes de numérotation en romain possible, tu
trouveras les valeur dans l'aide de
"Style, propriété"
Méfie toi que
Paragraphs(Start:=3, Length:=1).
ne numérote que le paragraphe 3.

--

A+

Avatar
Cervolent
Un gros merci Géo ... aide géniale.
Celle de PPoint comporte plusieurs "Style, Propriété"
mais j'ai pu trouver celui qui m'intéressait ...
"ppBulletRomanUCPeriod" Chiffres romains en majuscules
avec un point.

Encore merci ..