Graphique dans VB
Résolu
cs_bename
Messages postés
48
Date d'inscription
samedi 18 juin 2005
Statut
Membre
Dernière intervention
24 mai 2007
-
20 déc. 2005 à 12:18
cs_bename Messages postés 48 Date d'inscription samedi 18 juin 2005 Statut Membre Dernière intervention 24 mai 2007 - 20 déc. 2005 à 12:38
cs_bename Messages postés 48 Date d'inscription samedi 18 juin 2005 Statut Membre Dernière intervention 24 mai 2007 - 20 déc. 2005 à 12:38
2 réponses
bibines
Messages postés
16
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
21 décembre 2005
20 déc. 2005 à 12:30
20 déc. 2005 à 12:30
Bonjour,
voici un exemple pour créer un graph (après tu peux changer le type de graph, les couleurs, police...)
With graph.Chart
.ChartWizard Source:=Source de ton graph, _
Gallery:=xl3DColumn, _
PlotBy:=xlRows, _
HasLegend:=True, _
title:=Titre de ton graph, _
CategoryLabels:=1, _
SeriesLabels:=1
'Mise en forme du graphique
.ChartTitle.Font.Size = 8.5
.Legend.Interior.Color = RGB(255, 255, 204)
.Legend.Font.Size = 7
If bas Then
.Legend.Position = xlLegendPositionBottom
.Axes(xlValue).TickLabels.Font.Size = 7
.Axes(xlCategory).TickLabels.Font.Size = 7
Else
.Axes(xlValue).TickLabels.Font.Size = 8
.Axes(xlCategory).TickLabels.Font.Size = 8
End If
.SeriesCollection(3).Interior.Color = RGB(255, 102, 0)
.ChartArea.Interior.Color = RGB(255, 255, 204)
.Floor.Interior.Color = RGB(192, 192, 192)
.Walls.Interior.Color = RGB(255, 255, 204)
.Axes(xlCategory).HasMajorGridlines = True
.Axes(xlValue).TickLabels.NumberFormat = "0.0%"
.Axes(xlValue).MajorGridlines.Border.Color = RGB(150, 150, 150)
.Axes(xlCategory).MajorGridlines.Border.Color = RGB(150, 150, 150)
.Rotation = 44
.Elevation = 44
End With
En espérant que ça te convienne
voici un exemple pour créer un graph (après tu peux changer le type de graph, les couleurs, police...)
With graph.Chart
.ChartWizard Source:=Source de ton graph, _
Gallery:=xl3DColumn, _
PlotBy:=xlRows, _
HasLegend:=True, _
title:=Titre de ton graph, _
CategoryLabels:=1, _
SeriesLabels:=1
'Mise en forme du graphique
.ChartTitle.Font.Size = 8.5
.Legend.Interior.Color = RGB(255, 255, 204)
.Legend.Font.Size = 7
If bas Then
.Legend.Position = xlLegendPositionBottom
.Axes(xlValue).TickLabels.Font.Size = 7
.Axes(xlCategory).TickLabels.Font.Size = 7
Else
.Axes(xlValue).TickLabels.Font.Size = 8
.Axes(xlCategory).TickLabels.Font.Size = 8
End If
.SeriesCollection(3).Interior.Color = RGB(255, 102, 0)
.ChartArea.Interior.Color = RGB(255, 255, 204)
.Floor.Interior.Color = RGB(192, 192, 192)
.Walls.Interior.Color = RGB(255, 255, 204)
.Axes(xlCategory).HasMajorGridlines = True
.Axes(xlValue).TickLabels.NumberFormat = "0.0%"
.Axes(xlValue).MajorGridlines.Border.Color = RGB(150, 150, 150)
.Axes(xlCategory).MajorGridlines.Border.Color = RGB(150, 150, 150)
.Rotation = 44
.Elevation = 44
End With
En espérant que ça te convienne
cs_bename
Messages postés
48
Date d'inscription
samedi 18 juin 2005
Statut
Membre
Dernière intervention
24 mai 2007
20 déc. 2005 à 12:38
20 déc. 2005 à 12:38
Je vous remercie énormement pour le code, ca m'a été utile.
Est ce que je peux avoir un ActiveX pour la réalisation des graphiques
Bename
Est ce que je peux avoir un ActiveX pour la réalisation des graphiques
Bename