Hallo Karin,
zumindest im Makro heißt das Steuerelement bei mir WebBrowser1.
Ich zeig Dir jetzt noch einmal meinen beiden Code.
Also:
Diese Arbeitsmappe:
Option Explicit
'**************************************************
'* 22.12.06, 30.04.07 *
'* erstellt von Karin (Beverly),
http://Excel-Inn.de*
'* Beverly_Forums@web.de *
'**************************************************
Private Sub Workbook_Open()
With Tabelle1.WebBrowser1
.Visible = True
.Navigate ThisWorkbook.Path & "\ww.gif"
.Document.bgcolor = RGB(0, 0, 250)
'Webbrowser einblenden. Tabelle1 ist der inter Name lt. Excel, nicht der Name lt. Register
Tabelle1.WebBrowser1.Visible = True
' Zuweisung des animierten GIF's an das Windows-Webbrowser-Element
Tabelle1.WebBrowser1.Navigate ThisWorkbook.Path & "\telefon.gif"
' Farbliche Gestaltung Browserfenster
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Webbrowser ausblenden. Tabelle1 ist der inter Name lt. Excel, nicht der Name lt. Register
Tabelle1.WebBrowser1.Visible = False
End Sub
...und Tabelle1
Option Explicit
'**************************************************
'* 22.12.06, 30.04.07 *
'* erstellt von Karin (Beverly),
http://Excel-Inn.de*
'* Beverly_Forums@web.de *
'**************************************************
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
' Code von Kl@us-Martin für Eigenschaften des Webbrowsers festlegen
With WebBrowser1.Document.body
' keine Bildlaufleisten
.setAttribute "scroll", "no"
' Abstand des Gif vom linken Rand
.setAttribute "leftMargin", "0"
' Abstand des Gif vom oberen Rand
.setAttribute "topMargin", "0"
' ergänzt durch Beverly: keinen Rahmen anzeigen
.Style.Border = "none"
End With
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' damit der Cursor nach dem Doppelklick nicht in der Zelle steht
Cancel = True
' Webbrowser ein- bzw. ausblenden
WebBrowser1.Visible = Not WebBrowser1.Visible
End Sub
In dem Code in Tabelle1 wird jetzt die Zeile
With WebBrowser1.Document.body moniert und gelb unterlegt.
Gruß Kurt