Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1404to1408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

GIF's einbetten

GIF's einbetten
05.02.2015 11: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

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

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


AW: GIF's einbetten
05.02.2015 14: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 14:24:04
Airwin
Danke, hab den Fehler gefunden

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige