|
LES MÉTHODES D'UN GRAPHIQUES D'EXCEL
Je ne vous décris ici que quelques méthodes, celles que vous
manipulerez certainement pour mettre en forme votre graphique. Si vous
désirez consulter l'ensemble des méthodes reporter vous à l'aide
d'Excel.
|
|
.ApplyDataLabels(Type,
LegendKey, AutoText, HasLeaderLines)
applique des étiquettes de données |
| |
Type |
le type de d'étiquettes selon la
constante : xlDataLabelsShowNone (aucune),
xlDataLabelsShowValue (valeur du point), xlDataLabelsShowPercent (%
du total), xlDataLabelsShowLabel (catégorie du point),
xlDataLabelsShowLabelAndPercent(% du total et catégorie du point). |
| |
LegendKey |
True pour afficher l'étiquette à
côté du point. |
| |
AutoText |
True pour qu'Excel génère
automatiquement le texte de l'étiquette |
| |
HasLeaderLines |
True pour ajouter des lignes
d'étiquettes. |
|
Sub EtiquGraph()
Dim Graph As Chart
Set Graph = ActiveWorkbook.Worksheets(1).ChartObjects(1).Chart
Graph.SeriesCollection(1).ApplyDataLabels
xlDataLabelsShowLabel, True
End Sub
|
|
|
.ChartWizard(Source,
Gallery, Format, PlotBy, CategoryLabels, SeriesLabels, HasLegend,
Title, CategoryTitle, ValueTitle, ExtraTitle)
pour modifier un graphique, vous ne modifiez que les propriétés
disponibles dans cette méthode. |
| |
Source |
plage contenant la donnée source |
| |
Gallery |
Une de ces constantes : xlArea,
xlBar, xlColumn, xlLine, xlPie, xlRadar, xlXYScatter, xlCombination,
xl3DArea, xl3DBar, xl3DColumn, xl3DLine, xl3DPie, xl3DSurface,
xlDoughnut ou xlDefaultAutoFormat pour indiquer le type de
graphique |
| |
Format |
Un numéro de 1 à 10 indiquant le
format automatique selon le type. |
| |
PlotBy |
xlRows, les données sont en lignes
ou xlColumns, les données sont en colonnes |
| |
CategoryLabels |
le nombre de lignes ou de colonnes
contenant les étiquettes de catégories (de O au nombre maxi de
catégories ) |
| |
SeriesLabels |
le nombre de lignes ou de colonnes
contenant les étiquettes de séries(de O au nombre maxi de séries) |
| |
HasLegend |
True pour afficher une légende |
| |
Title |
Le texte du titre |
| |
CategoryTitle |
Le texte du titre de l'axe des
abscisses. |
| |
ValueTitle |
Le texte du titre de l'axe des
ordonnées. |
| |
ExtraTitle |
Le titre de l'axe des séries d'un
graphique 3D, le titre de l'axe des ordonnées secondaire d'un
graphique 2D. |
|
Sub ModifGraph()
Dim Graph As Chart
Set Graph = ActiveWorkbook.Worksheets(1).ChartObjects(1).Chart
Graph.ChartWizard , xlBar, , , , , True, ,
"Valeurs X", "Valeurs Y1 et Y2"
End Sub
|
|
|
.Export(FileName,
FilterName, Interactive)
exporte le graphique en tant qu'image. |
| |
FileName |
Nom du fichier exporté |
| |
FilterName |
Nom du filtre graphique, comme
indiqué dans la base de registre. |
| |
Interactive |
True pour afficher la boîte de
dialogue contenant les options concernant les filtres |
|
Sub ExportGraph()
Dim Graph As Chart
Set Graph = ActiveWorkbook.Worksheets(1).ChartObjects(1).Chart
Graph.Export "C:\Mes documents\graph1.gif", "gif"
End Sub
|
|
|
.Location(Where, Name)
déplace le graphique |
| |
Where |
Une de ces constantes
xlLocationAsNewSheet, xlLocationAsObject ou xlLocationAutomatic |
| |
Name |
le nom de la feuille qui doit
recevoir le graphique, obligatoire si xlLocationAsNewSheet ou
xlLocationAsObject |
|
Sub DeplaceGraph()
Dim Graph As Chart
Set Graph = ActiveWorkbook.Worksheets(1).ChartObjects(1).Chart
Graph.Location xlLocationAsNewSheet,
"Graphique"
End Sub
|
|
|
.SeriesCollection(Index)
renvoie l'objet représentant une série
et
.SeriesCollections
renvoie la collection d'objets représentant l'ensemble des séries. |
|
Sub
ModidSerie()
Dim Graph As Chart
Set Graph = ActiveWorkbook.Worksheets(1).ChartObjects(1).Chart
With Graph.SeriesCollection(1)
.Border.Color = RGB(0, 0, 255)
.MarkerStyle = xlMarkerStyleCircle
.MarkerSize = 20
.MarkerBackgroundColor = RGB(0, 255,
0)
.MarkerForegroundColor = RGB(255, 0,
0)
End With
End Sub
|
|
|
.SetBackgroundPicture(FileName)
définit l'image graphique de l'arrière plan du graphique |
| |
FileName |
Nom du fichier graphique |
|
Sub
FondGraph()
Dim Graph As Chart
Set Graph = ActiveWorkbook.Worksheets(1).ChartObjects(1).Chart
Graph.SetBackgroundPicture "c:\windows\Cristaux
bleus.bmp"
End Sub
|
|
|
.SetSourceData(Source,
PlotBy)
définit la plage source des données. |
| |
Source |
Plage source |
| |
PlotBy |
xlColumns ou xlRows qui indique la
façon dont les données sont disposées. |
|
Sub
ChangeSource()
Dim Graph As Chart
Set Graph = ActiveWorkbook.Worksheets(1).ChartObjects(1).Chart
Graph.SetSourceData Worksheets(1).Range("A1:B8")
End Sub
|
|
