Excel VBAで簡単なテロップを作ってみた

Excel で簡単なテロップ

VBAで簡単なテロップを作ってみた

Module1

Sub telop()

    Sheet1.Range("E7").Value = ""
    For J = 0 To 200000
        DoEvents
    Next J

    Sheet1.Range("E7").Font.Color = 0
    S = "　　　　　　　　"
    R = "Excelでテロップ"
    T = S & R & S
    For i = 1 To Len(T)
        Sheet1.Range("E7").Value = Mid(T, i, 10)
        For J = 0 To 10000
            DoEvents
        Next J
    Next i

    Sheet1.Range("E7").Font.Bold = True
    R = "流れる文字にして"
    T = S & R & S
    For i = 1 To Len(T)
        Range("E7").Value = Mid(T, i, 10)
        For J = 0 To 10000
            DoEvents
        Next J
    Next i

    Sheet1.Range("E7").Font.Bold = False
    Sheet1.Range("E7").Font.Color = -16776961
    R = "赤文字に変えてからの、、、"
    T = S & R & S
    For i = 1 To Len(T)
        Sheet1.Range("E7").Value = Mid(T, i, 10)
        For J = 0 To 10000
            DoEvents
        Next J
    Next i

    Sheet1.Range("E7").Font.Color = 0
    Sheet1.Range("E7").Value = ""
    For J = 0 To 20000
            DoEvents
    Next J

    Sheet1.Range("E7").Value = "おわり！"
    For J = 0 To 20000
            DoEvents
    Next J

End Sub