Insérer un chart dans word via vb.net

Version imprimable

Bonjour, dans le cadre de mon travail, je dois insérer un graphique dans un fichier Word via mon application VB.net.
Pour le moment, j'arrive à créer le graphique, l'implémenter, ajouter les titres et la légende, mais je n'arrive pas à modifier la couleur des lignes de mon graphique.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
'Ouvre le document word
Dim oWord As New Word.Application
oWord.Documents.Open(My.Application.Info.DirectoryPath & "\Rapports\Rapport Test.docx")
oWord.Visible = True
 
        Dim oDoc As Word.Document
        oDoc = oWord.ActiveDocument
        oDoc.Bookmarks.Item("GraphAnalyseTendance").Range.Select()
 
        Dim oChart As Word.Chart
        oChart = oDoc.Shapes.AddChart(Microsoft.Office.Core.XlChartType.xlLine).Chart
 
        Dim chartdata As Word.ChartData = oChart.ChartData
        Dim dataWorkbook As Excel.Workbook = CType(chartdata.Workbook, Workbook)
        Dim datasheet As Excel.Worksheet = CType(dataWorkbook.Worksheets(1), Worksheet)
        Dim tRange As Excel.Range = datasheet.Cells.Range("A1", "G" & Nb_Mesures_Optifive)
        Dim tbl1 As Excel.ListObject = datasheet.ListObjects("Tableau1")
 
        tbl1.Resize(tRange)
 
        datasheet.Cells.Range("B1").FormulaR1C1 = "Axe XCF"
        datasheet.Cells.Range("C1").FormulaR1C1 = "Axe YCF"
        datasheet.Cells.Range("D1").FormulaR1C1 = "Axe ZCF"
        datasheet.Cells.Range("E1").FormulaR1C1 = "Axe XAC"
        datasheet.Cells.Range("F1").FormulaR1C1 = "Axe YAC"
        datasheet.Cells.Range("G1").FormulaR1C1 = "Axe ZAC"
 
        For i = 4 To Nb_Mesures_Optifive + 3
            datasheet.Cells.Range("A" & i - 2).FormulaR1C1 = i - 3
            datasheet.Cells.Range("B" & i - 2).FormulaR1C1 = Math.Round(Val(Data_Optifive_Seconde(i, 0)), 3, MidpointRounding.AwayFromZero) 'XCF
            datasheet.Cells.Range("C" & i - 2).FormulaR1C1 = Math.Round(Val(Data_Optifive_Seconde(i, 1)), 3, MidpointRounding.AwayFromZero) 'YCF
            datasheet.Cells.Range("D" & i - 2).FormulaR1C1 = Math.Round(Val(Data_Optifive_Seconde(i, 2)), 3, MidpointRounding.AwayFromZero) 'ZCF
            datasheet.Cells.Range("E" & i - 2).FormulaR1C1 = Math.Round(Val(Data_Optifive_Premiere(i, 0)), 3, MidpointRounding.AwayFromZero) 'XAC
            datasheet.Cells.Range("F" & i - 2).FormulaR1C1 = Math.Round(Val(Data_Optifive_Premiere(i, 1)), 3, MidpointRounding.AwayFromZero) 'YAC
            datasheet.Cells.Range("G" & i - 2).FormulaR1C1 = Math.Round(Val(Data_Optifive_Premiere(i, 2)), 3, MidpointRounding.AwayFromZero) 'ZAC
        Next
 
        oChart.SetElement(Microsoft.Office.Core.MsoChartElementType.msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
        oChart.SetElement(Microsoft.Office.Core.MsoChartElementType.msoElementPrimaryValueAxisTitleRotated)
 
        Dim AxisY As Word.Axis = CType(oChart.Axes(Word.XlAxisType.xlValue, Word.XlAxisGroup.xlPrimary), Word.Axis)
        AxisY.HasTitle = True
        AxisY.AxisTitle.Text = "Erreurs en µm"
 
        Dim AxisX As Word.Axis = CType(oChart.Axes(Word.XlAxisType.xlCategory, Word.XlAxisGroup.xlPrimary), Word.Axis)
        AxisX.HasTitle = True
        AxisX.AxisTitle.Text = "Numéro de mesure"
 
        oChart.HasTitle = True
        oChart.ChartTitle.Font.Size = 18
        oChart.ChartTitle.Font.Color = Color.Black.ToArgb()
        oChart.ChartTitle.Text = "Analyse de tendance"
        oChart.ChartTitle.Format.Line.Visible = Microsoft.Office.Core.MsoTriState.msoTrue
        oChart.ChartTitle.Format.Line.ForeColor.RGB = Color.Black.ToArgb()
 
        Dim obj = oChart.SeriesCollection(1)
        Dim ser As Word.Series = TryCast(obj, Word.Series)
 
        'ser.MarkerStyle = Word.XlMarkerStyle.xlMarkerStyleSquare
        'ser.MarkerSize = 4
 
        'Mise à jour table des matières
        oWord.ActiveDocument.TablesOfContents(1).Update()
 
        'Enregistre le doucment et ferme word
        oWord.ActiveDocument.SaveAs(PathTemporaire & "\Mesures\Fichiers PDF\Rapport " & NomUtilisateur & ".docx")
        oWord.ActiveDocument.Close()
        oWord.Quit()

Donc tout ce code fonctionne, j'arrive également à mettre des balises et changer leur couleurs (code ci-dessous), mais pas à changer la couleur des 6 lignes du graphique.

Code:

1
2
3
4
5
Dim obj = oChart.SeriesCollection(1)
Dim ser As Word.Series = TryCast(obj, Word.Series)
 
ser.MarkerStyle = Word.XlMarkerStyle.xlMarkerStyleSquare
ser.MarkerSize = 4

Merci de votre aide.

15/12/2019, 23h00
Delaney

bonsoir,

Si c'est des lignes, vous pouvez essayer

Code:

Chart.SeriesCollection(n).Format.Line.Forecolor.RGB = RGB(X, Y, Z)

n : numéro de la série

Sincèrement
16/12/2019, 07h47
petit rabot

1 pièce(s) jointe(s)

Bonjour Elthorn, et merci de ton aide.
J'avais déjà essayé ta solution, mais après "SerieCollection(n)" je n'ai que les solutions de "Equals", "GetHashCode", "GetType" et "ToString" (voir photo ci-dessous)

Pièce jointe 524526
16/12/2019, 08h17
Delaney

Bonjour,

As tu ajouté Imports Microsoft.Office.Interop et bien mis en référence les "Microsoft Word object Library" et "Microsoft Excel object Library" (soit en COM soit en .net)?

pour moi non plus, il ne me le propose pas mais avec les références et les imports, VS accepte la fonction.

Sincèrement
16/12/2019, 09h22
petit rabot

1 pièce(s) jointe(s)
Après vérification, Imports Microsoft.Office.Interop est bien déclaré dans mon application, par contre pas les références "Microsoft Word object Library" et "Microsoft Excel object Library" (en COM).
Nouveau problème, une fois que je valide "Microsoft Word object Library", je me retrouve avec des erreurs dès la déclaration de mon fichier Word: (voir photo ci dessous)
Code:

1 2 Dim oWord As New Word.Application
Pièce jointe 524557
16/12/2019, 09h45
petit rabot

1 pièce(s) jointe(s)

En validant les références "Microsoft Word object Library" et "Microsoft Excel object Library" dans COM et en retirant les "Imports Microsoft.Office.Interop.Excel" et "Imports Microsoft.Office.Interop.Word" que j'avais mis dans mon projet, je peux maintenant déclarer mon fichier Word Dim oWord as New Word.Application , mais j'ai une nouvelle erreur lors de la création de mon graphique:

Pièce jointe 524565

Alors que c'est Visual Studio qui me propose de mettre ce code...
J'ai également essayer de revenir en arrière (en remettant mes références), mais j'ai toujours l'erreur.
16/12/2019, 13h24
petit rabot
Pour résumer, voici les références (Assemblys) qui sont actives dans mon application:
Code:

1 2 3 Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop.Word Imports Microsoft.Office.Interop.Excel
Et je ne peux toujours pas écrire cette ligne de code:

Code:

Chart.SeriesCollection(n).Format.Line.Forecolor.RGB = RGB(X, Y, Z)
16/12/2019, 17h09
Delaney

C'est bizarre car chez moi je dois mettre les deux pour ne pas avoir d'erreur : les références "Microsoft Word object Library" et "Microsoft Excel object Library" et les imports.
16/12/2019, 17h18
petit rabot

Citation:

Envoyé par Elthorn

C'est bizarre car chez moi je dois mettre les deux pour ne pas avoir d'erreur : les références "Microsoft Word object Library" et "Microsoft Excel object Library" et les imports.

J'ai essayé avec les deux activées, et là c'est le chantier...
Ensuite je suis revenu en arrière, et j'ai toujours des erreurs. Heureusement que j'avais une sauvegarde d'hier soir.
16/12/2019, 21h46
Delaney

1 pièce(s) jointe(s)

Bonsoir,

voici mon code test. Il ne soulève aucune erreur donc le référencement est correct.

Pièce jointe 524818

Sincèrement

Bonjour, j'ai testé cette partie de code que tu m'as envoyé hier soir:
Code:

1 2 3 4 Dim obj = oChart.SeriesCollection(1) Dim ser As Word.Series = TryCast(obj, Word.Series) ser.Format.Line.ForeColor.RGB = RGB(247, 247, 12)
Je n'ai pas d'erreur, mais cela n'a aucun effet...

17/12/2019, 10h00
petit rabot

2 pièce(s) jointe(s)
Voici les différentes références qui sont validées dans mon projet:

Assemblys ---> Framework
Pièce jointe 524921

Assemblys ---> Extensions
Pièce jointe 524922

Et rien en COM

Pour les imports:
Code:

1 2 3 4 5 6 7 Option Strict On Option Explicit On Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop.Word Imports Microsoft.Office.Interop.Excel Imports System.IO
17/12/2019, 15h19
Delaney
Bonjour
Citation:
Envoyé par petit rabot

Bonjour, j'ai testé cette partie de code que tu m'as envoyé hier soir:

Code:

1 2 3 4 Dim obj = oChart.SeriesCollection(1) Dim ser As Word.Series = TryCast(obj, Word.Series) ser.Format.Line.ForeColor.RGB = RGB(247, 247, 12)

Je n'ai pas d'erreur, mais cela n'a aucun effet...
Quand tu dis que cela n'a pas d'effet, c.a.d cela ne change pas la couleur des lignes ?

Pour les références, pourquoi mets-tu microsoft.office.interop.graph en référence ? normalement, interop.excel et word suffisent
Pour les options strict et explicit, je ne suis pas assez calé pour te dire si c'est OK

As tu toujours ton erreur d'ambiguité ?

ici , (bien que cela soit un post en VBA), ils préconisent d'utiliser border.color plutôt que line.color.

Il faut que je teste cela sur un fichier excel...

Sincèrement
17/12/2019, 15h43
Delaney

1 pièce(s) jointe(s)

rebonjour,

J'ai fait un test en mettant un graphe excel dans un fichier word (simple copier/coller) et j'ai appelé le fichier word et j'arrive à changer la couleur de la courbe. c'est bien Format.Line.ForeColor.RGB qu'il faut utiliser
Pièce jointe 525051

Par ailleurs j'ai testé microsoft.office.interop.graph avec les deux autres interop (excel et word) et il me provoque une erreur d’ambiguïté.

Sincèrement

ReBonjour Elthorn, et surtout MERCI!!!
Suite à ton dernier message, j'ai enfin la réponse:

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
29
 
        Dim obj1 = oChart.SeriesCollection(1)
        Dim ser1 As Word.Series = TryCast(obj1, Word.Series)
        ser1.Border.Color = RGB(249, 12, 37) 'rouge
 
 
        Dim obj2 = oChart.SeriesCollection(2)
        Dim ser2 As Word.Series = TryCast(obj2, Word.Series)
        ser2.Border.Color = RGB(80, 249, 12) 'vert
 
 
        Dim obj3 = oChart.SeriesCollection(3)
        Dim ser3 As Word.Series = TryCast(obj3, Word.Series)
        ser3.Border.Color = RGB(12, 19, 249) 'bleu
 
 
        Dim obj4 = oChart.SeriesCollection(4)
        Dim ser4 As Word.Series = TryCast(obj4, Word.Series)
        ser4.Border.Color = RGB(134, 12, 249) 'violet
 
 
        Dim obj5 = oChart.SeriesCollection(5)
        Dim ser5 As Word.Series = TryCast(obj5, Word.Series)
        ser5.Border.Color = RGB(12, 249, 245) 'turquoise
 
 
        Dim obj6 = oChart.SeriesCollection(6)
        Dim ser6 As Word.Series = TryCast(obj6, Word.Series)
        ser6.Border.Color = RGB(249, 120, 12) 'orange

Avec cela, j'ai pu changer la couleur de mes 6 courbes...
Encore MERCI

J'ai également supprimer la référence microsoft.office.interop.graph qui ne servait à rien, juste un test...

17/12/2019, 16h37
Delaney

Ah trop cool ! :yaisse2: