Problème de taille!

[aragorn88]

Bonjour à tous,

voilà,
j'ai réalisé un petit formulaire sous Access qui me modifie un document word existant en y ajoutant quelques images.

Ces images sont insérées dans un tableau lui-même dans une cellule d'un autre tableau (deux tableaux imbriqués quoi...) (comme tout ca ne me parait pas très clair j'ai joint un fichier pdf où sont présents les deux tableaux...)

J'insère donc une image par colonne de mon tableau imbriqué grâce au code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim nbEle
        nbEle = Me.cmbNbElement.Value
        Dim ctlImg As Control
        Dim i
        For i = 1 To nbEle
            For Each ctlImg In Me.Controls
                Select Case Left(ctlImg.Name, 8)
                    Case "imgEle" & i
                        .ActiveDocument.Bookmarks("Ele" & i).Select
                        .Selection.InlineShapes.AddPicture FileName:=ctlImg.Value
 
                    Case "txtVal" & i
                        .ActiveDocument.Bookmarks("Val" & i).Select
                        .Selection.Text = ctlImg.Value
                End Select
            Next ctlImg
        Next i
 
        .ActiveDocument.SaveAs ("D:\Mes Documents\juge\base de données symbolique\" & nomMouv & ".doc")
        .Quit
    End With
    Set W_App = Nothing

Cela marche très bien si je ne mets que quelques images...

En effet je souhaiterais que la cellule ou se touve le tableau que je rempli ne change pas de taille si les images sont grosses mais que se soit les images qui se réduissent pour passer dans ma cellule...

Mon problème est donc de savoir s'il est possible d'ajuster automatiquement la taille des images en vba word pour que tout le monde passe dans ma cellule..


merci