上野の国立科学博物館に行ってきた。

.○。ο゜∞◯。◯о○o。..。o○.○。ο゜∞◯。◯о○o。..。o○.○。ο゜∞◯。◯о



女房と上野の国立科学博物館に行ってきた。
夏休みということで子供連れの家族で賑わっていた。
600円の入場料にしては見応えがあり、高い感はなかった。



昔の日本人の変遷を等身大のリアルなフィギュアで表現されているが手足はまるで本物だ。




一杯写メ撮ったが、ブログに載せて話題化させるほどのものはなかなか見つからない。
が、目から鱗の情報もあった。
次回はその辺をお話します。

新大久保コリアタウン通りに行ってきた

.○。ο゜∞◯。◯о○o。..。o○.○。ο゜∞◯。◯о○o。..。o○.○。ο゜∞◯。◯о


女房と新大久保のコリアタウン通りへ行ってきた。
此処は不況風なんのその。
韓流ファンで賑わうこの街は猛暑にも関わらず熱中症糞食らえの熱気である。

女房は韓流ブームの前から韓国料理が好きだったので食材を買って新大久保を後にした。

MsgBoxをおしゃれな画像として貼り付ける

.○。ο゜∞◯。◯о○o。..。o○.○。ο゜∞◯。◯о○o。..。o○.○。ο゜∞◯。◯о

自分はパソコンで見かけるメッセージボックスを画像化して粋な表示で楽しんでいる。

「どこが面白いの？」と揶揄するかたはスルーして下さい。



Excelでワードアートでも図形作成でもいいから何かをシートに表示(貼り付け)させて下さい。

それを右クリックするとメニューが表示されるので「マクロの登録」を選択して下さい。
「新規作成」のボタンを押すとScriptを入力する画面が現れます。

Sub ～_()


End Sub

このSub ～_()からEnd Subの間に次のScriptをぶちこめば希望の文言のメッセージボックスを表示させることができます。
※"goo"のgooはメッセージボックスのキャプションに表示させたい文言に変えて下さい。

a = InputBox("伝言です！" + Chr(13) + "誰にメッセージを送りますか？","goo")
b = InputBox("伝言です！" + Chr(13) + "何とメッセージを送りますか？","goo")
MsgBox a + Chr(13) + b, 2 + 64, "goo"

そうしたらシートに戻って貼り付けた文字やら図形をクリックし、表示させたい文言を入れてみよう。

希望のメッセージが表示されたら、PrintScreenを押して画面全体をキャプチャー。メッセージボックスのボタンをクリックしてメッセージボックスを消しましょう。

Winキー→プログラム→アクセサリー→ペイントを開き→編集→貼り付けでキャプチャーした画面を貼り付けます。

画像にして使用したいメッセージボックスをペイントの「切り取り」機能を使って切り取り、(ExcelやWordなら直接貼り付きます) Ctrl+N →Ctrl+V で新規作成画面に貼り付けましょう。
保存の際はファイルタイプをＪＰＥＧにすれば使い勝手がよく、メールなどの画面にも貼り付いてくれます。

どうぞお試しあれ。

こちらにもおこしやす。

👇

cobaring.com