XL 2016 Ajouter une photo dans mes enregistrements

pat12

XLDnaute Occasionnel
Bonjour,
Je suis en train de réalisé une base de donnée qui utilise une Userform pour enregistrer les données dans une feuille et cela fonctionne mais,
je n'arrive pas réalisé une fonction pour ajouter une photo.
(j'ai réalisé un zone de texte pour l'emplacement photo dans l'UserForme)
Je joint ma basse pour plus de facilité dans la compréhension.
Merci:)
 

Pièces jointes

  • Gestion de l'Eclairage Public.xlsm
    146.3 KB · Affichages: 23

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
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:

Discussions similaires

  • Question
XL 2019 jj
Réponses
11
Affichages
565

Statistiques des forums

Discussions
314 450
Messages
2 109 721
Membres
110 551
dernier inscrit
Khyolyanna