|
▼あきら さん:
サンプルです。(おまけ?でオートショー版も)
Sub ShowManual()
Static cnt As Long
Dim n As Long
n = cnt Mod 3
With ActiveSheet.TextBoxes("Text Box 1").Characters
Select Case n
Case 0
.Text = "AAAAAAAA"
Case 1
.Text = .Text & vbLf & "CCCCCCCC"
Case 2
.Text = ""
End Select
End With
cnt = cnt + 1
End Sub
Sub ShowAuto()
Dim myWord As Variant
Dim mysep As String
mysep = ""
With ActiveSheet.TextBoxes("Text Box 1").Characters
.Text = ""
For Each myWord In Array("AAAAAAAA", "CCCCCCCC")
.Text = .Text & mysep & myWord
Application.Wait Now() + TimeValue("0:0:1")
mysep = vbLf
Next
MsgBox "ショーを終了します"
.Text = ""
End With
End Sub
|
|