Discussion :

[retraite83]

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 ?

[jurassic pork]

Hello,

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 ?

Je ne crois pas qu'il y ait de solutions simples pour effectuer cette tâche ( A confirmer ?) :
Voici différentes solutions possibles mais genre usine à gaz :
1 - Copier l'image dans le presse papier Créer une chart temporaire, coller l'image dedans , faire un export image à partir de cette chart, relever la taille du fichier créé. Supprimer le fichier, supprimer la chart temporaire. Il n'est pas certain que le poids relevé soit le poids exact à l'intérieur du classeur.
2 - Utiliser le presse-papier et regarder (si c'est possible ) le poids de ce qui est stocké dedans.
3- Extraire les images qui se trouvent dans le fichier classeur, relever les poids puis les détruire. Cela oblige à travailler sur un classeur non ouvert et la correspondance entre les fichiers et les images dans le classeur n'est pas connue.

Ami calmant, J.P

[jurassic pork]

Hello,
j'ai trouvé une solution mais il faut installer le Open XML SDK 2.5 et utiliser une dll que j'ai fabriqué qui contient une fonction qui lit les infos des images d'un classeur Excel. Comme on ne peut pas lire le fichier du classeur quand on l'utilise, l'astuce consiste à copier le classeur dans un répertoire temporaire et à le supprimer à la fin de l'utilisation.
Voici ce que cela donne du point de vue code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Declare Function CreateImageExcelClass Lib "D:\Tmp\ClassesCsharpJP.dll" () As Object
Sub LireInfosImages()
Dim ImagesInfos As Object
ActiveWorkbook.SaveCopyAs "D:\TMP\temp.xlsm"
Set ImagesInfos = CreateImageExcelClass()
ImagesInfos.IterateThruImages "D:\TMP\temp.xlsm"
Debug.Print ImagesInfos.ImagesInfos
Kill "D:\TMP\temp.xlsm"
End Sub

Résultat obtenu pour un classeur avec 3 images sur 2 feuilles :

==== Feuil2 ====
rId1 : 14933 Octets -> image/png - coord (0:0)


==== Feuil1 ====
rId2 : 3646 Octets -> image/jpeg - coord (26:28)
rId1 : 364850 Octets -> image/jpeg - coord (23:2)

coord représente la cellule haute gauche de l'image en num ligne : num colonne ex : (0:0) --> A1

Ami calmant, J.P

[retraite83]

Hello,

je vais essayer ça dès que j'ai un moment

Open XML SDK 2.5 : ça s'installe où?

la ddl je la mets dans un module ?

[jurassic pork]

Pour l' OpenXML SDK c'est un fichier msi (OpenXMLSDKV25.msi) donc ça s'installe tout seul. Pour la dll il faut la mettre dans un répertoire accessible et la déclarer en tête d'un module VBA (voir mon code dans mon message précédent). Et la version d'Excel 32 bits ou 64 bits ?

[retraite83]

Excel 365 je pense 64 bits