gif dans feuil excel avec macro

[zeltron]

Bonjour, j'ai réussi a integrer une image gif dans une feuille excel, gràce à la méthode de thierry cependant, je voudrais savoir si a cette image gif on peut lui appliquer un hyperlink ou une macro.
Je n'ai pas réussi, il y a t il une solution, ou n'est ce pas possible?

Cordialement

 

[MichelXld]

bonjour

dans les wiki pages tu trouveras un exemple pour déclencher une macro lors du clic dans un WebBrowser

https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/

chapitre WebBrowser , 'Intercepter l'evenement clic dans un Webbrowser '


Option Explicit
'necessite d'activer la reference Microsoft Html Object Library
Dim WithEvents maPageHtml As HTMLDocument

Private Sub UserForm_Initialize()
WebBrowser1.Navigate 'Lien supprimé
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set maPageHtml = WebBrowser1.Document
End Sub

Private Function maPageHtml_onclick() As Boolean
MsgBox 'test'
End Function

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
URL As Variant, Flags As Variant, TargetFrameName As Variant, _
PostData As Variant, Headers As Variant, Cancel As Boolean)
Set maPageHtml = Nothing
End Sub


bonne journée
MichelXld

 

[zeltron]

je débute, donc tout çà me parait un peu compliqué, mais bon je vais déà aller voir ton lien vers les wiki

Encore merci

Cordialment