EXCEL ET VB6 !!!!!!!

Question

Salut &#224; tous,

Je me prends d&#233;s&#233;sp&#233;r&#233;ment la t&#234;te sur un graphique excel cr&#233;&#233; &#224; partir de VB6 afin de modifier le nom des courbes dans la l&#233;gende!!!!!!!!!!!!

Malgr&#233; tous mes essais, il me retourne toujours "series1","series2" et "series3". Comment dois-je faire pour r&#233;soudre mon probl&#232;me??????

Voici le bout de code qui me permet de cr&#233;er mon graph.

    Dim ch As ChartObject
    Dim a As Integer
    On Error Resume Next
    Set ch = Worksheets(1).ChartObjects.Add(5, 5, 500, 198) ' le graphique sera trac&#233; dans la pr&#233;mi&#232;re feuille du classeur
    On Error Resume Next
    ch.Chart.SetSourceData Source:=Worksheets(1).Range("A1:D" & j), _
    PlotBy:=xlColumns
    'xl3DPie : Camembert 3D
    'xlPie : Camembert
    'xlLine : Ligne
    'xl3DLine : Lignes 3D
    'xlColumn: Colonne
    'xl3DColumn: colonne 3D
    
    
    ch.Chart.ChartWizard Gallery:=xl3DLine, PlotBy:=xlColumns, HasLegend:=True, CategoryTitle:="Mois", ValueTitle:="CA en ?", Title:="Statistiques Du Chiffre d'Affaires des 12 Derniers Mois"
    'retirer la ligne de code suivante si l'on veut utiliser la gallerie graphique
    ch.Chart.ChartType = xlColumnClustered
    
    ch.Chart.CopyPicture xlScreen, xlBitmap, xlScreen
    With ch.Chart.Axes(xlValue, xlPrimary)
        .HasMajorGridlines = False
    End With

MERCI DE VOTRE AIDE.

Vb Lover · Answer

j'ai essay&#233; &#231;a pour modifier les noms, et &#231;a marche!



Dim ch As ChartObject    ' le m&#234;me "ch" que chez toi

Dim colS As SeriesCollection

Dim S As Series



   

    Set colS = ch.Chart.SeriesCollection

    For Each S In colS

        S.Name = "..." ' le nom que tu veux lui donner

    Next



bonne prog!

cs_jimmy28 · Answer

Merci beaucoup, impec ca marche.

Par contre j'aimerai pouvoir ajouter les lignes horizontales ( "gridlines" sous excel)......et bien s&#251;r je ne sais pas comment faire!!!!!!

Pouvez vous m'aider SVP????

Existe t il une liste des fonctions ainsi que des exemple de codes pour excel ou word utilisables sous vb6?

EXCEL ET VB6 !!!!!!!

2 réponses

Discussions similaires