Insertion Image

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 11 Septembre 2010

• #2

Re : Insertion Image

Bonjour,

Recherchev() image externe

JB

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Septembre 2010

• #3

Re : Insertion Image

Bonjour titemag,


Pour cela, il faut inserer un cadre (Image) pour chaque recette dans la feuille de donnée et la feuille d'impression dans une celulle définie; enfin les noms des images correspondent aux noms des recettes.


Par ex.: Données-cellule B2 poisson - Nom de l'image poisson

Code:

 Sub ImpressionImages()
  Impression
  repertoire = ThisWorkbook.Path
  Range("B2").Select
  Do While ActiveCell.Offset(0, -1) <> ""
    nf = repertoire & "\" & ActiveCell.Offset(0, -1) & ".jpg"
    If Dir(nf) <> "" Then
      Set monimage = ActiveSheet.Pictures.Insert(nf)
      monimage.Top = ActiveCell.Top
      monimage.Left = ActiveCell.Left
      monimage.Name = ActiveCell.Offset(0, -1)
      ActiveCell.EntireRow.RowHeight = monimage.Height
    End If
    ActiveCell.Offset(1, 0).Select

 

Dernière édition: 11 Septembre 2010

Vote positif 0 Vote négatif

T

titemag

XLDnaute Nouveau

• 11 Septembre 2010

• #4

Re : Insertion Image

Merci beaucoup BOISGONTIER. Ta fonction fonctionne très bien !!!

 

Vote positif 0 Vote négatif

T

titemag

XLDnaute Nouveau

• 11 Septembre 2010

• #5

Re : Insertion Image

J'ai répondu trop vite...
J'ai essayé sur deux cellules mais a priori il y a une erreur.. Pouvez-vous vérifier ma ligne de commande ???
Merci

 

Pièces jointes

• Recette.zip

  27.8 KB · Affichages: 34
• Recette.zip

  27.8 KB · Affichages: 33
• Recette.zip

  27.8 KB · Affichages: 34

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 11 Septembre 2010

• #6

Re : Insertion Image

Sur mon poste (XL2002, XL2007), le fonctionnement est normail. Les images sont dans le même répertoire que le classeur Excel.
-Essayer en appuyant sur F9
-Spécifier le répertoire des images:
=Afficheimage(A2&".jpg";"c:\mesdoc\excelmacronouveau\1001exemples\")

JB

 

Pièces jointes

• Copie de Recettes cuisine.zip

  28.6 KB · Affichages: 57

Dernière édition: 11 Septembre 2010

Vote positif 0 Vote négatif

T

titemag

XLDnaute Nouveau

• 12 Septembre 2010

• #7

Re : Insertion Image

Je ne comprend pas cela ne fonctionne toujours pas... Même en indiquant la source du fichier et/ou en appuyant sur F9...
Y a-t-il des options sur excel 2007 qui pourraient être désactivées sur mon logiciel et qui empêcherait l'insertion de l'image ??
Merci beaucoup pour votre aide !!!

 

Vote positif 0 Vote négatif