XL 2016 Ajouter une photo dans mes enregistrements

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Novembre 2019

• #16

La photo est en commentaire dans la colonne 1

VB:

  '----- photo en commentaire colonne 1
  With Range(nomtableau).Item(enreg, 1)
    .ClearComments
    If Me.Photo <> "" Then
      If Dir(Me.Photo) <> "" Then
        .AddComment
        .Comment.Shape.Fill.UserPicture Me.Photo
        .Comment.Shape.Height = 100
        .Comment.Shape.Width = 100
        .Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
      End If
    End If
   End With
   '--------

Boisgontier

 

Pièces jointes

• ArmoirePhoto.xls

  973 KB · Affichages: 12

Dernière édition: 3 Novembre 2019

Vote positif 0 Vote négatif

N

netparty

XLDnaute Occasionnel

• 3 Novembre 2019

• #17

Merci Boisgontier

Est-il possible quelle ne sois pas en commentaire mais directement dans une cellule

Bonne journée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Novembre 2019

• #18

netparty à dit:

Est-il possible quelle ne sois pas en commentaire mais directement dans une cellule

Cliquez pour agrandir...

Bien sûr et il y a de nombreux exemples sur le forum.

Mais normalement on ne fait jamais ça dans une base de données...

 

Vote positif 0 Vote négatif

P

pat12

XLDnaute Occasionnel

• 3 Novembre 2019

• #19

Ok merci à tous j'ai trouvé la solution sur un autre forum 🙂
Bon Dimanche.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Novembre 2019

• #20

En important toutes les images, le fichier va grossir énormément. Il faudrait importer des miniatures.

Boisgontier

 

Vote positif 0 Vote négatif