Créer macro pour redimensionner images ? Résolu/Fermé

Question

Bonjour,  
j'aimerai créé une macro dans word 2007 pour dimensionné des images déjà inséré dans le texte. 
Il faudrait que la macro définisse l'image avec les données suivantes: 
Hauteur: 6cm (toute en gardant les proportions) 
Habillage: image derrière le texte. 

Merci pour votre aide 


Configuration: Windows 7

m@rina · Answer

Bonjour,

Tes images ont elles un habillage (SHAPE) ou non (INLINESHAPE) ?

m@rina

Rdom85 · Answer

Bonjour M@rina,

Pour commencer merci pour ton attention.

Mes images sont brutes de sortie de l'appareil photo, donc aucun travail effectué dessus.

Par la suite il faudrait quelles soient : image derrière le texte. 

Dominique

m@rina · Answer

Bonjour,

Qu'elles sortent de l'appareil photo n'est pas le problème.
Pour l'instant, je ne sais toujours pas si elles ont un habillage...
Donc, partons du principe qu'il y a des images sans habillage, auquel cas, on commence par les convertir, puis on modifie la taille et on les place derrière le texte.

Sub images()
Dim image As InlineShape
Dim image2 As Shape
For Each image In ActiveDocument.InlineShapes
image.ConvertToShape
Next
For Each image2 In ActiveDocument.Shapes
image2.Height = CentimetersToPoints(6)
image2.WrapFormat.Type = wdWrapBehind
Next
End Sub

Rdom85 · Answer

Bonjour M@rina,

Super !!!!! ça correspond aux besoins a quelques détails prés a savoir:
-J'aimerais que la macro soit effective uniquement sur la photo sélectionné dans le document sans modifier les autres photos

- il faudrait également la compresser en 150ppp. 
je suppose que lorsque j'aurais besoin  de les compresser en 96ppp il me suffira de modifier simplement le nombre (150 en 96) de la ligne de commande pour créé une autre macro.

Dominique

m@rina · Answer

Bonsoir,

Pour simplifier, j'aimerais quand même bien savoir si l'image au départ a un habillage ou pas...

m@rina

Rdom85 · Answer

Désolé de cette omission, il n'y a pas d'habillage

Dominique

m@rina · Answer

Essaie ceci cette macro qui va fonctionner après avoir sélectionné une image :

Sub image()

On Error Resume Next
Selection.InlineShapes(1).ConvertToShape
On Error GoTo erreur
With Selection.ShapeRange
.Height = CentimetersToPoints(6)
.WrapFormat.Type = wdWrapBehind
End With

Exit Sub
erreur:  MsgBox "la sélection ne contient pas d'image"

End Sub

A titre indicatif, il n'y a pas de moyen de compresser des images par VBA. Ou alors des méthodes de contournement assez compliquées, qui passerait par l'export d'images, la compression et le réimport...
Alors qu'en réalité la compression est automatique dans les versions 2007/2010. Et sinon, il suffit de cliquer une seule fois dans la boîte de dialogue Compresser pour toutes les images à la fois.

De toutes façons, je te conseille de passer par exemple par Microsoft Office Picture Manager pour récupérer toutes ces photos et les compresser d'un seul coup et les copier vers un nouveau dossier afin de ne pas abimer les originaux. C'est très rapide et bcp plus performant du côté compression que Word.

m@rina

Rdom85 · Answer

Bonjour M@rina,

C'est Parfait. Ta macro fonctionne a merveille, tes conseils sont clairs concis et rapides de surcroît.

Sans vouloir volé de ta superbe, aurais tu un conseil pour m'initié au ligne de commande de macro Word-excel?

Sur la version 97 il était simple d'avoir une démarche intuitive d'apprentissage, il suffisait après avoir enregistré une macro, de regarder les lignes de commande créé automatiquement par Word-Excel.

Avec la version 2007 ce moyen d'apprentissage ne fonctionne pas dans de nombreux cas, Macro image par exemple.

Il semble qu'une connaissance de VB soit nécessaire, as tu un conseil?

Encore MERCI pour ton aide précieuse

Dominique

m@rina · Answer

Bonjour,

Il est vrai qu'avec les nouvelles versions, l'enregistrement des macros fonctionnent moins bien. Il a d'ailleurs été supprimé pour PowerPoint ce qui peut paraître ennuyeux, mais en fait il ne servait pas à grand chose, tellement il était mauvais. Et souvent les enregistrements étaient vides !

Je dirais que c'est en macrotant qu'on devient macroteur !! ;))

J'ai un article sur mon site qui se nomme le B A BA du VBA que tu peux consulter :
https://faqword.com/index.php/word/tutos/toutes-versions/615-le-b-a-ba-du-vba
et en particulier le dernier chapitre "Quelles sont les notions de base".

Une fois qu'on a bien compris ce qu'est un objet, une propriété, une méthode, une variable, etc. il faut se lancer. En commençant par des choses simples, puis plus évoluées.
Il faut aussi consulter les sites où l'on trouve beaucoup d'exemples. Sur mon site qui est spécialisés Word, et PowerPooint, tu trouveras pas mal d'exemples de macros pour ces deux appli. Pour Excel, il y en a tellement que je suis embêtée pour un citer un. Je peux quand même parler du site des fondus d'Excel : http://excelabo.net/ où tu trouveras des quantités de codes et de classeurs à télécharger.

Par contre, je pense qu'un bouquin est aussi bienvenu. Je te conseille celui-ci qui parle des macros pour toutes les applis d'Office :
https://www.amazon.fr/VBA-pour-Office-2007-applications/dp/2742982450/ref=cm_cr_pr_pb_t
co-écrit par Geo qui est comme moi un MVP Microsoft, et comme l'auteur du site excelabo.net.

m@rina

Rdom85 · Answer

Ceci explique cela, j'ai bien pris note.

Encore Merci

Dominique

Créer macro pour redimensionner images ?

10 réponses

Discussions similaires