Bonjour,
je recherche via une macro, la méthode pour pouvoir sélectionner dans un document Word l'ensemble des images.
 
Merci de votre aide

Déjà sans macro, est-que vous y arrivez ? Moi pas.
 
Le principe de la selection est lié au presse-papier (zone de mémoire commune qui permet le copier coller). Or, sauf exceptionnelement peut-être, on ne fait du copier/coller que d'une seule image à la fois.

Effectivement, impossible
L'objectif est de redimension chaque image dans un document word.
Ne peut'on pas sélectionner la première image, la dimensionner puis passer à la seconde image, et ainsi de suite ?
 
Merci

Hello...
 
Oula ca raconte un peu n'importe quoi la...
 
Pour selectionner une image suffit de faire reference aux objets InlineShape et ensuite de determiner si c'est une image liée, une image integrée, un dessin, une ligne etc.
Pour cela on utilise la propriété Type, et pour une image integrée elle doit renvoyer wdInlineShapePicture
 
Ce qui donnerait :

 
Cordialement

Merci
je vais tester cala

Bonjour,
j'ai modifié la macro pour qu'il sélectionne chaque image à compresser mais j'ai une erreur sur cette ligne :
 "Selection.InlineShapes(1).Fill.Visible = msoFalse"
 
 
Sub Images()
 
Dim Image As InlineShape
 
    For Each Image In ActiveDocument.InlineShapes
        If Image.Type = wdInlineShapePicture Then
 
'ici, je détermine la compression de l'image
    Selection.InlineShapes(1).Fill.Visible = msoFalse
    Selection.InlineShapes(1).Fill.Solid
    Selection.InlineShapes(1).Fill.Transparency = 0#
    Selection.InlineShapes(1).Line.Weight = 0.75
    Selection.InlineShapes(1).Line.Transparency = 0#
    Selection.InlineShapes(1).Line.Visible = msoFalse
    Selection.InlineShapes(1).LockAspectRatio = msoTrue
    Selection.InlineShapes(1).Height = 141.75
    Selection.InlineShapes(1).Width = 174.05
    Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
    Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
    Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
    Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
    Selection.InlineShapes(1).PictureFormat.CropRight = 0#
    Selection.InlineShapes(1).PictureFormat.CropTop = 0#
    Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
 
        End If
    Next
   
End Sub
 
Merci de votre aide

Pourquoi utiliser ceci Selection.InlineShapes(1).
Si tu declares Image comme ActiveDocument.InlineShapes pas besoin de faire comme ca..
Un simple Image.Fill.Visible = msoFalse suffit...

ok merci je vais tester étant novice avec les macros

Pas de souci, mais precise que tu es novice... J'aurais mieux expliqué...