月曜日がきたから月曜日ボタンをつくったよ

月曜日は万人に訪れる

この世で避けては通れないものがある。それは、月曜日である。

今週もやってまいりました。月曜日です。
日曜日が終えてしまう。そうした焦燥感からまたつまらぬものを作ってしまった...

月曜日ボタンってなにさ？

ボタンを押すと月曜日の文字が入力されるだけのボタンをWordで作りました。
下のようなものをつくっていくよ。

早速つくっていくよ。
Word VBAなのでリボンに開発タブを表示できるようにして、Visual Basicを選択するよ。

①まずはフォームの形をつくるよ。

ユーザーフォームの挿入を選んで、こんな感じに配置していくよ。
ツールボックスからコマンドボタンを選んで、プロパティから「表示 - caption」の部分を好きな文字に書き換えるとこんな感じになるよ。

②できたらボタンの中で実行するコードを書いていくよ。
つくったボタンを選択して、ボタンに対してやってほしいことを書いていくよ。

Private Sub CommandButton1_Click()
    Selection.TypeText Text:="月曜日"
End Sub

これでボタンを押すと月曜日と入力されるようになるよ。
プロパティからボタンの「（オブジェクト名）」を書き換えると、Subで指定する部分も変わってくるから気をつけてね。ここではデフォルトのままだよ。

③文書からフォームを呼び出すようにしていくよ。
次のコード（MondayButtonShow）を書いてフォームを出すようにしていくよ。

Sub MondayButtonShow()
  MondayButton.Show
End Sub

ここでは、フォームに対しての「（オブジェクト名）」を変更しているのでMondayButtonを呼び出すようにしているから注意してね。

④完成。
③でつくった（MondayButtonShow）を実行して、月曜日が文書に入力されたら完成だ。
これを使って楽しい月曜ライフを満喫しよう。

おしまい。