Animerade bilder

Animerade bilder i arbetsblad och formulär

I detta tips visas hur vi kan använda oss av animerade (rörliga) gif-bilder i arbetsblad och i formulär.

Följande bild används i exemplet:

XL-Dennis på strålande humör!

För att möjliggöra animerade gif-bilder krävs att vi använder oss av ett ActiveX-objekt - Microsoft Web Browser.

Animerad bild i arbetsblad

För att få tillgång till ActiveX-objektet för arbetsblad:

Ta fram verktygsfältet kontroller.

Klicka på objektet "Fler kontroller" och välj Microsoft Web Browser.

Rita ut objektet på arbetsbladet.

Följande kod placeras i arbetsbokens modul:

Option Explicit

Private Sub Worksheet_Activate()

   Me.WebBrowser2.Navigate ThisWorkbook.Path & "\surfer.gif"

End Sub

Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, URL As Variant)

   Me.WebBrowser2.Document.Body.Scroll = "no"

End Sub

Animerad bild i formulär

För att få tillgång till ActiveX-objektet för formulär:

Välj kommandot Verktyg | Fler kontroller... i VB-editorn.

Bocka för objektet.

Rita ut det i formuläret.

Så här ser formuläret ut när det körs (bilden kan inte visas rörlig här):

Följande kod kopplar den önskade gif-bilden till ActiveX-objekten:

Private Sub UserForm_Initialize()

   Me.WebBrowser1.Navigate ThisWorkbook.Path & "\surfer.gif"

End Sub

För att ta bort rullningslisten för bilden krävs ytterligare en händelseprocedur som placeras i formulärets kodmodul:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

   Me.WebBrowser1.Document.Body.Scroll = "no"

End Sub