Laufschrift in Excel / Animation von Text

Jürgen · 2006-05-26T13:30:40+00:00

Hallo, ich möchte in meiner Tabelle einen Text von links nach rechts laufen lassen. Was sich überhaupt nicht kompliziert anhört, ist für mich eine richtige Herausforderung, da ich keinerlei Erfahrung mit so etwas habe. Könnt Ihr mir weiterhelfe? Danke

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!
'******************************

Laufschrift in Excel / Animation von Text

Forumthread: Laufschrift in Excel / Animation von Text

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Laufschrift und Textanimation in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Laufschrift in Excel / Animation von Text

Forumthread: Laufschrift in Excel / Animation von Text

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

Forumthreads zu verwandten Themen

Infobox / Tutorial

Laufschrift und Textanimation in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread