Problème de stockage d'une image sur excel à parti
Résolu
nouhaaa1995
Messages postés
79
Statut
Membre
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
2 réponses
-
Bonjour,
Impossible de "stocker" une image dans une cellule, li faut passer par une Shape
ce code devrait vous aider
Sub Insert_img() ActiveSheet.Pictures.Insert("Chemin et nom du fichier image").Select With Selection.ShapeRange .Left = ActiveCell.Left .Top = ActiveCell.Top End With End Sub-
-
-
exemple avec une image non précisée et une cellule précisée:
Option Explicit Sub insertimage() Dim pct As Picture, image As String image = Application.GetOpenFilename() Set pct = ActiveSheet.Pictures.Insert(image) pct.ShapeRange.Left = Cells(8, 8).Left pct.ShapeRange.Top = Cells(8, 8).Top pct.ShapeRange.Width = Cells(8, 8).Width pct.ShapeRange.Height = Cells(8, 8).Height End Sub
-
-
-
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
peux-tu expliquer ton contexte, pour que nous puissions mieux t'aider? qui a écris le code que tu utilises? pourquoi veux-tu le modifier? quelle est ton expérience en VBA?-
-
j'ai un classeur à remplir avec des données, et pour automatiser cette opération j'ai crée un userform, parmi ces données il y a des images qui doivent être importé de l'ordi
et l'enregistrement de tous ces données doit être chargées sur une même ligne.
c'est pour cela l'enegistrement de ces données s'effectue par un command button pour éviter le décalage -
-