Modification Graphique PowerPoint (potm) via Excel VBA

Version imprimable

Bonjour le forum,

Commençons par poser le contexte de mon problème. Je travaille sur une macro existante qui, à partir de données et de modèles de graphiques stockés dans un fichier .potm, crée plusieurs fichiers .ppt et tout une batterie de graphiques.
Cette macro fonctionnait parfaitement sous Excel 2010, mais certaines méthodes ne fonctionnent plus sous Excel 2016. Je suis en train de mettre à jour cette macro, mais un bug résiste toujours, et malgré plusieurs heures dessus, je ne me l'explique toujours pas...

Le bug exact retourné est : La méthode Top de l'objet PlotArea a échoué.

Et voici les lignes de code concernées :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim Mychart As PowerPoint.Chart Set oPPTapp = CreateObject("PowerPoint.Application") Set Mychart = oPPTapp.ActivePresentation.Slides(ID_Slide).Shapes(Nom_shape_Graphe).Chart Mychart.SetSourceData Source:="='Feuil1'!" & Range("$A$1:$B$" & WS.Range("A10000").End(xlUp).Row).Address, PlotBy:=xlColumns Temporis 7000 Mychart.Refresh Temporis 5000 Mychart.PlotArea.Select Temporis 20000 Mychart.PlotArea.Top = 7 Mychart.PlotArea.Height = 307 Mychart.Refresh
...qui bug donc sur la ligne

Code:

Mychart.PlotArea.Top = 7

Après vérif sur le site de Microsoft, la méthode existe toujours bien sous 2016, je la retrouve via l'enregistreur de macro, j'ai testé différentes options que j'ai glané ci et là sur le net, ... mais rien n'y fait.
Je me pencherais plus vers la définition ou la déclaration de certains objets ? Mais si c'est le cas, une subtilité m'échappe...

Merci de votre aide !! :)

07/08/2018, 08h56
discus23

Bonjour,

Je me permets un UP de ce sujet, n'ayant toujours pas résolu ce problème....

Merci !
07/08/2018, 09h10
halaster08

Bonjour,

Mis a part la fonction temporis que mon Excel ne reconnait pas, j'ai testé ta macro sur un fichier de test et elle fonctionne
Du coup que fait ta fonction temporis ? es-tu sur qu'elle n'interfère pas avec la définition de mychart ?
07/08/2018, 09h27
discus23

Merci pour ce premier retour,
Je ne suis pas le créateur initial de cette macro, donc je n'en connais pas tous les détails.
Mais cette fonction Temporis est une fonction fleuve utilisée pour laisser du temps à Excel d'effectuer tous les traitements nécessaire.

Si cela marche de ton coté, est-ce que cela veut dire que je dois plutôt regarder du coté du fichier potm ?

EDIT : J'ai testé sans cette fonction Temporis, mais cela ne fonctionne toujours pas...
07/08/2018, 11h13
halaster08

Code:

Set Mychart = oPPTapp.ActivePresentation.Slides(ID_Slide).Shapes(Nom_shape_Graphe).Chart

Dans le code que tu as posté il n'y a pas les affectations de tes variables ID_Slide et Nom_shape_Graphe, quels sont leur valeur au moment de l'erreur ? est-ce bien que tu attendais?

Oui de ce côté là, tout est ok.

Lorsque je teste ces lignes seules sur le fichier .potm d'origine, cela fonctionne bien...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub autochart()
Dim Mychart As PowerPoint.Chart
 
Set oPPTapp = CreateObject("PowerPoint.Application")
 
Set Mychart = oPPTapp.ActivePresentation.Slides(8).Shapes("GRAPHE_01").Chart
 
With Mychart.PlotArea
    .Select
    .Top = 7
End With
 
End Sub

Le code complet de cette partie est un peu plus long, mais je ne vois pas ce qui pourrait interférer :

Code:

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
 
If Left(Nom_shape_Graphe, 7) = "GRAPHE_" Then
        Set Mychart = oPPTapp.ActivePresentation.Slides(ID_Slide).Shapes(Nom_shape_Graphe).Chart
 
            Set gChartData = Mychart.ChartData
            Temporis 10000
            gChartData.Activate
            Set gWorkBook = gChartData.Workbook
            Set gWorkSheet = gWorkBook.Worksheets(1)
 
            gWorkSheet.Activate
            gWorkSheet.Range(gWorkSheet.Cells(3, 1), gWorkSheet.Cells(100, 100)).ClearContents
            gWorkSheet.Range(gWorkSheet.Cells(1, 3), gWorkSheet.Cells(50, 100)).ClearContents
 
            For I = 2 To WS.Cells.SpecialCells(xlCellTypeLastCell).Row
                gWorkSheet.Cells(I, 1) = WS.Cells(I, 1)
                gWorkSheet.Cells(I, 2) = CDbl(MATRICE_CALC(1, 3, I - 2))
 
            Next I
            gWorkSheet.Activate
            gWorkSheet.ListObjects("Tableau1").Resize Range("$A$1:$B$" & WS.Range("A10000").End(xlUp).Row)
 
            Mychart.SetSourceData Source:="='Feuil1'!" & Range("$A$1:$B$" & WS.Range("A10000").End(xlUp).Row).Address, PlotBy:=xlColumns
 
            'Temporis 7000
            'Mychart.Refresh
            'Temporis 5000
            Mychart.PlotArea.Select
            'Temporis 20000
            Mychart.PlotArea.Top = 7
            Mychart.PlotArea.Height = 307
 
            Mychart.Refresh
 
End If

07/08/2018, 13h05
halaster08

Citation:

Envoyé par discus23

Le code complet de cette partie est un peu plus long, mais je ne vois pas ce qui pourrait interférer :

Moi non plus.
A ta place j'essayerais de mettre la ligne Mychart.PlotArea.Top = 7 à différents endroit de la macro pour essayer de voir où se trouve le problème.
Notamment avant et après cette ligne (23ème): Mychart.SetSourceData vu que tu y modifie la source du graphique.
28/08/2018, 13h53
discus23

Je me permets un nouveau UP sur ce sujet car ni je ne comprends pourquoi cela bug en l'état, ni je n'ai la moindre piste de solution en vue...après des jours et de jours de recherche!