Macro insertion image automatiquement.

K

kinkin77

XLDnaute Nouveau

• 12 Octobre 2011

• #16

Re : Macro insertion image automatiquement.

De toute façon mess images sont réduite et le total de mes images font 25Mo donc le fichier Excel ne dépassera pas les 30Mo.
Donc aurai tu la solution ?

 

Vote positif 0 Vote négatif

K

kinkin77

XLDnaute Nouveau

• 12 Octobre 2011

• #17

Re : Macro insertion image automatiquement.

Non pq après je vais créé des fichiers moin volumineux.

 

Vote positif 0 Vote négatif

K

kinkin77

XLDnaute Nouveau

• 12 Octobre 2011

• #18

Re : Macro insertion image automatiquement.

Help me !!!

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 12 Octobre 2011

• #19

Re : Macro insertion image automatiquement.

les images sont sur ton disque dur.
Donc je ne vois pas comment on pourrait insérer les images manuellement à ta place.

 

Vote positif 0 Vote négatif

K

kinkin77

XLDnaute Nouveau

• 12 Octobre 2011

• #20

Re : Macro insertion image automatiquement.

Avec une Macro mais avec une fonction stockage dans le fichier excel si ça existe bien sur.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 12 Octobre 2011

• #21

Re : Macro insertion image automatiquement.

Re

Sinon avec le lien que je t'ai donné, j'ai fait un fichier de 22.5 mo avec 2500 images en taille 128 pixels, sanns rien faire à partir de mes orginaux qui font 3.9 Go .

Mais il faut charger la wiaaut.dll (voir dans la discussion ici https://www.excel-downloads.com/thr...-suppression-photos-mouton-a-5-pattes.154875/) .

 

Vote positif 0 Vote négatif

K

kinkin77

XLDnaute Nouveau

• 12 Octobre 2011

• #22

Re : Macro insertion image automatiquement.

Ok mais ça se n'est pas mon problème, je voudrai une macro avec insertion auto et qu'elle puisse stocker mes images dans le fichiers Excel.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 12 Octobre 2011

• #23

Re : Macro insertion image automatiquement.

Re

Ok mais ça se n'est pas mon problème

Cliquez pour agrandir...

En tout cas, c'est plus le mien .

Bon courage .

 

Vote positif 0 Vote négatif

K

kinkin77

XLDnaute Nouveau

• 12 Octobre 2011

• #24

Re : Macro insertion image automatiquement.

Alors QUESTION:

Es posssible de créer une macro pour faire des insertions image en automatique et que les images soient stockés sur mon fichier Excel peux un porte la taille de mon fichier Excel même si il fait plus 300 Mo?

Merci d'avance.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 12 Octobre 2011

• #25

Re : Macro insertion image automatiquement.

Réponse:

Oui .

Voir ici par exmple, sinon, G....e est ton ami .

FAQ MS-Excel

 

Dernière édition: 12 Octobre 2011

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 13 Octobre 2011

• #26

Re : Macro insertion image automatiquement.

Re

Bon, comme cela m'intéressait, voici un code sympa que j'ai pu faire grâce aux codes de MichelXLD .

Code:

Sub AjoutImageFeuille_V02_PlusRespectTaille()
'MJ issu du travail de MichelXLD
    Dim Shp As Shape, Fichier As String, iPict As IPictureDisp
    n = 2
    For Each cell In Selection
        Fichier = cell    'Cells(1, 1)
        'Fichier = "C:\Documents and Settings\mimi\dossier\Image2.jpg"
        'expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
        'Set Shp = Feuil1.Shapes.AddPicture(Fichier, msoFalse, msoCTrue, 0, 0, 100, 90)
        'ActiveSheet.Pictures.Insert Fichier
        Set iPict = LoadPicture(Fichier): Larg = Round((iPict.Width) / 23.96, 0): Haut = Round((iPict.Height) / 23.96, 0)
        If Larg >= Haut Then Set Shp = ActiveSheet.Shapes.AddPicture(Fichier, msoTrue, msoCTrue, 5, 5, 400, (Haut * 400) / Larg)
        If Haut > Larg Then Set Shp = ActiveSheet.Shapes.AddPicture(Fichier, msoTrue, msoCTrue, 5, 5, (Larg * 400) / Haut, 400)
        'Shp.Select: Shp.Cut: Sheets("Feuil2").Select: Cells(n, 1).Select: ActiveSheet.Paste: n = n + 1: Sheets("Feuil1").Select
        Shp.Select: Shp.Cut: Sheets("Feuil2").Select: Cells(n, 1).Select
        ActiveSheet.PasteSpecial Format:="Image (JPEG)", Link:=False, _
         DisplayAsIcon:=False: n = n + 1
        Sheets("Feuil1").Select
        Set iPict = Nothing
    Next
End Sub

 

Vote positif 0 Vote négatif

K

kinkin77

XLDnaute Nouveau

• 13 Octobre 2011

• #27

Re : Macro insertion image automatiquement.

Salut MJ13,

Merci pour ta recherche je vais tester ça.
La macro que tu a fait est bien pour les images en colonne A et pour le nom de l'image en colonne B ?

Cordialement Kinkin

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 13 Octobre 2011

• #28

Re : Macro insertion image automatiquement.

Re Kinkin

Teste ce fichier .

 

Pièces jointes

• Copy_Img_brute.xlsm

  19.6 KB · Affichages: 103

Vote positif 0 Vote négatif

K

kinkin77

XLDnaute Nouveau

• 13 Octobre 2011

• #29

Re : Macro insertion image automatiquement.

Bon j'ai testé ça marche pas les photos viennent en gros et après elle disparait or elle sont en 60X60 donc de petite taille.
ta pas le code vba pour stocker les photos sur le fichier excel seulement.
Pq moi mon code suivant :
Sub Macro1()

On Error Resume Next
For Each o In Selection
o.Activate
Z = ffset(0, 1) & ".jpg"
ActiveSheet.Pictures.Insert ("C:\PHOTOS_BASE_DE_DONNEE\" & Z)
Next
End Sub

M'inséres les photos à partir des références sur la colonne B et me mets les photos sur la colonne A mais il ne les stock pas dans le fichier Excel.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 13 Octobre 2011

• #30

Re : Macro insertion image automatiquement.

Re

Maintenant, tu dois adapter le code à ta problèmatique.

Sinon, envoie ton fichier avec 2 ou 3 images pour faire le test pour éviter de tourner en rond .

 

Vote positif 0 Vote négatif