Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 23:38:40

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

+ de logiciels à télécharger

1 464 925 membres
415 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 030 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

PERSONNALISER LES LABELS D'UN GRAPHIQUE EXCEL

Information sur la source

Catégorie :Graphique Niveau : Débutant Date de création : 28/02/2002 Date de mise à jour : 28/02/2002 14:37:14 Vu : 4 695

Auteur : jeannot45

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

Permet de personnaliser les étiquettes de données des points d'un graphique Excel pour la série sélectionnée

Source

Sub AfficheLabel()
'
' Compte le nombre de points de la série sélectionnée
NBpoints = ActiveChart.SeriesCollection(1).Points.Count
' Début de boucle pour la génération des labels
For i = 1 To NBpoints
With ActiveChart.SeriesCollection(1).Points(i)
' Active l'option affichage du label
.HasDataLabel = True
' Personnalise le texte et la mise en forme
.DataLabel.Text = Range("A" & i).Value
.DataLabel.Font.Size = "8"
End With
Next
End Sub

Sub AfficheLabel()
'
' Compte le nombre de points de la série sélectionnée
NBpoints = ActiveChart.SeriesCollection(1).Points.Count

' Début de boucle pour la génération des labels
For i = 1 To NBpoints
     With ActiveChart.SeriesCollection(1).Points(i)

     ' Active l'option affichage du label
        .HasDataLabel = True

     ' Personnalise le texte et la mise en forme
        .DataLabel.Text = Range("A" & i).Value
        .DataLabel.Font.Size = "8"

    End With
Next

End Sub