[VB.NET][EXCEL] Modifier le titre d'un graphique

Version imprimable

(Re)Bonjour !

C'est encore moi! Décidement ce début d'année est difficile...

Alors voilà : j'essais de créer un graphique en tant qu'objet sur une feuille excel.

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub GenererGraphes() Dim xlRange As Excel.Range xlRange = GetSheet(5).Range("$A$4:$B$14") xlBook.Charts.Add() With xlBook.ActiveChart .ChartType = XlChartType.xlColumnClustered .SetSourceData(xlRange) .Location(XlChartLocation.xlLocationAsObject, "Synthèse") .HasTitle = True .ChartTitle.Characters.Text = "UN GRAPHIQUE" .HasLegend = False .ApplyDataLabels(XlDataLabelsType.xlDataLabelsShowValue, False) End With End Sub
A la ligne ".HasTitle..." l'appli lève l'exception suivante : "Exception de HRESULT : 0x800401A8."

Si je commente cette ligne, c'est la ligne d'après qui lève l'exception.
Si je commente ces 2 lignes , c'est la ligne d'après qui lève l'exception.
Si je commente ces 3 lignes , c'est la ligne encore après qui lève l'exception.
et enfin, si je commente les 4 dernières lignes du bloc "With", ça marche!

Je ne comprends d'où vient cette erreur. Pour le code, je me suis inspiré d'une macro Excel (comme indiqué dans un des posts ;) )

Merci pour votre aide

02/01/2007, 16h02
bidou

c'est cette ligne qui doit poser problème
.Location(XlChartLocation.xlLocationAsObject, "Synthèse")

Par contre à contourner ca ne va pas être du gateau

rectification, ca doit marcher en créant un chartobject, comme dans l'exemple suivant :

Code:

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
28
Imports Microsoft.Office.Interop
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim AppExcel As Excel.Application = New Excel.Application
        AppExcel.SheetsInNewWorkbook = 6
        Dim xlBook As Excel.Workbook = AppExcel.Workbooks.Add()
        Dim xlSheet As Excel.Worksheet = CType(xlBook.Sheets(5), Excel.Worksheet)
        xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(10, 1)).FormulaLocal = "=Ligne()"
        xlSheet.Range(xlSheet.Cells(1, 2), xlSheet.Cells(10, 2)).FormulaLocal = "=Ligne()*colonne()"
        Dim xlRange As Excel.Range
        xlRange = xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(10, 2))
        Dim xlCharts As Excel.ChartObjects
        Dim xlChart As Excel.ChartObject
        xlCharts = CType(xlSheet.ChartObjects, Excel.ChartObjects)
        xlChart = xlCharts.Add(20.0F, 20.0F, 300.0F, 300.0F)
        With xlChart.Chart
            .ChartType = Excel.XlChartType.xlColumnClustered
            .SetSourceData(xlRange)
            .HasTitle = True
            .ChartTitle.Characters.Text = "UN GRAPHIQUE"
            .HasLegend = False
            .ApplyDataLabels(Excel.XlDataLabelsType.xlDataLabelsShowValue, False)
        End With
        AppExcel.Visible = True
    End Sub
 
End Class

Bonjour bidou!

Peux-tu me dire à quoi correspondent les paramètres indiqués dans le xlCharts.Add() ? [xlChart = xlCharts.Add(20.0F, 20.0F, 300.0F, 300.0F)]

Sinon pour mon problème, ce que j'ai fais c'est que j'ai sorti les lignes qui posaient problème du bloc "With", et maintenant ça marche :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub GenererGraphes()
 
        Dim xlRange As Excel.Range
        xlRange = GetSheet(5).Range("$A$4:$B$14")
 
        xlBook.Charts.Add()
        With xlBook.ActiveChart
            .ChartType = XlChartType.xlColumnClustered
            .SetSourceData(xlRange)
            .Location(XlChartLocation.xlLocationAsObject, "Synthèse")
         End With
 
        xlBook.ActiveChart.HasTitle = True
        xlBook.ActiveChart.ChartTitle.Text = "UN GRAPHIQUE"
        xlBook.ActiveChart.HasLegend = False
        xlBook.ActiveChart.ApplyDataLabels(XlDataLabelsType.xlDataLabelsShowValue, False)
 
    End Sub

Bizarre hein !!?? :roll:

27/11/2009, 17h01
kornetmuse

Il faut que ton chart soit créée pour pouvoir lui assigner un nom.

Je sais c'est con.. mais cette API ne finit plus de m'étonner.

Ce qui explique pourquoi ca ne marche pas dans ton bloc with. C'est un peu comme si tu était tjs dans la même instruction.

Bref c'est pourri..
29/11/2009, 17h49
Sankasssss

Citation:

Envoyé par kornetmuse

Il faut que ton chart soit créée pour pouvoir lui assigner un nom.

Je sais c'est con.. mais cette API ne finit plus de m'étonner.

Ce qui explique pourquoi ca ne marche pas dans ton bloc with. C'est un peu comme si tu était tjs dans la même instruction.

Bref c'est pourri..

:aie: déterrage de post qui date de janvier 2007 :mouarf1:
au moins ca pourra aider ceux qui tombe sur ce post par un moteur de recherche comme toi je supose...
Bienvenu sur developpez.com kornetmuse