Définition objet

[sauce31]

Bonjour,

J'ai crée une fonction qui va permettre de colorier en dégradé des graphiques.

Mon problème est de savoir comment définir la selection de l'objet (qui peut etre définit par : SeriesCollection(1) ou SeriesCollection(1).Points(1)).

Je ne sais pas comment la définir dans mes paramètres et comment l'appeler.

Mon code :

Private Sub Degrade(slt As Selection, couleur As Double, sens As Integer, scheme As Integer)

 Call Degrade(slt, (26112), (2), (43))

avec slt définit en une selection.

J'ai essayé en définissant slt comme selection, SeriesCollection ou Points mais rien ne marche.

Merci par avance de votre aide

 

[pierrejean]

Re : Définition objet

Re

Teste

Private Sub Degrade(slt As [COLOR=blue]Range[/COLOR], couleur As Double, sens As Integer, scheme As Integer)

 

[sauce31]

Re : Définition objet

Le problème est aussi de définir slt.

si je prend le cas d'une seriesCollection(1).Points(1),je tappe ca :

slt = ActiveChart.SeriesCollection(1).Points(1).Select

Et ca ne marche pas

 

[pierrejean]

Re : Définition objet

Re

Il serait plus simple de poster un fichier exemple de ce que tu souhaites plutot que de poster une question par ligne de code (sans le contexte)

 

[sauce31]

Re : Définition objet

Mon fichier est trop lourd.

Mais voici le bout de code qui interesse ( le graphique est un camembert)

 Dim slt As Range
         
        'couleur des 2 zones du camembert
        Set slt = ActiveChart.SeriesCollection(1).Points(1)
        
        Call Degrade(slt, (26112), (2), (43))

La fonction est :

Private Sub Degrade(slt As Range, couleur As Long, sens As Integer, scheme As Integer)

     With slt.Interior
          .Pattern = xlSolid
          .PatternColorIndex = xlAutomatic
          .Color = couleur
      End With
      With Selection
              .Fill.TwoColorGradient msoGradientHorizontal, sens
              .Fill.BackColor.SchemeColor = scheme
              .Fill.Visible = msoTrue
              DoEvents
      End With
End Sub

Merci de ton aide

 

[pierrejean]

Re : Définition objet

Re

Un fichier exemple est une copie du fichier integral duquel on a oté les elements non indispensables pour etudier le probleme
Dans ton cas quelques données et un graphique camenbert ne devraient pas (une fois zippé si necessaire) depasser les 48 k

 

[sauce31]

Re : Définition objet

        cpt = cpt + 1
        Set Diapo = PptDoc.Slides.Add(Index:=cpt, Layout:=12)
        PptDoc.Slides(cpt).Select
                
        ActiveSheet.Shapes.AddChart.Select
        Set Selection1 = Range(Cells(4, k), Cells(5, k))
        ActiveChart.ChartType = xlPie
        ActiveChart.SetSourceData Source:=Selection1
        Set Selection1 = Range(Cells(4, k), Cells(5, k))
        ActiveChart.SeriesCollection(1).XValues = Range(Cells(4, 3), Cells(5, 3))
        ActiveChart.Legend.Select
    
        'legende en haut
        Selection.Position = xlTop
        Selection.Width = 141.748
        Selection.Left = 100
        Selection.Top = 0
        Selection.Font.Size = 14
        ActiveChart.SeriesCollection(1).Points(2).Select

        'cassure de 12%
        ActiveChart.SeriesCollection(1).Points(2).Explosion = 12
        
        Dim slt As Range
         
        'couleur des 2 zones du camembert
        'selection 1ere partie du camembert
        ActiveChart.SeriesCollection(1).Points(1).select
        Set slt = ActiveChart.SeriesCollection(1).Points(1)
        Call Degrade(slt, (26112), (2), (43))