Laufschrift in Excel / Animation von Text

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Angela!
Nein das ist egal, welchen Text un in welcher Grösse bleibt allein dir überlassen!
Ersetze mal diesen Code.
Private Sub Workbook_Open()
Tabelle1.WebBrowser1.Navigate2 "about:blank"
Do While blnLoad
 DoEvents
 Sleep 10
Loop
Tabelle1.WebBrowser1.Document.body.innerHTML = _
 "<marquee scrollamount=15 scrolldelay=25>Das ist der erste Text!</marquee>" & _
 "<marquee scrollamount=25 scrolldelay=15>Das ist der zweite Text!</marquee>" & _
 "<marquee scrollamount=40 scrolldelay=5>Das ist der dritte Text!</marquee>"
End Sub

Eine gute Seite für HTML findest du hier.
http://de.selfhtml.org/
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Hallo Angela
... wenn du den Hintergrund des gesamten WebBrowsers meinst, dann ersetzte den
Code im Modul der Tabelle durch diesen. (Mit dem Farbwert musst du halt experimentieren!)
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Const BG_COLOR_YELLOW& = &H80FFFF

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
 URL As Variant, Flags As Variant, TargetFrameName As Variant, _
 PostData As Variant, Headers As Variant, Cancel As Boolean)
blnLoad = True
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
With WebBrowser1.Document
 .body.Scroll = "no"
 .body.Style.Border = "none"
 .bgColor = VBColor2HTML(BG_COLOR_YELLOW)
End With
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
blnLoad = False
End Sub

'Entliehen von Thomas Risi, "http://rtsoftwaredevelopment.de/"
Public Function VBColor2HTML(ByVal Color As Long) As String
Dim r%, g%, b%
r = Color And &HFF&
g = Color \ &H100& And &HFF&
b = Color \ &H10000 And &HFF&
VBColor2HTML = RGB2HTML(r, g, b)
End Function

Public Function RGB2HTML(ByVal r As Integer, ByVal g As Integer, ByVal b As Integer) As String
RGB2HTML = CHex(r, 2) + CHex(g, 2) + CHex(b, 2)
End Function

Private Function CHex(ByVal nValue As Long, Optional ByVal n As Integer = 0) As String
Dim sHex As String
sHex = Hex$(nValue)
If n > 0 And Len(sHex) < n Then
 sHex = String(n - Len(sHex), "0") + sHex
End If
CHex = sHex
End Function

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Beliebteste Forumthreads (12 Monate)

Laufschrift in Excel / Animation von Text

31 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread