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

VBA PowerPoint Discussion :

Modification de données de graphiques sans liaison [PPT-2016]


Sujet :

VBA PowerPoint

  1. #1
    Membre du Club
    Homme Profil pro
    Contrôle de Gestion
    Inscrit en
    juin 2018
    Messages
    84
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Contrôle de Gestion

    Informations forums :
    Inscription : juin 2018
    Messages : 84
    Points : 48
    Points
    48
    Par défaut Modification de données de graphiques sans liaison
    Bonjour à tous,

    J'aimerais savoir s'il est possible de mettre à jour des données d'un graphique qui n'est pas lié à un tableau excel.

    Le graphique modèle a été créé directement dans powerpoint. Je voulais donc savoir si on avait la possibilité en vba de mettre à jour ce graphique avec de nouvelles données comme on pourrait le faire manuellement comme suit:

    - Selection du graphique;
    - Menu contextuel : Création ;
    - Modifier les données ;
    - Et encore modifier les données (et non modifier les données dans Excel).


    Merci d'avance pour vos retours.

  2. #2
    Membre du Club
    Homme Profil pro
    Contrôle de Gestion
    Inscrit en
    juin 2018
    Messages
    84
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Contrôle de Gestion

    Informations forums :
    Inscription : juin 2018
    Messages : 84
    Points : 48
    Points
    48
    Par défaut
    C'est bon j'ai trouvé
    Il m'a fallut 6 heures mais c'est bon.

    Désolé pour le dérangement.

    Si ça intéresse :

    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
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
     
    Sub TEST_ShowData_FromPPT()
     
    Dim cht As Chart
    Dim chtData As ChartData
    Dim cTable As Excel.ListObject
     
    Dim objPres As Presentation
    Dim objSld As Slide
    Dim objShp As Shape
     
        Set objPres = ActivePresentation
     
        For Each objSld In objPres.Slides
            ' parcourt des formes des diapositives
            For Each objShp In objSld.Shapes
                ' on test si c'est un objet graph            
                    If objShp.Type = msoChart Then
                        Set cht = objShp.Chart
                        Set chtData = cht.ChartData
                        chtData.Activate
     
                        With chtData
     
                            .Workbook.Sheets(1).Cells(2, 2).Value = 4000
     
                            .Workbook.Close
     
                            Exit Sub
     
                            'Set cTable = chtData.Workbook.Worksheets(1).ListObjects(1)
     
                        End With
     
                    End If
     
            Next objShp
        Next objSld
     
    End Sub

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

Discussions similaires

  1. [XL-2010] Copie feuille avec tableaux sans liaisons et graphiques en images
    Par brioche31 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 18/10/2017, 14h59
  2. [Lazarus] Ajout et modification de donnée sans DBnavigator
    Par bm10 dans le forum Lazarus
    Réponses: 7
    Dernier message: 15/07/2015, 12h39
  3. Réponses: 2
    Dernier message: 13/07/2012, 14h08
  4. [WD-2007] modification des données d'un graphique
    Par Australia dans le forum VBA Word
    Réponses: 3
    Dernier message: 24/02/2011, 19h27
  5. Réponses: 8
    Dernier message: 27/12/2010, 18h08

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