Bonjour,
Je voudrais afficher un graphe sous forme de column sur excel à partir de vb.net:
j'aimerais eviter déterminer le positionnement de mon graphe et le placer à partir d'une cellule définie et non pas par Top, Left.... je connais pas a l'avance le positionnement de mon graph parce que j'affiche un tableau des données d'une table et apres la derniere ligne ajouté j'affiche mon graphe.
voila mon code:
Merci de m'aider.
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
16
17
18
19
20
21
22
23
24
25
26
27 Dim oChart As Excels.Chart Dim MyCharts As Excels.ChartObjects Dim MyCharts1 As Excels.ChartObject MyCharts = xlWorkSheet.ChartObjects 'set chart location MyCharts1 = MyCharts.Add(180, 80, 400, 250) mon probleme est la; on peut eviter ca?? oChart = MyCharts1.Chart With oChart 'set data range for chart Dim chartRange As Excels.Range chartRange = xlWorkSheet.Range("F5:F" & R & ",I5:I" & R & ",J5:J" & R) .SetSourceData(chartRange) 'set how you want to draw chart i.e column wise or row wise .PlotBy = Excels.XlRowCol.xlColumns 'set data lables for barssss .ApplyDataLabels(Excels.XlDataLabelsType.xlDataLabelsShowNone) 'set legend to be displayed or not .HasLegend = True 'set legend location .Legend.Position = Excels.XlLegendPosition.xlLegendPositionRight 'select chart type .ChartType = Excels.XlChartType.xlColumnClustered 'chart title .HasTitle = True ''.ChartTitle.Text = "titre" 'set titles for Axis values and categories End With
Partager