Discussion :

[sihammaster]

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:

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

Merci de m'aider.

[sihammaster]

Voila la solution:

Code :

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

1
2
 xlWorkSheet.ChartObjects(1).Left = xlWorkSheet.Columns(1).Left
        xlWorkSheet.ChartObjects(1).Top = xlWorkSheet.Rows(pos).Top