文字列をスライドショーorフラッシュにする方法

質問

英単語を覚えるために、エクセルに入力してある単語を一つずつ、
パソコンの画面いっぱいに拡大して各数秒間表示させるようにしたいです。

文字を画面上でキャプチャーしてから1単語ずつjpg化→
スライドショーでエンドレス表示・・
というやり方でやって、使うにはいいのですが作るのが面倒なので、
何か文字を画像に変換せずに切り替えて表示させるいい方法はないでしょうか？
もしくは手軽に文字列を画像データにする方法等。

フリーソフトも探したのですが、文字が大きく表示できなかったり
英語・日本語同時に表示されるものしか見つけられませんでした。

ソフト等で使えそうなものがあればお願いします。

回答No.2

BLUEPIXY · ベストアンサー

VBE画面のプロジェクトウインドウのThisWorkbook をダブルクリック
以下をコピー貼り付け
'---------------------------------------------------------------
Public Sub 開始()
Dim EndPos As Long
Dim i As Long

EndPos = Sheets("英単語").Range("A1").End(xlDown).Row
i = 0
UserForm1.Show vbModeless
Do While True 'エンドレス
UserForm1.Label1.Caption = Sheets("英単語").Range("A1").Offset(i).Value
wait 1 '１秒待つ
i = i + 1
If i = EndPos Then i = 0
Loop

'UserForm1.Hide
End Sub

Private Sub wait(sec As Long)
Dim etime As Date

etime = DateAdd("s", sec, Now) ' 今からsec 秒後
Do Until etime < Now
DoEvents
Loop

End Sub
---------------------------------------------------------------
プロジェクトウインドウのUserForm1 を右クリックからコードの表示 画面で
以下をコピー貼り付け
'---------------------------------------------------------------
Private Sub UserForm_Terminate()
End 'フォームの×ボタンで無限ループを終了させる
End Sub

お礼

プログラムを組んで頂いてありがとうございます。
早速やってみた所、成功しました！
エクセルだけでこんな事が出来るとは思いもしなかったので感動です。
本当に奥が深いですね。
かなり手間が省けて、活用の仕方も応用が利きそうです。

文字の色を変えたり時間を変えたりと色々やってみます！

回答No.1

BLUEPIXY

エクセルのUserForm にLabel を貼り付けてフォントを大きくしておいて、
セルに入力されている単語を
Label1.Caption = Sheets("英単語").Range("A1").Offset(i).Value
みたいな感じで、表示すればいいんじゃないかと思います。

お礼

User Formというのを初めて知りました。
ある一定時間毎に文字列を表示させるプログラムが組めるのですね。
ちょっと検索してやってみようとしたのですが
どこをどうすればよいのか・・
Visual Basicを立ち上げて　Ｕser Foem にLabelを貼り付けてフォントを大きくする、というところまで出来たのですが、
そのあとのLabel1.Caption = Sheets("英単語").Range("A1").Offset(i).Value
はどこに入力　もしくは命令文？すればよいのでしょうか。

是非やってみたいので、
お手数かと思いますがもう少し詳しく教えていただければ嬉しいです。