Discussion :

[lixil]

Bonjour à tous,

Je cherche à modifier les couleurs séquentiel d'une carte Choroplèthe via vba sur powerpoint mais sans succès.



Voici le code ci-dessous :

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
Dim objShp As Shape
Set objPres = ActivePresentation
 
For Each objSld In objPres.Slides
 
    For Each objShp In objSld.Shapes
 
        If objShp.Name = "MAP" Then
            GoTo Suite:
        End If
 
    Next objShp
 
Suite:
 
objShp.chart.SetSourceData Source:="feuil1!A1:B40"
 
objShp.chart.SeriesCollection(1).GeoMappingLevel = xlGeoMappingLevelDataOnly
 
objShp.chart.ChartType = xlRegionMap
 
objShp.chart.SeriesCollection(1).RegionLabelOption = 0
 
objShp.chart.FullSeriesCollection.item(1).seriescolormaxgradientstop.stopcolor.rgb = rgb(255,255,0)
 
Next objSld

En mettant un espion sur objShp.chart.FullSeriesCollection

J'ai essayé objShp.chart.FullSeriesCollection.item(1).seriescolormaxgradientstop.stopcolor.rgb = rgb(255,255,0)
mais malheureusement ça ne fonctionne pas...




J'ai essayé le code ci-dessous pour modifier les couleurs mais c'est limité à une seule couleur ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objShp.chart.ChartColor = 7

J'ai trouvé également ceci pour modifier les couleurs de chaque point :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For i = 1 To 6
    objShp.chart.SeriesCollection(1).Points(i).Format.Fill.ForeColor.RGB = RGB(83, 171, 128)
Next

Est-ce que vous auriez des pistes à me donner ?

En vous remerciant par avance.

Lixil