Afbeelding in word Tabel plaatsen en afmetingen aanpassen

[stefanhovens]

Ik wil graag een afbeelding in word plaatsen en afmetingen hiervan aanpassen.
Het eerste gedeelte lukt me, maar het tweede niet. Van te voren zorg ik ervoor dat je juiste afbeelding wordt ingevoegd uit een bestand middels een if then

Dim PictureS As String
If ThisDocument.lblDSassy.Caption = "" Then
PictureS = ThisDocument.Path & "\Pictures\" & ThisDocument.lblSAssy.Caption & ".jpg"
Else
PictureS = ThisDocument.Path & "\Pictures\" & ThisDocument.lblDSassy.Caption & ".jpg"
End If

With ActiveDocument.Tables(4)
.Cell(Row:=3, Column:=2).Range.InlineShapes.AddPicture PictureS
End With

 

[snb]

With ActiveDocument
   .Tables(4).Cell(3,2).Range.InlineShapes.AddPicture .Path & "\Pictures\" & iif(.lblSAssy.Caption ="",.lblDSassy.Caption,.lblSSassy.Caption),& ".jpg"
End With

 

[stefanhovens]

With ActiveDocument.Tables(4).Cell(3,2).Range.InlineShapes.AddPicture .Path & "\Pictures\" & iif(.lblSAssy.Caption ="",.lblDSassy.Caption,.lblSSassy.Caption),& ".jpg"
End With

Is een grote verbetering/inkorting, bedankt snb!
Hierbij de oplossing om de grote van de afbeelding aan te passen. Je moet hem eerst selecteren in de betreffende cel

With ActiveDocument.Tables(4)
    .Cell(3, 1).Range.InlineShapes.AddPicture Path & "\Pictures\" & IIf(lblDTassy.Caption = "", lblTAssy.Caption, lblDTassy.Caption) & ".jpg"
    .Cell(3, 1).Range.InlineShapes(1).Height = 200
    .Cell(3, 1).Range.InlineShapes(1).Width = 200
    .Cell(3, 2).Range.InlineShapes.AddPicture Path & "\Pictures\" & IIf(lblDSassy.Caption = "", lblSAssy.Caption, lblDSassy.Caption) & ".jpg"
    .Cell(3, 2).Range.InlineShapes(1).Height = 200
    .Cell(3, 2).Range.InlineShapes(1).Width = 200
End With

 

[snb]

With ActiveDocument.Tables(4)
    with .Cell(3, 1).Range.InlineShapes.AddPicture(Path & "\Pictures\" & IIf(lblDTassy.Caption = "", lblTAssy.Caption, lblDTassy.Caption) & ".jpg")
        .Height = 200
        .Width = 200
    End With
    With .Cell(3, 2).Range.InlineShapes.AddPicture(Path & "\Pictures\" & IIf(lblDSassy.Caption = "", lblSAssy.Caption, lblDSassy.Caption) & ".jpg")
        .Height = 200
        .Width = 200
    End With
End With