Problème de code pour WebBrowser

oasis_1

oasis_1

XLDnaute Occasionnel
Bonjour le Forum,

sur le fichier ci-joint s'affiche une userform1 avec WebBrowser, en cliquant dans le WebBrowser l'userform2 s'ouvre.

mon problème trop d'userform dans mon classeur.

je souhaite avoir le WebBrowser directement sur la feuille, mais par contre je n'arrive pas à adapter le code.

ps : les WebBrowser me permettent d'avoir une image gif, et je m'en sert comme de bouton

par avance merci pour votre aide
 

Pièces jointes

  • essais gif.zip
    14.5 KB · Affichages: 28
Trier par date Trier par votes
oasis_1

oasis_1

XLDnaute Occasionnel
Re : Problème de code pour WebBrowser

Bonjour le forum,

Encore une question comment faire pour changer le pointeur de la sourie lorsqu'elle passe sur une image gif ou webbrowser ?

sur les bouton ok mais là ????

merci par avance
 
Vote positif 0 Vote négatif
myDearFriend!

myDearFriend!

XLDnaute Barbatruc
Re : Problème de code pour WebBrowser

Bonsoir oasis_1, Hulk, le Forum,

Une façon d'y arriver :

Changer :
Code: 
Drapeau.Navigate ThisWorkbook.Path & "\" & "France.gif"

Par :
Code: 
Drapeau.Navigate "about:<html><body><img src='" & ThisWorkbook.Path & "\France.gif" & "' style='cursor: hand' /></body></html>"
Voir pièce jointe.

Cordialement,
 

Pièces jointes

  • Test-Click sur gif 2.zip
    12.5 KB · Affichages: 34
  • Test-Click sur gif 2.zip
    12.5 KB · Affichages: 36
  • Test-Click sur gif 2.zip
    12.5 KB · Affichages: 36
Vote positif 0 Vote négatif
oasis_1

oasis_1

XLDnaute Occasionnel
Re : Problème de code pour WebBrowser

Bonjour Hulk, myDearFriend,

ou encore :

Dim S As String
Dim Hauteur As Long, Largeur As Long
Largeur = WebBrowser1.Width * 96 / 72
Hauteur = WebBrowser1.Height * 96 / 72
S = "D:\imagegif\lt2.gif"

WebBrowser1.Navigate _
"about:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"


Qui permet entre autre d'adapter l'image au webbrowser.


Par contre je n'arrive toujours pas à trouver comment modifier le pointeur de la sourie lorsqu'elle passe sur le webbrowser???

Et vous ????
 
Vote positif 0 Vote négatif

Discussions similaires

C
  • Question
Microsoft 365 Problème Code VBA
Réponses
9
Affichages
217
fanch55
fanch55
M
  • Question
XL 2013 Gestionnaire de noms ne s'ouvre pas
2
Réponses
27
Affichages
783
midovic
M
PoloTaz67
  • Question
XL 2019 Aide pour un code
Réponses
1
Affichages
333
Compte Supprimé 979
C
E
  • Question
XL 2013 Excel VBA - Problème lien hypertexte pour ouvrir un dossier
2
Réponses
19
Affichages
803
TooFatBoy
TooFatBoy
Electron24
  • Résolu(e)
Microsoft 365 Insérer Image selon Choix
Réponses
14
Affichages
416
Electron24
Electron24
N
  • Question
Microsoft 365 Problème pour activer les macros excel
Réponses
4
Affichages
242
nikopol01
N
J
  • Question
XL 2016 Problème de formulaire, checkbox dynamiques
Réponses
12
Affichages
338
Jingxi
J
chris6999
  • Question
Microsoft 365 Conserver la valeur de ma variable pour l'utiliser dans un autre code
Réponses
3
Affichages
158
mapomme
mapomme
S
  • Question
Microsoft 365 Problème d'affichage du calendrier dans mes cellules
Réponses
9
Affichages
347
scoubidou35
S
A
  • Résolu(e)
Microsoft 365 Personnalisation du calendrier de Patrick Toulon
Réponses
6
Affichages
342
patricktoulon
patricktoulon

Membres actuellement en ligne

14 membres et 97 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 492
Messages
2 088 925
Membres
103 984
dernier inscrit
maliko67