Discussion :

[Alb-Nicolas]

Bonjour à tous,

J'ai créée une macro qui permet de copier des charts ou des zones de texte depuis Excel pour les coller sur Word.

J'aimerais juste pouvoir les redimensionner une fois collé mais je ne trouve pas la bonne formulation.

Quelqu'un peut-il m'aider ?

Merci.

Pour info, voilà le code utilisé :

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
Sub word()
Dim WordApp As Object, WordDoc As Object, ctrl As Object
Dim nom_fichier As String
 
Set WordApp = CreateObject("word.application")
WordApp.Visible = True
nom_fichier = "C:\Users\*********\Desktop\Divers\test.docx"
Set WordDoc = WordApp.Documents.Open(nom_fichier)
 
For K = 1 To 3
 
ActiveSheet.ChartObjects("Graphique " & K).Activate
ActiveChart.ChartArea.Copy
WordDoc.bookmarks("Graph" & K).Range.Select
WordApp.Selection.PasteandFormat (wdchartPicture)
WordApp.Selection.ParagraphFormat.Alignment = 1 'wdAlignParagraphCenter
 
Next
 
With WordApp.Selection
Sheets("Feuil1").Range("A1:G7").Copy
WordDoc.bookmarks("Zone1").Range.Select
WordApp.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile, Placement:=1
 
End With
 
 
End Sub

[Invité]

Bonjour,

Les objets que vous récupérez sur Word sont soit des InlineShape, soit des Shape. Vous avez la possibilité de convertir vos variables InlineShape en Shape pour pouvoir placer plus facilement vos objets sur le document. Il vous suffit donc de créer deux variables de type InlineShape et Shape, de décompter leur nombre dans les collections InlineShapes et Shapes avant et après collage pour instancier vos variables.

Nb : En phase de développement, vous devriez plutôt travailler avec des variables Word et pas en "late binding" comme vous le faites. Bien entendu, il vous faut utiliser avec les paramètres numériques et non les paramètres Wd...

Je me demande s'il ne vous faudra pas déclarer la DLL Microsoft Windows Image Acquisition Library pour travailler avec vos images, à voir.