IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Problème compression image insérée par macro


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Novembre 2016
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Novembre 2016
    Messages : 58
    Par défaut Problème compression image insérée par macro
    Bonjour,

    J’ai une macro, faite avec l’enregistreur de macro, qui permet d’insérer une image dans EXCEL :
    ActiveSheet.Pictures.Insert(Chemin_Image).Select

    Cette macro fonctionne parfaitement, mais je viens de me rendre compte que la fonction "Compresser les images" ne fait rien avec les images insérées via la macro, alors qu’elle fonctionne bien avec la même image insérée via les fonctions du menu EXCEL (Insertion / Image …)


    Avez-vous solution à ce problème ?

    Merci

  2. #2
    Membre averti
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Novembre 2016
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Novembre 2016
    Messages : 58
    Par défaut
    j'ai fait un fichier exemple mais je n'arrive pas à le télécharger sur le site, j'ai le mesage d'erreur suivant Nom : PicPick_2025-06-12_11-22-46.jpg
Affichages : 62
Taille : 30,0 Ko

  3. #3
    Membre chevronné
    Inscrit en
    Avril 2008
    Messages
    270
    Détails du profil
    Informations personnelles :
    Localisation : Autre

    Informations forums :
    Inscription : Avril 2008
    Messages : 270
    Par défaut
    Bonjour kido63, le forum,

    la fonction "Compresser les images" ne fait rien
    Je t'avoue ne pas savoir comment contrôler si la fonction "Compresser les images" fait quelque chose ou pas...

    À l'aveugle, tu peux tester en insérant l'image avec ce code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveSheet.Shapes.AddPicture(Chemin_Image, False, True, 0, 0, -1, -1).Select
    A+

  4. #4
    Membre chevronné
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    317
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 317
    Par défaut
    Bonjour,
    Ou peut-être, non testé, avec AddPicture2, dont le dernier paramètre permet la compression?

  5. #5
    Membre averti
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Novembre 2016
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Novembre 2016
    Messages : 58
    Par défaut
    Bonjour mromain,

    Merci pour ton code, il fonctionne parfaitement.
    L’image s’insert au niveau de la cellule A1, donc si on se trouve ailleurs, on ne voit pas l’image arriver, saurais-tu comment faire pour qu’elle s’insert au niveau de la cellule sélectionnée ?

    Merci.

    (Si la fonction "Compresser les images" fonctionne, tu vas voir la qualité de l'image baisser nettement à l'œil en zoomant.)

  6. #6
    Membre chevronné
    Inscrit en
    Avril 2008
    Messages
    270
    Détails du profil
    Informations personnelles :
    Localisation : Autre

    Informations forums :
    Inscription : Avril 2008
    Messages : 270
    Par défaut
    Bonjour kido63, mapeh, le forum,

    comment faire pour qu'elle s'insert au niveau de la cellule sélectionnée
    Tu peux tester ainsi :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveSheet.Shapes.AddPicture(Chemin_Image, False, True, ActiveCell.Left, ActiveCell.Top, -1, -1).Select
    A+

  7. #7
    Membre averti
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Novembre 2016
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Novembre 2016
    Messages : 58
    Par défaut
    Parfait

    Merci mapeh et mromain

Discussions similaires

  1. [XL-365] Poids d'une image dimensionnée par macro
    Par retraite83 dans le forum Macros et VBA Excel
    Réponses: 14
    Dernier message: 24/02/2022, 14h40
  2. [XL-2013] Supression Image Shapes par macro
    Par stef3700 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/05/2017, 12h33
  3. [XL-2010] Compression des images dans excel par macro
    Par monfiston dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 09/05/2014, 23h29
  4. [XL-2003] gestion image par macro
    Par essais dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 06/11/2009, 08h33
  5. [WORD] Inclusion d'une image (.tif) par macro
    Par guejo dans le forum VBA Word
    Réponses: 1
    Dernier message: 08/02/2006, 11h16

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo