Discussion :

[ylemasson]

Bonjour

Je copie / colle des graphiques dans une boucle depuis Excel vers Word en VBA (avec collage en format méta).
Jusqu'ici tout va bien, mais ensuite j'aimerai directement disposer de l'objet que je viens de coller dans word, pour le manipuler (changer sa taille, etc... )

en résumé :

Code :

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

1
2
3
WordDoc.Bookmarks(signet).Select
WordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False

et ensuite, j'ai tenté :

Code :

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

1
2
3
    Set myGr = WordDoc.Application.ActiveWindow.Selection
    Set ILS = myGr.InlineShapes(1)
    ILS.Width = Largeur

mais ça plante. l'objet Selection est soit mal utilisé, soit l'objet sélectionné n'est pas celui qui est collé..

et là, j'ai beau chercher je ne trouve pas.

Merci de votre aide.

[Invité]

Bonjour,

A tester :

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
 
' Dim ILS as Word.Shape
 
   With WordDoc
        ' Avant collage
         NbInLineShapes = .InlineShapes.Count
 
        '....
 
        ' Après collage
        If .InlineShapes.Count > 0 Then
            Set ILS = .InlineShapes(NbInLineShapes + 1).ConvertToShape
            With ILS
                 .Width = Largeur
                 '....
            End With
            Set ILS = Nothing
        End If
   End With

[ylemasson]

Merci beaucoup, votre formulation fonctionne très bien !