GIF's einbetten
05.02.2015 11:44:25
Airwin
Schon jetzt vielen Dank für eure Antworten.
Airwin
Private Sub Workbook_Open()
If Range("D4").Value < 20 Then
' Webbrowser einblenden.
~f~ With Tabelle1.WebBrowser1
~f~ .Visible = True
~f~ .Navigate ThisWorkbook.Path & "\ww11.gif"
~f~' keine Bildlaufleisten
~f~ .setAttribute "scroll", "no"
~f~' Abstand des Gif vom linken Rand
~f~ .setAttribute "leftMargin", "0"
~f~' Abstand des Gif vom oberen Rand
~f~ .setAttribute "topMargin", "0"
~f~' keinen Rahmen anzeigen
.Style.Border = "none"
End With