Webbrowser Help

eddiesvoicebox · #1 (**permalink**) 07-17-09, 05:38

Morning everyone,

I am building a simple dashboard for navigating to the different reports my team runs. I wanted to add a vertical scrolling marquee thing to show updates, issues and other relevant information on the front page. After much searching i found some code that runs behind the 'webbrowser1' object, which works perfectly. However on the worksheet i find that the object is sunken giving me an outline i dont want. I realise this sounds trivial and i have probably overlooked a simple setting in the properties but i cannot find how to change this anywhere. Does anyone know how i might go about changing this setting ?

I cant find see anything in the code that points towards this type of thing, but just in case i missed something ill post the code below:

Code:

Private Sub CommandButton2_Click()
    Dim intUnit As Integer
    Dim strTemp As String
    Dim dkpi, dmm, dsi, dfp, dsp, ddm, dwe As Date
    Dim wkpi, wmm, wsi, wfp, wsp, wdm, wwe As Date
    Dim mkpi, mmm, msi, mfp, msp, mdm, mwe As Date
    
dkpi = Range("aj15").Value
dmm = Range("aj16").Value

wkpi = Range("ak15").Value
wmm = Range("ak16").Value
wsi = Range("ak17").Value
wfp = Range("ak18").Value
wsp = Range("ak19").Value
wwe = Range("ak21").Value

mkpi = Range("al15").Value
mmm = Range("al16").Value
msi = Range("al17").Value
msp = Range("al19").Value
mdm = Range("al20").Value

    strTemp = "<html><head><script language=""javascript"">function noScroll(){document.body.scroll=""no"";}" & _
              "</script></head><body onload=javascript:noScroll(); topmargin=""0"" leftmargin=""0"">" & _
              "<marquee width=""275"" height=""500"" direction=""up"" loop=""true"" width=""35%"">" & _
              "<font color=""#003366"" size=""+1""><left><h1><u>" & _
              "REPORT STATUS<br></u></h1><b><u>Daily Reports</b></u><br>" & _
              "KPI Reports - <br></left><center>" & dkpi & _
              "</center>Media Monitors - <br></left><center>" & dmm & _
              "</center><left><br><b><u>Weekly Reports</b></u><br>" & _
              "KPI Reports - <br></left><center>" & wkpi & _
              "<br></center>Media Monitors - <br></left><center>" & wmm & _
              "<br></center>Site Intel - <br></left><center>" & wsi & _
              "<br></center>Forecasting Portals - <br></left><center>" & wfp & _
              "<br></center>Scenario Planners - <br></left><center>" & wsp & _
              "<br></center>Weekly Effectiveness - <br></left><center>" & wwe & _
              "</center><left><br><b><u>Monthly Reports</b></u><br>" & _
              "KPI Reports -  <br></left><center>" & mkpi & _
              "<br></center>Media Monitors - <br></left><center>" & mmm & _
              "<br></center>Site Intel - <br></left><center>" & msi & _
              "<br></center>Scenario Planners - <br></left><center>" & msp & _
              "<br></center>DM Reporting - </left><br></left><center>" & mdm & _
              "<br><br><br><br></center><left><img src=""\\RLBYCCMPFS07\Duch$\My Pictures\Random\2-1.jpg""></left></marquee></body></html>"
    
    intUnit = FreeFile
    
    Open ThisWorkbook.Path & "\zzxqvk.htm" For Output As intUnit
    
    Print #intUnit, strTemp
    
    Close intUnit

Sheet1.WebBrowser1.Navigate2 ThisWorkbook.Path & "\zzxqvk.htm"

Sheet1.WebBrowser1.Visible = True

End Sub

I hope this makes sense and is an easy fix.

Thanks

EddiesVoicebox

Internet Services

Web Development

Digital Marketing

Consumer Tech