[WD-2003] Insertion d'image dans un tableau [Résolu]

[trash_07]

Bonjour,

Je vous explique ce que j'essaye de faire, je veux insérer un graphique Excel dans un document Word et que celui ci prenne le format de mon tableau Word.

1) je voudrais savoir comment mettre en forme une image pour qu'elle prenne le format du tableau lors de son collage

2) Comment transformer mes formats graphiques en format "image" ou autre qui puisse remplir la fonction précédente (si cette étape est nécessaire)

3) Comment automatiser le tout (code VBA).

Merci de vos réponses,
Cordialement
Trash_07

[Heureux-oli]

Salut,

Premier grand principe, Word ne gère pas les images.

Copier les données Excel dans un tableau Word ne convient pas ?
copier dans Excel et collage dans Word.

[trash_07]

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
Sub insertiongraphique()
 
'En Référence à http://peltiertech.com/Excel/XL_PPT.html
 
Dim WDApp As Word.Application
Dim WDDoc As Word.Document
 
If ActiveChart Is Nothing Then
    MsgBox "Please select a chart and try again.", vbExclamation, _
        "No Chart Selected"
Else
    ' Reference existing instance of Word
    Set WDApp = CreateObject("Word.Application") 
'GetObject(, "Word.Application")
 
 
    WDApp.Documents.Open ("MON_CHEMIN_FICHIER_WORD.doc")
 
'je sélectionne le signet1
    WDApp.ActiveDocument.Bookmarks(1).Select
 
'Je copie l'image 
    ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, _
        Format:=xlPicture
 
'Je la colle et la met devant le document de texte
    WDApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _
        Placement:=wdFloatOverText, DisplayAsIcon:=False
 
 
    Set WDDoc = Nothing
    Set WDApp = Nothing
End If
 
End Sub

Je suis revenu ici pour poster une pré-solution de mon objectif.

Du coup j'ai contourné les problèmes que j'avais lié à une application de word.
Maintenant, il faudrait que je l'optimise ceci pour qu'elle soit inséré dans le tableau Word (ou que je lui définisse une taille spécifique).

[Heureux-oli]

Salut,

Tu peux définir la taille d'une image par le code

Code :

ActiveDocument.tables(1).Cell(1,1).InlineShapes(1).Heigt  = 25

Pareil pour le largeur.

[trash_07]

je vais faire comme ça

Merci.