Animierte GIF's im WebBrowser

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Gerd,
ich vermute, du willst die GIF's in der Tabelle anzeigen.
WebBrowser-Steuerelement einfügen, Name: WebBrowser1
Image-Steuerelement einfügen, Name: Image1
Folgenden Code in das Modul der Tabelle und den Pfad zum GIF anpassen.

' **********************************************************************
' Modul: Tabelle1  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Const cstrGIF As String = "E:\Forum\Stripes3.gif" 'Pfad zur Bilddatei

Public Sub ShowAnimatedGIF(WebBrowser As Object, Image As Object, ByVal sFileGIF As String)

Dim sHTML As String

' Größe bestimmten
With Image
  .Visible = False
  .AutoSize = True
  .Picture = LoadPicture(sFileGIF)
End With

With WebBrowser
  ' Größe: WebBrowser-Control
  .Width = Image.Width
  .Height = Image.Height
  
  ' HTML-Code für das Anzeigen der Grafik
  sHTML = "about:" & _
    "<html>" & _
    "<body leftMargin=0 topMargin=0 marginheight=0 " & _
    "marginwidth=0 scroll='no'>" & _
    "<Image src=""" & sFileGIF & """></Image></body></html>"
  
  .Silent = True
  .Navigate sHTML
End With
End Sub

Sub Test()
Call ShowAnimatedGIF(WebBrowser1, Image1, cstrGIF)
End Sub

Die Prozedur "Test" ausführen.

Gruß Sepp

PS:
Die Sub zum Stoppen funktioniert ebenfalls - danke.
Nun zum Verschwinden des Webbrowser-Steuerelementes. Meines Erachtens kann der WebBrowser1 nicht verschwunden sein, da beim Einfügen eines weiteren Webbrowsers der Name "WebBrowser2" vergeben wird und beim selektieren im Entwurfsmodus folgendes in der Bearbeitungszeile steht:
Userbild

Wenn ich die Datei erneut öffne, erscheint ein Warnhinweis:
"Diese Anwendung versucht, ActiveX-Steuerelemente zu initialisieren, die unsicher sein können.
Wenn Sie der Datenquelle vertrauen, wählen Sie "Ja" und die Steuerelemente werden mit Ihren Dokument-Standardeinstellungen initialisiert."
Kann es sein, dass der WebBrowser1 aufgrund der Initialisierung mit Dokument-Standardeinstellungen für den Code nicht sichtbar oder versteckt ist? Was müsste denn in den Dokumenteinstellungen stehen? Oder muss in der Sub Test() der WebBrowser1 erst noch zum Leben erweckt werden?
Bitte nochmal helfen
Gruß Gerd

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Animierte GIF's im WebBrowser

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread