Discussion :

[Uranne-jimmy]

Bonjour,
Je me bas avec le msdn (qui a un système de recherche particulier tout de même) pour trouver de quoi m'aider sans succès.
J'ai des graphiques sur Excel, je fais un .copypicture() sur eux et je les balances à des endroits spécifiques de mon fichier Word. Mais ils apparaissent très gros, et moi je veux modifier leurs tailles.
Seulement je n'arrive pas à accéder à ces graphiques (normalement maintenant des bitmap), ce ne sont pas des shapes, et je ne vois pas d'autres objets qui pourrait correspondre pour faire ce maudit changement de taille.

Please help me ! ça doit pas être si compliqué.

[MABROUKI]

bonjour

ce ne sont pas des shapes, et je ne vois pas d'autres objets qui pourrait correspondre pour faire ce maudit changement de taille

Helas ce sont des InlineShapes....!!!
La mise à l'echelle se fait en pour-cent des width & height courants

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
 
Imports WD = Microsoft.Office.Interop.Word
Imports XL = Microsoft.Office.Interop.Excel
Imports OffCore = Microsoft.Office.Core
 
Public Class frmPictureFromExcelToWord
    Dim myFile As String
    Dim appWord As WD.Application
    Dim oDoc As WD.Document
    Dim appExcel As XL.Application
    Dim oWorkBook As XL.Workbook
    Dim oSheet As XL.Worksheet
 
    Private Sub frmPictureFromExcelToWord_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'init Word
        appWord = New WD.Application
        oDoc = appWord.Documents.Open(myFile)
        appWord.Visible = True
 
        'init Excel
        appExcel = New XL.Application
        oWorkBook = appExcel.Workbooks.Open(myFile)
        oSheet = oWorkBook.Worksheets(1)
        appExcel.Visible = True
 
        'Copy du Chart 1
        Dim grafic1 As XL.Chart = oSheet.Shapes().Item(1).Chart
        grafic1.CopyPicture(XL.XlPictureAppearance.xlScreen,
                              XL.XlCopyPictureFormat.xlPicture,
                              XL.XlPictureAppearance.xlScreen)
 
        'Paste dans le range  selectionne  du doc...
        Dim rngDoc As WD.Range = oDoc.ActiveWindow.Panes(1).Selection.Range()
 
        rngDoc.Select()
        rngDoc.Paste()
 
        'mise a l'echelle de l'unique shape (un chart)
        Dim shps As WD.InlineShapes = rngDoc.InlineShapes
        shps(1).Select()
        shps(1).LockAspectRatio = OffCore.MsoTriState.msoTrue
        Dim percent As Single = 25 'c'est un pourcentage du width et height courants
        shps(1).ScaleWidth = percent
        shps(1).ScaleHeight = percent
 
 
    End Sub

bon code...

[Uranne-jimmy]

J'aurais pu chercher un moment, je n'aurais jamais trouvé ou tilter sur InlineShapes ...
Merci beaucoup, je peux me remettre sur cette tâche.

[Uranne-jimmy]

J'ai encore un soucis concernant ce inlinescale :

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
For k = 5 To 1 Step -1
                        Try
                            xlrecep.Worksheets(j).chartobjects("graphique " & k).CopyPicture()
                            Select Case j
                                Case 3
                                    doc.Bookmarks.Item("SURN").Range.PasteAndFormat(WdPasteDataType.wdPasteShape)
                                    If (k = 2) Or (k = 3) Or (k = 4) Or (k = 5) Then
                                        p = doc.InlineShapes.Count
                                    End If
                                Case 4
                                    doc.Bookmarks.Item("EAU").Range.PasteAndFormat(WdPasteDataType.wdPasteShape)
                                    If k = 2 Or k = 3 Then
                                        p = doc.InlineShapes.Count
                                    End If
                                Case 5
                                    doc.Bookmarks.Item("DMSO").Range.PasteAndFormat(WdPasteDataType.wdPasteShape)
                                    If k = 2 Or k = 3 Then
                                        p = doc.InlineShapes.Count
                                    End If
                            End Select
                            doc.InlineShapes(p).ScaleHeight = 50
                            doc.InlineShapes(p).ScaleWidth = 50
                        Catch
                        End Try
                    Next

Ceci est mon code. Je m'en sert pour copier et redimensionner des graphiques, sachant que dans le premier cas le redimensionnement dois avoir lieu sur les 4 derniers graphiques et sur les deux autres cas uniquement les deux derniers (dans mon word 3 zones de graphique, un avec 5 graph, les deux autres avec 3)
C'est peut être une erreur de ma part, mais j'ai beau avoir un code qui marche théoriquement, les graphiques ne sont pas tous redimensionné comme souhaité. Je vois deux lieux ou sa pourrait pêcher : le select case que je gère mal ? ou alors le l'index p du inlineshapes qui ne se comporte pas comme je le pense (j'ai dans l'esprit que le dernier index de la collection correspond au dernier shape ajouté)

Dans l'histoire, seul les deux derniers graphes de chaque séries sont modifiés.

[MABROUKI]

re
Je viens de voir ton post avec un peu de retard....

sachant que dans le premier cas le redimensionnement dois avoir lieu sur les 4 derniers graphiques et sur les deux autres cas uniquement les deux derniers (dans mon word 3 zones de graphique, un avec 5 graph, les deux autres avec 3)

Helas 2 et 3 ne sont pas les 2 derniers d'apres ton code...
Les 2 derniers sont dans l' ordre du worsheet: 4 et 5 (l'iteration etant negative) et portant en plus sur 5 graphiques dans le worsheet...

Il y a peut etre confusion à cause de l'teration à rebours dans l 'ordre des graphiques du classeur excel...

Ton code est bon sauf que dans Word il faut toujours respecter ces 3 regles d'airain :
-preciser la Portee ou Objet Cible :Range ou Bookmark ou Selection parce ces objets se chauvechent dans Word...
-Selectionnner l'objet..
-ensuite Travailler dessus..
Tu travailles sur Word.Document.InlinesShapes c.a.d tous les InlineShapes du doc...mauvais et tu te noies dans les indices des shapes....

Au lieu simplement de cibler les bonnees portees:
- BookMark.Range ,BookMark.Range.Paste et BookMark.Range.InlineShape(un seul shape que tu scales en vol)...

ton code code revu (en fontion des "2 derniers"):

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
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
69
70
71
 
  Private Sub btnCopyPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopyPaste.Click
        If oDoc Is Nothing Then Return
        If oSheet Is Nothing Then Return
 
 
        'CIBLER toujours les Ranges surlequels on travaille 
        Dim rngDoc As WD.Range = oDoc.Range
 
        'On cible le RANGE du BookMark selectionnne
        'qui contient l'UNIQUE InlineShape "pasté"
        Dim rngBKM As WD.Range
 
        'ECHELLE
        Dim sc As Single = 50.0
 
        'INIT le range du doc
        rngDoc = oDoc.Range
        For j = 1 To 5
            Try
                For k = 5 To 1 Step -1
                    'VIDE LA POUBLLE
                    Clipboard.Clear()
                    oWorkBook.Worksheets(j).ChartObjects("Graphique " & k).CopyPicture()
                    Select Case j
                        Case 3
                            rngBKM = rngDoc.Bookmarks.Item("SURN").Range
                            rngBKM.Select()
                            rngBKM.Paste()
                        If k = 2 Or k = 3 Or k = 4 Or k = 5 Then
                                'perform scaling in place
                                rngBKM.InlineShapes.Item(1).ScaleHeight = sc
                                rngBKM.InlineShapes.Item(1).ScaleWidth = sc
                            End If
                        Case 4
                            Clipboard.Clear()
                            oWorkBook.Worksheets(j).ChartObjects("Graphique " & k).CopyPicture()
                            rngBKM = rngDoc.Bookmarks.Item("EAU").Range
                            rngBKM.Select()
                            rngBKM.Paste()
                            ' HALTUS !!!!
                            ' 2 et 3 ne sont pas les 2 derniers 
                            ' les 2 derniers sont : 5 et 4 l'iteration etant negative 
                            ' et portant en plus sur 5 graphiques dans le worsheet
                            If k = 4 Or k = 5 Then
                                'perform scaling in place
                                rngBKM.InlineShapes.Item(1).ScaleHeight = sc
                                rngBKM.InlineShapes.Item(1).ScaleWidth = sc
                            End If
 
                        Case 5
                            Clipboard.Clear()
                            oWorkBook.Worksheets(j).ChartObjects("Graphique " & k).CopyPicture()
                            rngBKM = rngDoc.Bookmarks.Item("DMSO").Range
                            rngBKM.Select()
                            rngBKM.Paste()
                            If k = 4 Or k = 5 Then
                                'perform scaling in place
                                rngBKM.InlineShapes.Item(1).ScaleHeight = sc
                                rngBKM.InlineShapes.Item(1).ScaleWidth = sc
 
                            End If
                    End Select
 
                Next
            Catch ex As Exception
 
            End Try
        Next
 
    End Sub

bon code....

[Uranne-jimmy]

Concernant l'indice des deux derniers schémas, non, il n'y a pas d'erreur, j'ai en fait un certains nombre de graphiques, sur un certain nombre de feuilles, la plus part du temps il y a 3 graphique, mais la première feuille de chaque classeur en possède 5, c'est l'intérêt du try...catch donc dans le premier cas je prend les 4 derniers, et dans les autres cas les deux derniers.
Sachant également que je souhaite que dans tout les cas, seul le premier ne soit pas redimensionné, il sert plus ou moins d'entête.
Concernant la règle d'airain, j'en ai jamais entendu parlé avant (lacune dans mon apprentissage ? logique, j'en ai pas eu)

Je vais tenter d'utiliser ton enseignement. Mais reste toujours que je comprends pas le comportement de mon code, m'enfin ça, c'est souvent. Merci beaucoup.

me voilà maintenant à modifier mon code en fonction et je dois avouer que je ne comprend pas :
Par exemple si j=4, avec ton code, le programme va copier le graphique, puis clear le presse papier pour le copier a nouveau ? C'est intéressant de faire ça ?