Bonjour

J'ai un catalogue dans lequel les utilisateurs peuvent ajouter articles (texte + image)

Je voudrai contrôler le poids des images ajouter afin que le catalogue reste avec un volume optimal.
Pour cela j'ai écrit une séquence qui copie la photo mise à l'écran par l'utilisateur dans le catalogue en mettant à la taille voulue et en compressant l'image

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
For Each sh In creatH.Shapes
    If sh.Type = msoPicture Then
        If sh.TopLeftCell.Address = "$L$6" Then ' photo écran
            With creatH.Pictures(sh.Name)  
                .ShapeRange.LockAspectRatio = msoFalse
                .Height = 300
                .Width = 400
            End With
            creatH.Shapes(sh.Name).Copy
            pH.Range("C" & freeLig).Select  ' position photo Catalogue
            pH.Paste
            Application.SendKeys "%jym{TAB}{TAB}{UP}~"
            Application.CommandBars.ExecuteMso "PicturesCompress"
            GoTo suite
        End If
    End If
Next
Je voudrai maintenant écrire une macro qui balaye toutes les images de la feuille en alertant celles qui dépassent par exemple 100Ko

Peut-on récupérer le poids d'une image ?