Discussion :

[Wytt]

En référence à cette discussion...

Bonjour,

Désolé de ressortir un vieux sujet, mais j'ai un problème lié à l'insertion d'une image dans un fichier excel sur lequel j'espère que vous pourrez m'aider.

Je développe une application VB6 qui doit éditer des fichiers excel avec des images dedans. Je possède :
- un modèle excel dans lequel le simages sont des contrôles vides
- une macro qui va alimenter mon modèle excel.
Mon application VB6 fait donc appel à ma macro qui se charge de remplir mon modèle excel.


Voici le code de mon application VB :

Code :

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

Exapp.Run "Macro_Carto_new.xls!Alim_Image", NUMSHEET_REP_SURFACE, x, Fic_Image_jpg

avec :

• Exapp : mon application excel sous VB
• Macro_Carto_new.xls : mon fichier excel dans lequel est défini ma macro
• Alim_Image : le nom de ma macro
• NUMSHEET_REP_SURFACE : le numéro de la feuille de mon modèle dans laquelle je veux insérer l'image
• x : le numéro de mon image dans mon modèle
• Fic_Image_jpg : le chemin ver smon image au format "jpg"

Et pour ma macro:

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub Alim_Image(ByVal feuille As Long, ByVal n As Long, ByVal FicImg As String)
On Error GoTo fin
    Select Case n
       Case 1:    Application.Sheets(feuille).image1.Picture = LoadPicture(FicImg)
       Case 2:    Application.Sheets(feuille).image2.Picture = LoadPicture(FicImg)
...
    End Select
fin:
End Sub

Ma solution fonctionne très bien et l(utilisation d'un modèle me permet d'avoir me simages directement placée là où j'ai positionné mes controles.
Cependant cette solution conduit à des fichiers excel très volumineux (je suis très vite arrivé dans mon cas sans trop pousser à des fichiers de plus de 150Mo)

J'ai alors essayé de remplacer le code de ma macro par :

Code :

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

Application.Sheets(feuille).Pictures.Insert (FicImg)

Avec cette deuxième technique j'obtiens un fichier de taille considérablement plus petite. Cependant je dois définir où positionner mes images ce qui est très problématique car ca implique de changer pas mal de choses au sein de l'application telle qu'elle existe actuellement dans l'entreprise (à moins de me servir du positionnement de mes controles pour insérer mes image sau même endroit... à voir)


Mes questions sont donc les suivantes :
Quel est la différence entre "LoadPicture" et "Insert"
peut-on utiliser "LoadPicture" sans faire exploser la taille du fichier ou alors existe -t- il une autre méthode similaire qui fasse cela en utilisant le positionnement de mes controels dans mon fichier modèle ?


Je vous remercie d'avance pour vos contributions.
Cordialement.

[Wytt]

Bonjour,

Je me permets de remonter ma question car je n'ai toujours pas trouvé de solution pour alléger mes rapports ...

Désolé pour le dérangement occasionné, et merci d'avance pour votre aide.


Cordialement.

[SilkyRoad]

bonjour

Je ne saurais t'expliquer en détail les différences entre LoadPicture(chargement de l'image dans un controle) et Insert(insertion directement dans la feuille de calcul)
Par contre lorsqu'une image est stockée dans le contrôle Image, le format passe automatiquement en .bmp (ce qui peut expliquer les tailles importantes).
tu peux le vérifier en consultant la propriété Picture de l'objet Image



Tu peux facilement redéfinir l'emplacement de l'image dans la feuille de calcul lorsque tu utilises la methode Insert:
(macro Excel à adapter dans ton projet)

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
Sub InsertionImage()
    Dim Emplacement As Range
    Dim Img As Object
 
    Sheets(1).Pictures.Insert "C:\PICT1335.jpg"
    Set Emplacement = Range("D3:E8")
 
     'à adapter selon le nombre total de shapes dans feuille
    Set Img = Sheets(1).DrawingObjects(Sheets(1).DrawingObjects.Count)
 
    With Img.ShapeRange
        '.Name = "cible"
        .LockAspectRatio = msoFalse
        .Left = Emplacement.Left
        .Top = Emplacement.Top
        .Height = Emplacement.Height
        .Width = Emplacement.Width
    End With
End Sub

bon apres midi
michel

[Wytt]

Par contre lorsqu'une image est stockée dans le contrôle Image, le format passe automatiquement en .bmp (ce qui peut expliquer les tailles importantes).

En effet, je pesne que cela explique pourquoi la taille de mes dossiers sont beaucoup plus importants quand je charge les images dans les control.

Tu peux facilement redéfinir l'emplacement de l'image dans la feuille de calcul lorsque tu utilises la methode Insert:
(macro Excel à adapter dans ton projet)

A quelques approximations près c'est en effet la méthode que j'ai utilisée :

• 1) J'insère l'image dans mon fichier modèle
• 2) Je la place au coordonnées exactes du controlImage auquel elle correspond
• 3) Je supprime le controlImage

Je me sers donc du controlImage juste comme repère de l'emplacement où je veux mettre mon image. Cela fonctionne très bien et visuellement on ne voit pas la différence.

A titre informatif, je suis passé de :

• sur un dossier de 130 Mo avec "loadPicture" à un dossier de 20 Mo avec "insert"
• sur un dossier de 20 Mo avec "loadPicture" à un dossier de 1 Mo avec "insert"

Je suis très satisfait de ces résultats.
Merci beaucoup pour ton aide précieuse Michel.

RESOLU

Cordialement.

[AlainTech]

Pour dire Résolu, il y a un bouton en bas de page.

Merci de l'utiliser.