Mettre un point sur graphe par VBA
Fermé
rocklive.didi
-
17 nov. 2010 à 18:36
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 - 18 nov. 2010 à 12:04
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 - 18 nov. 2010 à 12:04
A voir également:
- Mettre un point sur graphe par VBA
- Point de restauration - Guide
- Point de suite word - Guide
- Mettre des points sur une carte - Guide
- Comment inserer une video dans un power point - Guide
- Point vert messenger ✓ - Forum Facebook Messenger
1 réponse
ccm81
Messages postés
10903
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 novembre 2024
2 427
18 nov. 2010 à 12:04
18 nov. 2010 à 12:04
bonjour
pour mettre un point sur un graphique, il n'y a pas besoin de macro.
1. Le graphique IMC doit etre du type nuage de points
2. Mettre les données taille, poids sur deux cellules contigues
3. Ajouter comme série la plage taille-poids
4. dont la modification mettra a jour le point sur le graphique
si tu veux a tout prix une macro qui montre/cache le point
RQ. Il n'y a qu'un graphique dans ma feuille d'où le ChartObjects(1) et la série du point est appelée "essai"
voir le fichier joint
http://www.cijoint.fr/cjlink.php?file=cj201011/cijgoFqhjK.xls
bonne suite
pour mettre un point sur un graphique, il n'y a pas besoin de macro.
1. Le graphique IMC doit etre du type nuage de points
2. Mettre les données taille, poids sur deux cellules contigues
3. Ajouter comme série la plage taille-poids
4. dont la modification mettra a jour le point sur le graphique
si tu veux a tout prix une macro qui montre/cache le point
' pour cacher le point de la série "essai" Private Sub CommandButton1_Click() With ChartObjects(1).Chart.SeriesCollection("essai") .Border.LineStyle = xlNone .MarkerStyle = xlNone End With End Sub ' pour montrer le point de la série "essai Private Sub CommandButton2_Click() With ChartObjects(1).Chart.SeriesCollection("essai") .Border.Weight = xlHairline .Border.LineStyle = xlNone .MarkerBackgroundColorIndex = 40 .MarkerForegroundColorIndex = 3 .MarkerStyle = xlCircle .Smooth = True .MarkerSize = 5 .Shadow = False End With End Sub
RQ. Il n'y a qu'un graphique dans ma feuille d'où le ChartObjects(1) et la série du point est appelée "essai"
voir le fichier joint
http://www.cijoint.fr/cjlink.php?file=cj201011/cijgoFqhjK.xls
bonne suite