掲載画像のようなメッセージボックスを携帯メールの画面に貼り付けてみよう。
Excelで画像でも図でもワードアートでもよいから右クリック→マクロを登録でマクロ名_()改行改行End Subの間に下のマクロをぶちこんで好きな言葉を表示させよう。それができたらプリントスクリーンで画面全体をコピーしてベイントブラシに貼り付けよう。必要部分を切り取って新規作成画面で張り付けたら、ファイル形式をjpgで名前を付けて保存しよう。
※“希望名”のところに付けたいキャプション名を入れて下さい。
a = InputBox("伝言板です！" + Chr(13) + "誰にメッセージを送りますか？", "MySystems")
If "" く> passwd Then
b = InputBox("伝言板です！" + Chr(13) + "何て伝えますか？", "MySystems")
MsgBox a + Chr(13) + b, 2 + 64, "希望名"
ちょっと難しかったかな。
