« Macros-commandes VBA/Création de Graphique » : différence entre les versions
Contenu supprimé Contenu ajouté
Dépeuplement de Catégorie:Pages utilisant des balises source obsolètes |
Dépeuplement de Catégorie:Pages utilisant des balises source obsolètes |
||
Ligne 219 :
Ci-dessous le code utilisé :
<br />
<
Sub CreerGraphiqueNvelleFeuille()
Ligne 254 :
End Sub
</syntaxhighlight>
<br />
Ligne 271 :
<br />
<
Sub CreerGraphiqueFeuilleDonnees()
Ligne 306 :
End Sub
</syntaxhighlight>
<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 :
<
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
Ligne 381 :
.ScaleHeight 1.26, msoFalse, msoScaleFromTopLeft
End With
</syntaxhighlight>
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) :
<
With ActiveChart.SeriesCollection(1)
.Border.Color = RGB(255, 0, 0)
End with
</syntaxhighlight>
Voici en langage VBA, les codes couleurs pour les principales couleurs utilisées :
<
RGB(0, 0, 0) : noir
RGB(255, 255, 255) : blanc
Ligne 405 :
RGB(0, 255, 0) : vert
RGB(0, 0, 255) : bleu
</syntaxhighlight>
=== Manipuler les axes d'un graphique ===
Ligne 416 :
<br />
<
' Axe des catégories
With .Axes(xlCategory)
Ligne 438 :
End With
</syntaxhighlight>
<br />
Ce code permet :
Ligne 448 :
Ce qui donne :
<br />
<
Sub CreerGraphiqueFeuilleDonnees()
Ligne 503 :
End Sub
</syntaxhighlight>
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 :
<
ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 89.25, 21.75).Select
Selection.Characters.Text = "Le nom du texte que vous voulez mettre"
</syntaxhighlight>
=== Modifier le nom du graphique ===
Ligne 522 ⟶ 521 :
Pour modifier le nom du graphique, il faut utiliser le langage suivant :
ActiveChart.SeriesCollection(1).Name = "Nouveau nom du graphique"
</syntaxhighlight>
=== Remplacer le graphique par une image ===
Ligne 531 ⟶ 530 :
Voici le code nécessaire ci-dessous :
<
Sub RemplaceGraphiqueParImage()
Ligne 541 ⟶ 540 :
End Sub
</syntaxhighlight>
== Annexes ==
|