Créer macro pour redimensionner images ?
Résolu
Rdom85
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
Adakh -
Adakh -
A voir également:
- Vba redimensionner image
- Image iso - Guide
- Acronis true image - Télécharger - Sauvegarde
- Reduire taille image - Guide
- Légender une image - Guide
- Image gratuite - Guide
10 réponses
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.
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
Essaie ceci cette macro qui va fonctionner après avoir sélectionné une image :
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
Bonsoir,
Pour simplifier, j'aimerais quand même bien savoir si l'image au départ a un habillage ou pas...
m@rina
Pour simplifier, j'aimerais quand même bien savoir si l'image au départ a un habillage ou pas...
m@rina
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
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
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
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