Macro pour photo sur word

Résolu/Fermé
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 12 oct. 2019 à 15:08
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 12 oct. 2019 à 16:02
Bonjour,
J'essaie de réduire la grandeur de mes photos sur word avec une macro.
Des photos téléchargées pas de problème,mes photos persos pas moyen de réduire.
Ou est le problème?
https://www.cjoint.com/c/IJmnhYS755h
Merci pour votre aide
Cordialement


Configuration: Windows / Firefox 69.0
A voir également:

3 réponses

m@rina Messages postés 20075 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 11 272
12 oct. 2019 à 15:31
Bonjour,

Ton fichier a été décelé comme virussé dangereux et supprimé illico par mon antivirus...

Je n'ai donc pas eu le temps de regarder. A toutes fins utiles, c'est peut être une question d'image avec ou sans habillage. Regarde ici :
https://faqword.com/index.php/word/objets-graphiques/884-comment-appliquer-la-meme-taille-a-toutes-les-images-d-un-document

m@rina
1
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
12 oct. 2019 à 15:46
Bonjour
Merci pour ta réponse et ton aide
Comprend pas le virussage,mais bon pas grave.
J'ai appliqué cette macro

Sub taille_images()
Dim image as InlineShape
For Each image In ActiveDocument.InlineShapes
image.Width = CentimetersToPoints(4)
Next
End Sub

Cela fonctionne bien
2 questions
dans word comment avoir un raccourci pour déclencher la macro
Comment procéder pour redimensionner plusieurs photos d'un coup (si c'est possible)
Crdlt
0
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
12 oct. 2019 à 16:02
Re bonjour

C'est bon j'ai résolu les 2 problèmes
Bonne continuation
Cordialement
0