Discussion :

[Sergei RT]

Bonjour à tous,
Je dois me plonger dans VBA pour résoudre un problème mais je ne pense pas y arriver seul... Je dois insérer des images liées à une cellule dans excel en passant par une macro. Jusque là ça va. Par contre comme il y a pas mal d'image, la taille du fichier augmente au delà du raisonnable. Je ne parviens pas à trouver l'option qui permettrait de ne plus lier la taille de l'image que j'ai insérée à celle du fichier d'origine. Il y a une case à cocher dans les options de l'image mais je ne voudrais le faire directement à partir de la macro. Le code que j'utilise est en dessous.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Sub Photo()
    Dim Pos As String
    Dim Chemin As Variant
    Dim Photo As IPictureDisp, rapport As Double
    Dim Gauche, Sommet, Largeur, Hauteur As Single
    Dim Tmax As Integer
 
 
    Pos = InputBox("Position de la photo?", "Position")
    If Pos = "" Then
    Exit Sub
    Else
    Chemin = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")
    Select Case Chemin
    Case ""
    Exit Sub
    Case Is <> ""
 
    Set Photo = LoadPicture(Chemin)
    Plarg = Photo.Width
    Phaut = Photo.Height
 
    Gauche = Range(Pos).Left
    Sommet = Range(Pos).Top
    Range(Pos).ColumnWidth = 37.69
    Range(Pos).RowHeight = 200 * Phaut / Plarg
    Largeur = 200
    Hauteur = 200 * Phaut / Plarg
    Ech = 200 / Plarg
 
 
    Set test = Sheets("TRA").Shapes.AddPicture2(Chemin, False, True, Gauche, Sommet, Largeur, Hauteur, 1)
    test.ScaleHeight 1, False
    test.ScaleWidth 1, False
 
    Set test = Nothing
    Set Photo = Nothing
    End Select
    End If
 
End Sub

En vous remerciant pour votre aide

Sergei RT

[Ben_L]

Bonjour,

L'objet Photo que vous déclarez ne sert à rien.
En utilisant le code modifié ci-dessous, j'obtiens bien une taille de fichier différente selon la largeur que j'indique pour la photo :

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
18
19
20
21
Dim Pos As String, Chemin As Variant
    Dim Gauche As Single, Sommet As Single, Largeur As Single, Hauteur As Single
 
    Pos = InputBox("Position de la photo?", "Position")
    If Pos = "" Then
        Exit Sub
    Else
        Chemin = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")
        Select Case Chemin
            Case ""
                Exit Sub
            Case Is <> ""
                Gauche = Range(Pos).Left
                Sommet = Range(Pos).Top
                Largeur = 400
                With Feuil1.Shapes.AddPicture(Chemin, False, True, Gauche, Sommet, -1, -1)
                    .ScaleHeight Largeur / .Width, False
                    .ScaleWidth Largeur / .Width, False
                End With
       End Select
    End If

[Sergei RT]

Bonjour,

Merci pour votre solution. L'objet Photo me permettait d'extraire les données de taille de l'image afin de redimensionner la ligne en conséquence. Avec votre solution, je perds cette fonction. Je n'arrive pas à créer de variable récupérant la largeur de l'image avec votre code.

Bonne journée

Sergei RT

[Ben_L]

Une fois utilisée AddPicture, les hauteru et largeur de l'image sont obtensibles via .Height et .Width (voir la ligne 17 du code que j'ai posté).
Le code proposé maintient le format de l'image (le ratio largeur sur hauteur).

[unparia]

Bonjour
l'occupation de la mémoire ne dépend pas des dimensions données à l'affichage, mais :
1) - du nombre de contrôles images utilisés
2) - du "poids" en octets des images (avant leur affichage)
Si tu veux réduire l'occupation du 2), c'est l'image elle-même, qu'il te faudra "réduire", avant son importation dans ton classeur.

[Sergei RT]

Une fois utilisée AddPicture, les hauteru et largeur de l'image sont obtensibles via .Height et .Width (voir la ligne 17 du code que j'ai posté).
Le code proposé maintient le format de l'image (le ratio largeur sur hauteur).

Merci Ben_L, J'ai vu en effet que les dimensions de l'image étaient fournies par .Height et .Width. Je m'en servais à la fois pour dimensionner l'image et pour redimensionner la hauteur de la cellule. Avec le code que vous proposez, je ne sais pas récupérer l'info de l'échelle appliquée (ligne 17 de votre code) pour l'appliquer à la hauteur de la cellule.

Bonne journée

Sergei RT

[Sergei RT]

Bonjour
l'occupation de la mémoire ne dépend pas des dimensions données à l'affichage, mais :
1) - du nombre de contrôles images utilisés
2) - du "poids" en octets des images (avant leur affichage)
Si tu veux réduire l'occupation du 2), c'est l'image elle-même, qu'il te faudra "réduire", avant son importation dans ton classeur.

Merci unparia pour ta réponse. Je pense que je vais creuser dans cette direction.

Bonne journée

Sergei RT

[unparia]

Bien
Garde cependant à l'esprit que ce que j'ai mis dans le 1) est déjà très gourmand en soi (importation d'un contrôle avec tous ses évènements, propriétés, méthodes, etc ...) et est fixe quel que soit le poids de l'image.
Il est même assez peu fréquent que l'image elle-même soit d'une taille telle qu'elle occupe en mémoire plus que le contrôle image lui-même.
N'as-tu pas remarqué que la plupart des logiciels type "albums de photos" n'importent et n'affichent jamais la totalité ? Ils affichent par petits groupes, au fur et à mesure des affichages de "pages". Comprends que les images ne sont importées elles-mêmes qu'au fur et à mesure. Elles restent stockées à l'extérieur jusqu'à importation d'un groupe en vue de son affichage.

A toi de gérer selon ce principe, si tu ne veux pas alourdir considérablement ton classeur, voire déborder en zone de swapping à l'exécution (encore pire).

[Sergei RT]

ça marche. Dans ce cas pour régler le 1) est ce qu'il y a un moyen de libérer la mémoire après importation et la fin de la macro?

[unparia]

Ne te complique pas trop la vie
Contente-toi de n'insérer que le nombre nécessaire de contrôles image (égal au maximum affichable et visible sur ton écran)
Déplace ensuite ces contrôles où il le faut à chaque nouvel affichage