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

  1. #1
    Membre du Club Avatar de ylemasson
    Homme Profil pro
    Consultant informatique
    Inscrit en
    août 2006
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : août 2006
    Messages : 46
    Points : 69
    Points
    69

    Par défaut Copier / Coller graphique depuis Excel, puis manipuler l'objet collé

    Bonjour

    Je copie / colle des graphiques dans une boucle depuis Excel vers Word en VBA (avec collage en format méta).
    Jusqu'ici tout va bien, mais ensuite j'aimerai directement disposer de l'objet que je viens de coller dans word, pour le manipuler (changer sa taille, etc... )

    en résumé :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    WordDoc.Bookmarks(signet).Select
    WordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
    Placement:=wdInLine, DisplayAsIcon:=False
    et ensuite, j'ai tenté :


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
        Set myGr = WordDoc.Application.ActiveWindow.Selection
        Set ILS = myGr.InlineShapes(1)
        ILS.Width = Largeur
    mais ça plante. l'objet Selection est soit mal utilisé, soit l'objet sélectionné n'est pas celui qui est collé..

    et là, j'ai beau chercher je ne trouve pas.

    Merci de votre aide.
    Yves LE MASSON

    Compagnons Codeurs
    !
    Réseau d'experts indépendants en informatique, Pour les artisans et les TPE
    de France et d'ailleurs ! A la découverte des talents !!

  2. #2
    Expert éminent sénior

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    3 957
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 3 957
    Points : 10 088
    Points
    10 088
    Billets dans le blog
    27

    Par défaut

    Citation Envoyé par ylemasson Voir le message
    Bonjour,

    A tester :
    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 ILS as Word.Shape
     
       With WordDoc
            ' Avant collage
             NbInLineShapes = .InlineShapes.Count
     
            '....
     
            ' Après collage
            If .InlineShapes.Count > 0 Then
                Set ILS = .InlineShapes(NbInLineShapes + 1).ConvertToShape
                With ILS
                     .Width = Largeur
                     '....
                End With
                Set ILS = Nothing
            End If
       End With
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  3. #3
    Membre du Club Avatar de ylemasson
    Homme Profil pro
    Consultant informatique
    Inscrit en
    août 2006
    Messages
    46
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : août 2006
    Messages : 46
    Points : 69
    Points
    69

    Par défaut

    Merci beaucoup, votre formulation fonctionne très bien !
    Yves LE MASSON

    Compagnons Codeurs
    !
    Réseau d'experts indépendants en informatique, Pour les artisans et les TPE
    de France et d'ailleurs ! A la découverte des talents !!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [PPT-2003] Macro : copier coller graphiques/tableau Excel-Ppt
    Par gandalf20000000 dans le forum VBA PowerPoint
    Réponses: 2
    Dernier message: 21/04/2010, 16h12
  2. [XL-2003] Copier-coller valeur plante Excel
    Par laurentabj dans le forum Macros et VBA Excel
    Réponses: 21
    Dernier message: 21/08/2009, 16h26
  3. [XL-2007] Copier coller une ligne excel sur autre feuille avec conditions
    Par amstelveen dans le forum Excel
    Réponses: 5
    Dernier message: 11/05/2009, 18h54
  4. Copier/coller MATLAB vers Excel
    Par mimic50 dans le forum MATLAB
    Réponses: 3
    Dernier message: 05/02/2009, 16h47
  5. Réponses: 1
    Dernier message: 19/12/2006, 16h12

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