Discussion :

[7loelau7]

Bonjour

Je cherche partout et je ne trouve rien qui puisse m'aider

Similaire à la discussion de Lucieferine Demande aide extraction données formulaire Word dans Excel VBA, mais je souhaite récupérer l'image du contrôle de contenu d'images (type wdContentControlPicture) dans une cellule Excel, comment faire pour copier/exporter cette image du champ Word dans une cellule Excel?

Merci pour votre aide

Meilleures salutations

Laurent

[wouana19]

bonjour,

Avez-vous un début de code à montrer ?

Pour prendre l'image dans un contrôle de contenu image vous pouvez faire ça.
Pour ensuite intégrer l'image dans votre Excel je vous laisse voir :-)

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
Sub CopieImg()
 
   Dim oDoc As Document
   Dim cc As ContentControl
   Dim inSh As InlineShape
   Set oDoc = ActiveDocument
 
   For Each cc In oDoc.ContentControls
      If cc.Type = wdContentControlPicture Then
         If cc.Range.InlineShapes.Count = 1 Then
            Set inSh = cc.Range.InlineShapes(1)
            inSh.Range.CopyAsPicture 'L'image est copiée dans le presse papier
 
            'Ajouter procédure pour la coller dans Excel
 
         End If
      End If
   Next
 
End Sub

Cordialement