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

Powerpoint Discussion :

Images dans powerpoint


Sujet :

Powerpoint

  1. #1
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2013
    Messages
    144
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Juin 2013
    Messages : 144
    Points : 73
    Points
    73
    Par défaut Images dans powerpoint
    Bonjour,
    Avec une macro, je récupère des graphiques dans un classeur excel que j'enregistre en images et que je colle ensuite dans des Slides powerpoint.

    Mais il s'avère que ces images apparaissent floues. Je voudrais savoir si quelqu'un pourrait me donner la raison de cela, s'il y'en ai effectivement.

    Je me suis d'abord dit que cela doit être lié à la résolution de mes images, mais mes images ont une forte résolution, donc devraient apparaitre clairement dans les Slides.

    Une Idée?
    Merci d'avance.

  2. #2
    Expert éminent sénior

    Profil pro
    Conseil, Formation, Développement - Indépendant
    Inscrit en
    Février 2010
    Messages
    8 397
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Conseil, Formation, Développement - Indépendant

    Informations forums :
    Inscription : Février 2010
    Messages : 8 397
    Points : 16 225
    Points
    16 225
    Par défaut
    Bonjour

    Pourquoi ne pas faire un copier collage spécial image ?

    La sauvegarde depuis Excel au format image peut se faire de diverses manières (tu n'as pas pécisé celle choisie) mais est rarement de très bonne qualité...
    Chris
    PowerQuery existe depuis plus de 13 ans, est totalement intégré à Excel 2016 &+. Utilisez-le !

    Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson.
    Confucius

    ----------------------------------------------------------------------------------------------
    En cas de résolution, n'hésitez pas cliquer sur c'est toujours apprécié...

  3. #3
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2013
    Messages
    144
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Juin 2013
    Messages : 144
    Points : 73
    Points
    73
    Par défaut J'ai l'impression que cette discussion sera déplacée
    Je l'ai postée ici parce que je pense c'es plus un problème d'image dans powerpoint qu'un problème de code VBA.


    En fait j'ai plusieurs graphiques dans mon classeur excel, je les enregistre tous en fichiers image avant de les intégrer à mes slides. Voici le code d'enregistrement

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Sub enregistrerGraphique2()
        'Enregistre le graphique contenu dans la feuille Graph2
        Dim graphique As Chart
        Set graphique = ThisWorkbook.Charts("Graph2")
     
        graphique.Export Filename:="Chemin d'enregistrement d'image\Graph2.png", Filtername:="PNG"
    End Sub
    Et après je les intègre comme ceci

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    Dim laPresentationPPT As PowerPoint.Presentation : Dim PPT As PowerPoint.Application 
     
    Set PPT = CreateObject("PowerPoint.Application")
    Set laPresentationPPT = PPT.Presentations.Open("chemin fichier source powerpoint.ppt")
    laPresentationPPT.Slides("Slide2").Shapes(5).Fill.UserPicture "Chemin d'enregistrement d'image\Graph2.png"
    Mais l'image s'enregistre bien et est de bonne qualité, c'est au moment de l'intégration dans powerpoint qu'elle devient floue.

  4. #4
    Expert éminent sénior

    Profil pro
    Conseil, Formation, Développement - Indépendant
    Inscrit en
    Février 2010
    Messages
    8 397
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Conseil, Formation, Développement - Indépendant

    Informations forums :
    Inscription : Février 2010
    Messages : 8 397
    Points : 16 225
    Points
    16 225
    Par défaut
    Bonjour

    Ce type de code devrait donner une meilleure qualité
    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
    20
    21
    Sub enregistrerGraphique2()
        'Enregistre le graphique contenu dans la feuille Graph2
        Dim laPresentationPPT As PowerPoint.Presentation: Dim PPT As PowerPoint.Application
        Dim graphique As Chart
        Set graphique = ThisWorkbook.Charts("Graph2")
        Set PPT = CreateObject("PowerPoint.Application")
        Set laPresentationPPT = PPT.Presentations.Open("chemin fichier source powerpoint.ppt")
     
        graphique.CopyPicture
        With laPresentationPPT.Slides("Slide2")
            .Select
            .Shapes.Paste.Select
        End With
        'Placement
        With PPT.ActiveWindow.Selection
            .ShapeRange.Width = 500
            .ShapeRange.Height = 300
            .ShapeRange.Align msoAlignCenters, True
            .ShapeRange.Align msoAlignMiddles, True
        End With
    End Sub
    Chris
    PowerQuery existe depuis plus de 13 ans, est totalement intégré à Excel 2016 &+. Utilisez-le !

    Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson.
    Confucius

    ----------------------------------------------------------------------------------------------
    En cas de résolution, n'hésitez pas cliquer sur c'est toujours apprécié...

  5. #5
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2013
    Messages
    144
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Juin 2013
    Messages : 144
    Points : 73
    Points
    73
    Par défaut oops
    Ca m'affiche un message d'erreur sur cette ligne

    en me disant,
    Membre de méthode ou de données introuvable.
    En fait j'ai chercher, mais il n'existe pas la méthode Paste pour les objets Shapes

  6. #6
    Expert éminent sénior

    Profil pro
    Conseil, Formation, Développement - Indépendant
    Inscrit en
    Février 2010
    Messages
    8 397
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Conseil, Formation, Développement - Indépendant

    Informations forums :
    Inscription : Février 2010
    Messages : 8 397
    Points : 16 225
    Points
    16 225
    Par défaut
    Bonjour

    J'ai utilisé Office 2010 et cela fonctionne sur ma présentation.

    La commande copy ne doit pas être déplacée dans le code car sinon on effectivement des erreurs
    Chris
    PowerQuery existe depuis plus de 13 ans, est totalement intégré à Excel 2016 &+. Utilisez-le !

    Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson.
    Confucius

    ----------------------------------------------------------------------------------------------
    En cas de résolution, n'hésitez pas cliquer sur c'est toujours apprécié...

  7. #7
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2013
    Messages
    144
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Juin 2013
    Messages : 144
    Points : 73
    Points
    73
    Par défaut
    Je ne comprends pas quand tu dis ne doit pas être déplacé dans le code.
    Que veux-tu dire?

  8. #8
    Expert éminent sénior

    Profil pro
    Conseil, Formation, Développement - Indépendant
    Inscrit en
    Février 2010
    Messages
    8 397
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Conseil, Formation, Développement - Indépendant

    Informations forums :
    Inscription : Février 2010
    Messages : 8 397
    Points : 16 225
    Points
    16 225
    Par défaut
    Re

    La ligne ne doit pas être placée plus haut dans le code.

    Ma présentation est au format pptx : le ppt peut fonctionner différemment, quoique ma présentation enregistrée en ppt continue à ne pas poser problème...
    Chris
    PowerQuery existe depuis plus de 13 ans, est totalement intégré à Excel 2016 &+. Utilisez-le !

    Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson.
    Confucius

    ----------------------------------------------------------------------------------------------
    En cas de résolution, n'hésitez pas cliquer sur c'est toujours apprécié...

Discussions similaires

  1. Définir emplacement copie d'image dans powerpoint
    Par lozeba dans le forum VBScript
    Réponses: 1
    Dernier message: 11/06/2014, 20h05
  2. [PPT-2007] Insérer une image dans un tableau sous Powerpoint 2007
    Par mygwel dans le forum Powerpoint
    Réponses: 4
    Dernier message: 29/05/2009, 14h53
  3. Copie images de WORD dans PowerPoint en VBA (Office 2003 et VB6)
    Par Jacques13170 dans le forum VBA PowerPoint
    Réponses: 3
    Dernier message: 10/03/2009, 07h47
  4. Types des images insérés dans powerpoint
    Par imarkahann dans le forum Général VBA
    Réponses: 0
    Dernier message: 13/11/2007, 12h38
  5. [VBA-PP] macro pour insérer des images dans PowerPoint
    Par mashpro dans le forum VBA PowerPoint
    Réponses: 4
    Dernier message: 01/08/2006, 23h56

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