動く文字列

一つのセルの中で動きながら表示される文字列を表現してみた。
街角でみかけるニュースなどの看板みたいなイメージだが・・・

Sub 動く文字列()
 Dim mystr As String
 Dim i As Integer
 Dim i2 As Integer
   mystr = "ニュースのような動く文字列。"

  For i = 1 To Len(mystr)
    With Range("a1")
      .Value = Left(mystr, i)
      .HorizontalAlignment = xlRight
    End With
     Application.Wait (Now() + TimeValue("00:00:01"))
  Next

  For i2 = 1 To Len(mystr)
    With Range("a1")
      .Value = Mid(mystr, i2 + 1, Len(mystr) - i2 + 1) & Left(mystr, i2)
    End With
     Application.Wait (Now() + TimeValue("00:00:01"))
  Next
End Sub
e0080122_10384353.gif

A1セルには予め背景色とフォントの色を設定しておいてから実行してみた。
ちょっと無理やりな気もするが目的のものが出来たのでよしとする。
[PR]
by slayer0210 | 2006-01-10 10:40 | マクロ


<< シート名の一部を入力すると選択する マウスを動かすとコンボボックスが選択 >>