Redimensionner des images selon la taille de la cellule (et pas l'inverse)

[ruliann]

Bonjour,

qq'un peut-il me dire ce qui ne va pas dans la macro ci-dessous? je cherche à redimensionner des images contenues dans des cellules de tableau Word de manière à ce que: la taille de l'image adopte la taille de la cellule..

Sub redimimages()
'Déclaration des variables
Dim oISh As InlineShape 'variable objet représentant un objet image
'Boucle sur toutes les images du document
For Each oISh In ActiveDocument.InlineShapes
    'Sélection de l'image
    'Important pour déterminer si l'image se trouve dans une cellule de tableau
    oISh.Select
    'Test sur la position de l'image
    If Selection.Information(wdWithInTable) Then
        'Si l'image est dans une cellule on la redimentionne
        With oISh
            'affectation des dimensions de l'image
            'récupérer la taille de la cellule et l'utiliser pour dimensionner l'image
            Dim oTbl As Table
            Set oTbl = ActiveDocument.Tables(1)
            Debug.Print oTbl.Cell(1, 1).Width
            Set oTbl = Nothing
        End With
    End If