[WD-2007] Légende sous des illustrations

[Flaguette]

Bonjour,

Je fais des copier/collage spécial en format jpg d'illustrations provenant d'un fichier PowerPoint dans un rapport Word. Je désire mettre sous chacune une légende "Figure x.x blablabla". J'aimerais que cette légende soit dans un cadre de même largeur que l'image afin de pouvoir centrer la légende par rapport à l'image mais la plupart du temps, le texte s'insère "sans boîte", ce qui complique la donne (l'image est alignée sur le texte qui est indenté. Quand je centre sur la page, ça ne centre pas par rapport au texte, ce qui n'est pas très joli).

Qu'est-ce que je fais de pas correct?

Merci!

[Heureux-oli]

Salut,

J'ai peut-être pas tout compris.
Si tu fais des tables de deux lignes et une colonne.
Dans une cellule, l'image et dans la seconde la légende.
Tout reste ensemble et tu peux centre la table comme bon te semble.
Pour la légende, un simple copier coller de la première légende pour avoir une incrémentation sur tout le document.
comme la numérotation des légendes est un champ, Ctrl + A suivi de F9.

[Flaguette]

Merci! Comme d'habitude, tu es très rapide!

L'idée de tableaux n'est pas mauvaise... mais j'ai pas fini d'en créer! Je dois avoir près d'une quarantaine de graphiques à insérer!!!

À tout hasard, je joins une page avec les deux types de légendes. C'est celle du bas que j'aimerais créer. J'ai eu beau tout essayer, rien à faire, je ne parviens pas à la recréer. Je soupçonne la façon dont elles ont été créées en Ppt d'être à l'origine de cette situation mais personne ne semble savoir qui a créé ce fichier.

*Edit : Bon, ça ne semble pas vouloir fonctionner . Je vais joindre le fichier ce soir de la maison!

[Heureux-oli]

Salut,

Tu joins quoi où ?

[Flaguette]

Ça ne semble pas fonctionner du travail. Je vais recommencer ce soir de la maison!

[Heureux-oli]

Envoyé par Flaguette

Ça ne semble pas fonctionner du travail. Je vais recommencer ce soir de la maison!

Ton soir sera ma nuit !

[Flaguette]

Oui, je sais, malheureusement! Mais je ne peux pas faire autrement! . Depuis ce matin que je bûche sur ce document. En plus, il est plein de "zolbs *"

* zolbs = texte manuscrit illisible. Vient de "20 lbs" mal écrit et ainsi transcrit - à l'époque héroique des machines à écrire - par ma soeurette qui a dû retaper sa page!

[Heureux-oli]

Salut,

Pour la table et la légende ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub AjouterTable()
Dim oTbl As Table
Dim myFld As Field
 
Set oTbl = Selection.Tables.Add(Range:=Selection.Range, numrows:=2, numcolumns:=1)
oTbl.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
oTbl.Cell(2, 1).Select
Selection.Collapse direction:=wdCollapseStart
Set myFld = ActiveDocument.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, Text:="SEQ Figure")
myFld.Code.Text = "SEQ Figure"
 
 
Set oTbl = Nothing
Set myFld = Nothing
 
End Sub

La table est ajoutée au point d'insertion.