Bibliothèque d'Images

[Freddy85]

Bonjour à tous,

Je suis en train de créer un fichier où je dois insérer des images (je sais excel n'est pas fait pour ça) pour réaliser un schéma sur une partie de la feuille excel.
J'aimerais avoir une sorte de bibliothèque qui suivrait le fichier. Chaque utilisateur pourrait rajouter des images à son gré dans cette bibliothèque pour pouvoir modifier le schéma. L'objectif pourrait être de cliquer sur le bouton image et ça ferait apparaitre l'image sur la feuille excel.

Est ce possible ?
Je suis ouvert à toutes vos suggestions concernant ce problème.

Cordialement,

Freddy85

 

[tototiti2008]

Re : Bibliothèque d'Images

Bonjour Freddy,

Bienvenue sur XLD

un essai

Function ShapeExists(NomShape As String) As Boolean
Dim NSE As String
ShapeExists = False
On Error GoTo ErrSE
NSE = ActiveSheet.Shapes(NomShape).Name
On Error GoTo 0
ShapeExists = True
ErrSE:
End Function
 
 
Sub Inser()
Dim Img As Shape, Nom As String, i As Long
Set Img = ActiveSheet.Shapes(Application.Caller).Duplicate
Nom = Application.Caller
i = 0
Do
i = i + 1
Loop Until Not ShapeExists(Nom & i)
Img.Name = Nom & i
Img.Top = Range("B10").Top
Img.Left = Range("B10").Left
Img.OnAction = ""
Set Img = Nothing
End Sub

Il faut associer la macro "Inser" à chaque image de la bibliothèque

 

[Freddy85]

Re : Bibliothèque d'Images

Bonjour tototiti2008,

Merci pour cette réponse qui fonctionne plutôt bien.

Si d'autres personnes ont d'autres solutions je suis preneur aussi car mon fichier s'adresse aussi à des personnes peu expérimenté dans excel donc associer une macro ça ne sera pas simple pour eux ... mais bon je ferai le nécessaire quand même, j'expliquerai !

A bientôt et encore une fois MERCI

 

[tototiti2008]

Re : Bibliothèque d'Images

Re,

Si quelqu'un a une solution sans macro, je suis intéressé aussi 😉