|
ありがとうございます。
下記をそのまま貼り付けたのですが、だめなのでしょうか?
実行するだけではだめなのでしょうか?
初心者ですいません。
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
***********************************************************
Sub テロップ流れ1_セル版()
Dim st1 As String, SP1 As String, TX1 As String, Flg As Boolean
Dim DefoFntIdx As Long, Defocol As Double, i As Long
Dim MAd As String
MAd = "B2"
st1 = "シート内容に注意!!"
SP1 = StrConv(Space(4), vbWide) '間隔
'文字を1回1回ループさせようと思ったが、最初に作っておくのが簡単。
For i = 1 To 6
TX1 = TX1 & st1 & SP1
Next
TX1 = TX1 & StrConv(Space(Int(Len(st1) \ 2)), vbWide)
With Range(MAd)
.Value = ""
If .Column > 1 Then
If .Offset(, -1).Formula = "" Then
.Offset(, -1).Value = Space(1)
Flg = True
End If
End If
DefoFntIdx = .Font.ColorIndex
Defocol = .ColumnWidth
With .Font
.ColorIndex = 2
.Name = "HG正楷書体-PRO"
'.FontStyle = "メディウム 太字 斜体" 'PCによって無い。2002
.Size = 20
.Bold = True
.Italic = True
End With
.HorizontalAlignment = xlRight
.Value = StrConv(Right(st1, Len(st1) - 4), vbWide)
.Columns.AutoFit
FitCol = .ColumnWidth
.ColumnWidth = FitCol
.Value = ""
.Font.ColorIndex = 3
For i = 1 To Len(TX1)
.Value = .Value & Mid(TX1, i, 1)
Sleep 200
Next
.ColumnWidth = Defocol
.Font.ColorIndex = DefoFntIdx
.ClearContents
If Flg Then
.Offset(, -1).ClearContents
End If
End With
End Sub
|
|