スネークマンショーのマクロ

スネークマンショーのマクロを作ってみました。。。

もうひとつのマクロ

｢こなさん、みんばんわ｣Wordマクロ(SnakeMan1)のついでに作ったもうひとつのスネークマンショーマクロ(SnakeMan2)を紹介します。

たいした機能はないので期待せずご覧ください。
以下にソースコードを、 


Sub SnakeMan2()
'
' SnakeMan2 Macro スネークマン文字列挿入マクロ
' 記録日 03.03.2005 記録者 NASU
'
    
Const nSnakeText = 8

Dim InsertText As String
Dim SnakeText(nSnakeText) As String

SnakeText(0) = "急いで口で吸え"
SnakeText(1) = "い、急いで口で吸え"
SnakeText(2) = "ア〜？ マチガイデンワ！"
SnakeText(3) = "こなさん、みんばんわ！"
SnakeText(4) = "いいものもある、わるいものもある"
SnakeText(5) = "いいものもある、だけどわるいものもあるよね"
SnakeText(6) = "だ、だ〜れ〜？"
SnakeText(7) = "けいさつ〜"
SnakeText(8) = "どんぐりころころ いいきもち"

'挿入する文字列の選択（乱数）
InsertText = SnakeText(Int((nSnakeText + 1) * Rnd))
'カーソル位置に文字列を挿入
Selection.InsertBefore Text:=InsertText

End Sub

このマクロはカーソルの位置に、文字列を挿入するだけです。
挿入する文字列は全部で9種類あります。

  • 急いで口で吸え
  • い、急いで口で吸え
  • ア〜？ マチガイデンワ！
  • こなさん、みんばんわ！
  • いいものもある、わるいものもある
  • いいものもある、だけどわるいものもあるよね
  • だ、だ〜れ〜？
  • けいさつ〜
  • どんぐりころころ いいきもち
とりあえず、思いついたネタを入れておきました。

使い方は簡単です。カーソルの位置に文字列を挿入するだけですので、［ツール］→［マクロ］→［マクロ］を選択して［マクロ名］を［SnakeMan2］を選択して［実行］をクリックするだけです。

最後に

スネークマンショーマクロのアイデアありましたら連絡ください。

更新日: 2005/03/14
完成日: 2005/03/05