Plusieurs photo avec légende
Résolu
sleepy00
Messages postés
17719
Date d'inscription
Statut
Membre
Dernière intervention
-
sleepy00 Messages postés 17719 Date d'inscription Statut Membre Dernière intervention -
sleepy00 Messages postés 17719 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un dossier avec une centaine de photo
j'aimerai les mettre en forme dans un document word avec 2 photo par page et sous chaque photo la numérotation "photographie 1" "photographie 2"...
Jusqu'a maintenant j'insère toute les photos en une fois et par chance elle se mettent 2 par page...
et ensuite insérer une légende, puis je sélectionne les photos une à une pour répéter insérer un légende.
mais quand il y a beaucoup de photo ça prend du temps (j'ai essayé légende automatique mais ca ne donne pas de résultat)
surtout quand je suis obligé de diminuer la taille de la photo
quelqu'un connait il une solution pour faire une insertion de plusieurs photo et que cela se mette automatiquement en dessous "photographie 1" "photographie 2"...
et si possible toute les photos à la même taille prédéfinie ?
Merci de votre aide.
J'ai un dossier avec une centaine de photo
j'aimerai les mettre en forme dans un document word avec 2 photo par page et sous chaque photo la numérotation "photographie 1" "photographie 2"...
Jusqu'a maintenant j'insère toute les photos en une fois et par chance elle se mettent 2 par page...
et ensuite insérer une légende, puis je sélectionne les photos une à une pour répéter insérer un légende.
mais quand il y a beaucoup de photo ça prend du temps (j'ai essayé légende automatique mais ca ne donne pas de résultat)
surtout quand je suis obligé de diminuer la taille de la photo
quelqu'un connait il une solution pour faire une insertion de plusieurs photo et que cela se mette automatiquement en dessous "photographie 1" "photographie 2"...
et si possible toute les photos à la même taille prédéfinie ?
Merci de votre aide.
1 réponse
-
Bonjour,
Pour ajouter une légende à chacune des photos, il te faut une petite macro. Pour commencer il faut savoir qu'il y a deux types d'image : les InlineShape (les images alignées sur le texte) et les Shape (les images flottantes, qui ont donc un habillage).
La macro dépend donc de la façon dont tu as inséré tes images. La macro suivante iest valable pour les images sans habillage :
Sub images()
'macro écrite par m@rina
Dim image As InlineShape
CaptionLabels.Add Name:="Photographie"
For Each image In ActiveDocument.InlineShapes
image.Select
Selection.InsertCaption Label:="Photographie", Position:=wdCaptionPositionBelow
Next
End Sub
Si tu veux mettre toutes tes images au même format, il faut aussi une macro. J'en ai une ici :
https://faqword.com/index.php/word/faq-word/objets-graphiques/884-comment-appliquer-la-meme-taille-a-toutes-les-images-d-un-document
m@rina
Il n'y a pas de honte à ne pas tout savoir mais s'attribuer le travail des autres est ce qu'il y a de plus méprisable... Merci de citer vos sources !-
-
-
Bonjour,
Il n'y a pas besoin de s'y connaître en macro, puisque je l'ai écrite ! ;) Et comme je trouve ta question intéressante, je l'ai ajoutée sur mon site, en donnant les deux versions, et en mettant une condition pour que ça ne s'applique qu'aux images et pas à tous les objets graphiques (comme SmartArt, graphique, etc.) :
https://faqword.com/index.php/word/faq-word/objets-graphiques/919-comment-ajouter-une-legende-numerotee-a-toutes-les-images-d-un-document
m@rina -
-
Je suis étonnée, car il suffit de donner la largeur et la photo s'ajuste en fonction de cette largeur en conservant ses proportions.
J'ai toujours vu ce comportement. Maintenant, peut être que la taile des photos a été modifiée manuellement. Auquel cas, le mieux est peut être de choisir le changement de taille en choisissant une échelle par rapport à la taille d'origine (les deux derniers cas sur mon site).
-