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 :

Extraire et enregistrer une image d'une sheet sur un path


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2003
    Messages
    44
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2003
    Messages : 44
    Par défaut Extraire et enregistrer une image d'une sheet sur un path
    J'aimerais pouvoir enregistrer une image contenue dans la feuille sur HDD, j'arrive à y accéder via la classe 'shape' mais le membre désiré n'existe pas. QQ aurait une astuce SVP?

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Pourrais-tu nous mettre le code que tu as utilisé.

    Starec

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2003
    Messages
    44
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2003
    Messages : 44
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    For each Shape in sheet(1).shapes
     
     
        'la je voudrais qque chose comme
        ' si shape est une image:
            shape.SaveAs "c:\MonFichier" &  shape.name       
     
    Next
    Ou une astuce avec une autre classe. merci

  4. #4
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bonsoir

    Tu peux adapter cette procédure

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
       Dim nb As Byte
       Dim Sh As Shape
     
        'Définit le 1er shape de la feuille
        Set Sh = Worksheets("Feuil1").Shapes(1)
     
        'copie le shape
        Sh.CopyPicture
        'crée un graphique
        With ActiveSheet.ChartObjects.Add(0, 0, _
                            Sh.Width, Sh.Height).Chart
            .Paste 'colle l'image dans graphique
            ' enregistre le graphique au format gif
            .Export "C:\ImageTemp.gif", "GIF"
        End With
     
        nb = ActiveSheet.ChartObjects.Count
        'supprime le graphique
        ActiveSheet.ChartObjects(nb).Delete


    michel

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2003
    Messages
    44
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2003
    Messages : 44
    Par défaut
    Merci SilkyRoad pour ton code, c'est certainement cette voie qu'il faut prendre, cpdt il y a une petite modif a faire ( je ne sais pas comment ) car seules les dimensions des images s'exportent (si je puis dire) qd je les ouvre il n'y a qu'un cadre vide de la taille Sh.heigth X sh.width .

Discussions similaires

  1. [Débutant] Manipulation d'images : intégrer une image dans une image
    Par noscollections dans le forum VB.NET
    Réponses: 2
    Dernier message: 17/10/2014, 11h51
  2. Réponses: 1
    Dernier message: 15/04/2008, 20h23
  3. Insérer une légende dans une image avec une police plus petite
    Par Paulinho dans le forum Tableaux - Graphiques - Images - Flottants
    Réponses: 3
    Dernier message: 29/04/2006, 14h19
  4. copier une partie d'une image vers une autre
    Par gregcat dans le forum Langage
    Réponses: 1
    Dernier message: 14/04/2006, 13h39
  5. VBA : copier une image d'une feuille excel à une autre
    Par Equus dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 08/12/2005, 14h01

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