処理中のメッセージ　 次の文書

Sub JF情報取得中()
Application.ScreenUpdating = True
'Windows("バッチフロー.xls").Activate
Range("d5").Select
現在地 = ActiveCell.Address
言葉 = ファイル名 & Chr(10) & _
"　ＪＦ情報取得中 " & i - 2 & "/" & データ件数 & Chr(10) & _
"　ＪＦ名セット　　　　　" & Chr(10) & _
"　ＰＧ名セット　　　　　" & Chr(10) & _
"　ディスクセット　　　　" & Chr(10) & _
"　作成ステップセット　　" & Chr(10) & _
"　使用ステップセット　 " & Chr(10) & _
"　ページレイアウトセット"
色 = 5
'+++++++++++++++++++ テキストボックスに書き込み
Range("A1").Select
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 30, 75, 280, 150).Select
With Selection
.ShapeRange.Shadow.Type = msoShadow6
.Characters.Text = 言葉
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ShapeRange.Fill.ForeColor.SchemeColor = 色
With .Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 13
End With
End With



　



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)