Afbeeldingen plaatsen in tekstvakken

[EllenHeijmans]

Ik heb een Word-document met daarin een tabel met in elke cel een tekstvak. In elke tekstvak wil ik een afbeelding plaatsen.

Ik gebruik onderstaande code, maar hoewel de afbeeldingen geplaatst worden, gebeurd dit buiten de tekstvakken. Hoe krijg ik ze er nou in?

Sub AfbeeldingenLaden()
Dim tekstvak As Shape
Dim Bestandsnamen() As String
Dim i As Integer

Bestandsnamen = AfbeeldingenKiezen()

For Each tekstvak In ActiveDocument.Shapes
If tekstvak.Height > 20 Then
tekstvak.Select

If Bestandsnamen(i) <> "" Then
Selection.InlineShapes.AddPicture Bestandsnamen(i), False, True
End If
i = i + 1
End If
Next
End Sub


Ik heb ook al het volgende geprobeerd, maar dan krijg ik een Type Mismatch error:

For Each tekstvak In ActiveDocument.Shapes
If tekstvak.Height > 20 Then

tekstvak.Select
If Bestandsnamen(i) <> "" Then
Dim rng As Word.Range Set rgn = tekstvak.TextFrame.TextRange.Paragraphs(1).Range
ActiveDocument.InlineShapes.AddPicture FileName:=Bestandsnamen(i), LinkToFile:=False, SaveWithDocument:=True, Range:=rng
End If
i = i + 1
End If
Next

 

[snb]

Dit lukt aardig zonder tekstvak:

Sub M_snb()
    For Each cl In ActiveDocument.Tables(1).Range.Cells
        cl.Range.InlineShapes.AddPicture "G:\Mijn afbeeldingen\connenctions_001.GIF", 0, -1
    Next
End Sub

Dus, waarom gebruik je hiervoor een tekstvak ?

 

[EllenHeijmans]

Lang verhaal. Maar het is nodig.