« Macros-commandes VBA/Création de Graphique » : différence entre les versions

Contenu supprimé Contenu ajouté
Ligne 219 :
Ci-dessous le code utilisé :
<br />
<sourcesyntaxhighlight lang="vb">
Sub CreerGraphiqueNvelleFeuille()
 
Ligne 254 :
End Sub
</syntaxhighlight>
</source>
 
<br />
Ligne 271 :
<br />
 
<sourcesyntaxhighlight lang="vb">
Sub CreerGraphiqueFeuilleDonnees()
 
Ligne 306 :
End Sub
</syntaxhighlight>
</source>
<br />
 
Ligne 372 :
=== Manipuler la taille du graphique ===
Il vous est possible de changer la taille du graphique, pour cela, il faut utiliser ce langage :
<sourcesyntaxhighlight lang="vb">
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
Ligne 381 :
.ScaleHeight 1.26, msoFalse, msoScaleFromTopLeft
End With
</syntaxhighlight>
</source>
 
Ce code va vous permettre d'agrandir votre graphique.
Ligne 391 :
Il est possible de changer les couleurs des courbes d'un graphique, pour cela il faut utiliser le code suivant (mettre la courbe en rouge par exemple) :
 
<sourcesyntaxhighlight lang="vb">
With ActiveChart.SeriesCollection(1)
.Border.Color = RGB(255, 0, 0)
End with
</syntaxhighlight>
</source>
 
Voici en langage VBA, les codes couleurs pour les principales couleurs utilisées :
 
<sourcesyntaxhighlight lang="vb">
RGB(0, 0, 0) : noir
RGB(255, 255, 255) : blanc
Ligne 405 :
RGB(0, 255, 0) : vert
RGB(0, 0, 255) : bleu
</syntaxhighlight>
</source>
 
=== Manipuler les axes d'un graphique ===
Ligne 416 :
<br />
 
<sourcesyntaxhighlight lang="vb">
' Axe des catégories
With .Axes(xlCategory)
Ligne 438 :
End With
</syntaxhighlight>
</source>
<br />
Ce code permet :
Ligne 448 :
Ce qui donne :
<br />
<sourcesyntaxhighlight lang="vb">
Sub CreerGraphiqueFeuilleDonnees()
 
Ligne 503 :
End Sub
</syntaxhighlight>
</source>
<br />
 
Voici ce que nous obtenons en manipulant le graphique : [[Fichier:Graphique ventes noël manipulation des axes.PNG|thumb|Annexe 7 : Graphique ventes noël manipulation des axes]]
Ligne 513 ⟶ 512 :
Pour ajouter un texte sur le graphique, il faut utiliser le langage suivant :
 
<sourcesyntaxhighlight lang="vb">
ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 89.25, 21.75).Select
Selection.Characters.Text = "Le nom du texte que vous voulez mettre"
</syntaxhighlight>
</source>
 
=== Modifier le nom du graphique ===
Ligne 522 ⟶ 521 :
Pour modifier le nom du graphique, il faut utiliser le langage suivant :
 
<sourcesyntaxhighlight lang="vb">
ActiveChart.SeriesCollection(1).Name = "Nouveau nom du graphique"
</syntaxhighlight>
</source>
 
=== Remplacer le graphique par une image ===
Ligne 531 ⟶ 530 :
Voici le code nécessaire ci-dessous :
 
<sourcesyntaxhighlight lang="vb">
Sub RemplaceGraphiqueParImage()
 
Ligne 541 ⟶ 540 :
End Sub
</syntaxhighlight>
</source>
 
== Annexes ==