L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Changer dynamiquement l'image d'une zone de texte

Imprimer E-mail
5 mars 2014


  • Insérez une zone de texte dans votre feuille
  • Cliquez sur le bord de cette zone (vous ne devez pas être en mode édition, curseur clignotant dans la zone de texte)
  • Cliquez dans la zone Nom (zone situé tout à gauche de la barre de formule), tapez Photo puis appuyez sur Entrée
  • Nommez une cellule AddrPhoto et insérez dedans l'adresse de votre fichier image 
  • Clic-droit sur l'onglet de votre feuille
  • Sélectionnez Visualisez le code
  • Tapez le code suivant :

 

Private Sub Worksheet_Change(ByVal Target As Range)
      If Intersect(Target, Range("AddrPhoto")) Is Nothing Then Exit Sub
      Shapes("Photo").Fill.UserPicture Range("AddrPhoto")
End Sub