Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

GIF's einbetten

Forumthread: GIF's einbetten

GIF's einbetten
05.02.2015 12:44:25
Airwin
ich habe u.a. Makro beim öffnen der Excel Datei. Das funkt ja auch recht gut, nur leider ist das GIF nicht dort, wo ich es haben will. Wie kann ich die Position des GIF's fixieren?
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

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: GIF's einbetten
05.02.2015 14:04:00
Beverly
Hi,
ergänze noch
.Top = 50
.Left = 50


AW: GIF's einbetten
05.02.2015 15:11:55
Airwin
Danke, aber da bekomme ich folgende Fehlermeldung:
Laufzeitfehler '438':
Objekt unterstützt diese Eigenschaft oder Methode nicht
P.S. habe ein "End With" (Zeile 4) vergessen und jetzt ergänzt. Funkt trotzdem nicht
With Tabelle1.WebBrowser1
~f~ .Visible = True
~f~ .Navigate ThisWorkbook.Path & "\ww11.gif"
~f~ End With
~f~ With Tabelle1.WebBrowser1.Document.body
~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"
' keinen Rahmen anzeigen
.Style.Border = "none"
End With

Anzeige
AW: GIF's einbetten
05.02.2015 15:24:04
Airwin
Danke, hab den Fehler gefunden
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18