Discussion :

[caro71ol]

Bonjour,
je code en vb.net afin de créer des graphiques sous Excel.

je voudrais mettre les étiquettes de données d'un graphique en camembert : dans l'option nombre-> catégorie -> général (ou standard). pour que les pourcentages apparaissent correctement, cependant je ne trouve pas comment faire en code vb.net.

voici une partie du code pour cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
            If pourcentage = True Then
                ch.Chart.ApplyDataLabels(Excel.XlDataLabelsType.xlDataLabelsShowPercent)
            Else
                ch.Chart.ApplyDataLabels()
            End If
            'ch.Chart.SeriesCollection(1).HasDataLabels = True
            If xlsfeuille.Cells(debuttab + 2, 2).value > 10 Then
                ch.Chart.SeriesCollection(1).datalabels.NumberFormat = "0"
                ' ch.Chart.SeriesCollection(1).datalabels.categoryType = "standard"
                'categorie generale
                'ch.Chart.SeriesCollection(1).datalabels.format=
            Else
                ch.Chart.SeriesCollection(1).datalabels.NumberFormat = "0.0"
            End If

et voici l'image en pièce jointe : le graphique de gauche est celui qui s'affiche mal et le graphique de droite + le paramétrage est ce que je veux obtenir.

merci à vous

[caro71ol]

j'ai fait comme ça mais je sais pas si c'est vraiment une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
            If pourcentage = True Then
                ch.Chart.ApplyDataLabels(Excel.XlDataLabelsType.xlDataLabelsShowPercent)
            Else
                ch.Chart.ApplyDataLabels()
                If xlsfeuille.Cells(debuttab + 2, 2).value > 10 Then
                    ch.Chart.SeriesCollection(1).datalabels.NumberFormat = "0"
                Else
                    ch.Chart.SeriesCollection(1).datalabels.NumberFormat = "0.0"
                End If
            End If