Inserer deux WebBrowser

[apdf]

Bonjour,

Je recherche a enlever les bordures


Sa OK

Je vous remercie d'avance

 

[Dull]

Re : Bordure WebBrowser

Salut Max, le Forum

Essaye d'ajouter cette procédure dans le module de l'USF

Private Sub WebBrowser1_documentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.Scroll = "no"
End Sub

A tester

Edition: Je viens de m’apercevoir que le WebBrowser n'est pas dans un USF donc cela ne peux marcher désolé

Bonne Journée

 

[apdf]

Re : Inserer deux WebBrowser

Re,

Je voudrais inserer deux WebBrowser j'ai mis se code dans mon thisWorkbook et sa ne marche pas ?

Private Sub Workbook_Open()
With Worksheets("Accueil")
    
    .Shapes("WebBrowser1").Top = 20
    .Shapes("WebBrowser1").Left = 70
    .WebBrowser1.Height = 120
    .WebBrowser1.Width = 120
  
    .WebBrowser1.Navigate "C:\Users\APDF\Desktop\Carte de france\union-europeenne_pt-009.GIF"
      End With
     
     On Error Resume Next
  With WebBrowser1.Document.body
    .WebBrowser1.Style.BorderStyle = "none" 'Cadre
    .WebBrowser1.Scroll = "no" 'Barres
   End With

With Worksheets("Accueil")


    .Shapes("WebBrowser2").Top = 30
    .Shapes("WebBrowser2").Left = 470
    .WebBrowser2.Height = 120
    .WebBrowser2.Width = 170
    
    WebBrowser2.Navigate "C:\Users\APDF\Desktop\Carte de france\fransa.GIF"
                          
     On Error Resume Next
  With WebBrowser2.Document.body
    .WebBrowser2.Style.BorderStyle = "none" 'Cadre
    .WebBrowser2.Scroll = "no" 'Barres
   End With


 End With

Avez vous une solution?

Je vous remercie d'avance

 

[apdf]

Re : Inserer deux WebBrowser

RE,

Personne pour m'aider