Depuis PowerPoint, je cherche à modifier certaines caractéristiques d'un graphe inséré dans un feuille Excel.
C'est dans les étoiles que ça ne "passe" pas. Bug sur With Gr ou With xlFL1
Sans ces lignes, tout se passe normalement... mais je tiens à ces lignes
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
Sub Test()
Dim Limage As String
Dim XlApp as variant, Dim XlCL1 as variant, Dim XLFL1 as variant
    Set XlApp = Excel.Application
    Set XlCL1 = XlApp.Workbooks.Add
    Set XLFL1 = XlCL1.ActiveSheet
    XlApp.ScreenUpdating = False
        Dim Gr '... As quoi ? *********
        With XLFL1.ChartObjects.Add(0, 0, 1280, 1024).Chart
            Set Gr = XLFL1.Shapes(XLFL1.Shapes.Count)
 
'*******************************************
            'With Gr.Border 'Testé ChartArea, Chart.ChartArea, activechart, etc
                '.ColorIndex = 1
                '.Weight = 1
                '.LineStyle = 1
            'End With
            'With Selection.Interior
                '.ColorIndex = 1
                '.PatternColorIndex = 2
                '.Pattern = 1
            'End With
        End With
'*******************************************
 
        XlApp.DisplayAlerts = False
        XlCL1.Close False
        XlApp.DisplayAlerts = True
    XlApp.ScreenUpdating = True
    XlApp.Quit
    Set XLFL1 = Nothing
    Set XlCL1 = Nothing
    Set XlApp = Nothing
End sub
Aussi bien avec Gr que xlFL1, j'ai testé ChartArea, Chart.ChartArea, activechart, activechart.ChartArea, selection..., etc

Pour la version en cours (With XLFL1.ActiveChart.ChartArea.Border)
le message d'erreur est plus grave (...) : "Propriété non gérée par cet objet"
Mais j'ai tout eu.
Si quelqu'un a quelque chose qui fonctionne, je pourrai passer une bonne nuit.
Par avance, merci