Nal Danke sage mit Laufschrift im Textfeld....

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Frame
Bild

Betrifft: Nal Danke sage mit Laufschrift im Textfeld.... von: Bastelpeter
Geschrieben am: 22.02.2005 22:10:22

Hallo zusammen,

die Bastelstunden hierzu sage ich besser nicht.
Wer was Besseres hat, oder das Makro verbessern kann, nehme ich gerne an.

Gruß aus Mainz / Sonnenpeter


PS: Excel gut und VBA gut melde ich nur weil ich muss mir würden Wahlmöglichkeiten wie Anfänger oder Laie besser stehen :-)))


Option Explicit
Private Declare


Sub Sleep Lib "kernel32" (ByVal dwMS As Long)
'von Sonnenpeter alias Bastelpeter

Sub Laufschrift_in_einem_Textfeld()
Dim i As Integer
Dim Lauf_Text As String
Dim TextLaenge As Integer ', addzero As Integer
Dim Zaehler, ZählerEnde As Integer
Dim Text As String
Dim shp As Shape
Set shp = Sheets("Menue").Shapes("Laufschrift")
    Zaehler = 0 'Stopp bei.......?(ZählerEnde siehe unter Zaehler am Ende des Makros
    Text = "Das ist eine Laufschrift in einem Textfeld!" & Chr(160) & Chr(160) & Chr(160) 'Text der Laufschrift
    TextLaenge = Len(Text)
    ZählerEnde = TextLaenge * 3
For i = 2 * TextLaenge - Len(Text) To 2 * TextLaenge
Next i
    shp.TextFrame.Characters.Text = ""
Restart:
For i = 1 To Len(Text)
If Len(shp.TextFrame.Characters.Text) > TextLaenge Then
        Lauf_Text = Right(shp.TextFrame.Characters.Text, TextLaenge) & Mid(Text, i, 1)
Else
        Lauf_Text = shp.TextFrame.Characters.Text & Mid(Text, i, 1)
End If
    shp.TextFrame.Characters.Text = Lauf_Text
    Sleep 60
        DoEvents
    Zaehler = Zaehler + 1
If Zaehler > ZählerEnde - 2 Then
Exit Sub
End If
Next i
GoTo Restart
End Sub

Bild


Betrifft: AW: Nal Danke sage mit Laufschrift im Textfeld.... von: Bert
Geschrieben am: 22.02.2005 22:18:59

Minimale Änderung:

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMS As Long)
'von Sonnenpeter alias Bastelpeter
Sub Laufschrift_in_einem_Textfeld()
Dim i As Integer
Dim Lauf_Text As String
Dim TextLaenge As Integer
Dim Zaehler As Integer, ZählerEnde As Integer
Dim Text As String
Dim shp As Shape
Set shp = Sheets("Menue").Shapes(1)
    Zaehler = 0 'Stopp bei.......?(ZählerEnde siehe unter Zaehler am Ende des Makros
    Text = "Das ist eine Laufschrift in einem Textfeld!" & Chr(160) & Chr(160) & Chr(160) 'Text der Laufschrift
    TextLaenge = Len(Text)
    ZählerEnde = TextLaenge * 3
    shp.TextFrame.Characters.Text = ""
Do
  For i = 1 To Len(Text)
    If Len(shp.TextFrame.Characters.Text) > TextLaenge Then
            Lauf_Text = Right(shp.TextFrame.Characters.Text, TextLaenge) & Mid(Text, i, 1)
    Else
            Lauf_Text = shp.TextFrame.Characters.Text & Mid(Text, i, 1)
    End If
        shp.TextFrame.Characters.Text = Lauf_Text
        Sleep 60
            DoEvents
        Zaehler = Zaehler + 1
    If Zaehler > ZählerEnde - 2 Then Exit Sub
  Next i
Loop
End Sub


Bert


Bild


Betrifft: Danke ....... von: Bastelpeter
Geschrieben am: 22.02.2005 22:40:19

Danke Bert / Gruß aus Mainz / Sonnenpeter

PS: Excel ist mein Hobby, vieleicht bin ich bevor ich in Rente gehe in der Lage VBA gut mit gutem Gewissen auszuwählen. Keine Vba oder nur mit Recorder ist allerdings auch falsch.


Bild


Betrifft: AW: Nal Danke sage mit Laufschrift im Textfeld.... von: ransi
Geschrieben am: 22.02.2005 22:30:16

hallo peter

hab mich an laufschrift vor einiger zeit auch mal versucht.
obs besser ist weiss ich nicht,
aber vielleicht kannst du ja aus dem code was gebrauchen.
https://www.herber.de/bbs/user/18552.xls
ransi


Bild


Betrifft: Danke Ransi........ von: Sonnenpeter
Geschrieben am: 22.02.2005 22:41:30

Danke Ransi / Gruß aus Mainz / Sonnenpeter


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Nal Danke sage mit Laufschrift im Textfeld...."