大腸内視鏡検診

今日は大腸検診の日、病院の駐車場でこれを書いています、何か飲み物をと近くの店で缶コーヒーを買ました、ミルク入りは凝固しちゃうのでミルクとか牛乳とか書いてないやつを買ったつもりですが裏側にしっかり書いてありました、仕方ないので病院の自販機でもう一本違うやつを買いました、今度は入ってないみたいです、でも開けてびっくりミルク入り、書いてなかったのにと裏をよく見ると乳化剤入りと書いてありました、結局飲まずにもったいないけど捨てて結局お茶を買いました、340円も使ってしまいました。

やっと終わったぞ今の時間は1時40分。朝6時半過ぎに家を出て・・・・・ああ疲れたよー、ところで結果というと無罪でした、これであと2年は面倒くさい検診もやらなくて済みます。

上原ひろみって凄い！

今日一日でモーツァルトのCD、8枚を焼きました、48倍速に対応したCD-Rですけど3枚も失敗しちゃいました、やはりDVD-Rと同じで速度は控えたほうがいいみたいです。

ところで「東京JAZZ2006」をBSでやっていたのを録画して今日少しだけ観たのですが「上原ひろみ」って若干27歳の女の子が出てたけど「凄い」のひとことです、あんな凄い子がいるなんて思わず震えが来そうなくらいでした、凄いパワーでした。

Sailing

ジェフ・ベックが大好きだとはどこかで書いたかもしれませんがジェフ・ベック・グループの最初の2枚のCDのヴォーカルはロッド・スチュワートでした。

ひょんなことから「sailing」を耳にしたので確かロッド・スチュワートのレコード・アルバムを2枚ほど持っていたはずと探したら出てきました、その中になんとその「sailing」が収録されていたのです、この曲が聴きたくて多分買ったと思うのですが今となっては定かではありません。

当時レッド・ゼッペリン一辺倒だったので特に印象に残らなかったのです。

今このレコードを改めて聴いてみるとその良さ、凄さが解らなかった自分が情けないですね、ロック・ヴォーカリストとしてはロッド・スチュワートが最高だと思うし、女性はジャニス・ジョプリンだろうと思います。

ロッド・スチュワートの「Atlantic Crossing」をCD-Rに焼いて毎日聴いています。

個人的にB・B・Aにロッドを加えたら最高のユニットが出来るだろうなと思い続けていたのですけど後になって知ったことですがジェフ・ベックもそれを目論んでいたそうです。

テリー・ボジオとトニー・ハイマスとのユニットにロッドでも凄いユニットが出来そうです。

線路描画マクロ

線路を描くマクロが雑誌に載っていたのでこれは便利だと思い使っていますがこのままでは出来た線路を選択してドラグした場合、ずれることがあるので少し手を加えました、使い方は「オートシェイプ」で適当に線を引いてそれを選択した状態でこのマクロを実行するだけです。

Sub 線路()
　　一番上 = Selection.Top
　　一番左 = Selection.Left

　　With Selection.ShapeRange.Line
　　　　.Weight = 6#
　　　　.Visible = msoTrue
　　　　.Style = msoLineSingle
　　End With
　　Selection.Name = "Senro_1"
　　Selection.Copy
　　ActiveSheet.Paste
　　With Selection.ShapeRange.Line
　　　　.Weight = 4.5
　　　　.Visible = msoTrue
　　　　.Style = msoLineSingle
　　　　.DashStyle = msoLineDash
　　　　.ForeColor.SchemeColor = 9
　　.Visible = msoTrue
　　End With
　　Selection.Name = "Senro_2"
　　Selection.Top = 一番上
　　Selection.Left = 一番左

'以下がずれを防止するおまじない。

　　ActiveSheet.Shapes.Range(Array("Senro_1", "Senro_2")).Group

End Sub

しかし結構面倒、でもちゃんとその操作をメニューから実行できるようにと以下のマクロも載っていたのでこれを一度実行すれば後は右クリックメニューから実行できます。

Sub 線路をメニューに追加()

　　Set 追加メニュー = CommandBars("curve").Controls.Ad
d
　　追加メニュー.Caption = "線路に変換"
　　追加メニュー.OnAction = "線路"

End Sub

Sub 線路メニューリセット()

　　CommandBars("curve").Reset

End Sub

実行前



実行後



こんな感じです。

ここまでやるとは・・

会社の2階の男子トイレ、温水シャワートイレなんですがなんとこれから冬だというのに電源を切ってあるらしいとのうわさを耳に覗いてみました。

うわさは本当でした。

ここまでやるか。

換気扇を止めるだけに留まらずここまでやるとは・・・。

早老症候群

昼に夕べ録画しておいたモーツァルトの番組の中で脳科学者の茂木某氏が「人は感動したとき受け入れ切れないものが涙として出てくるんです」と言っていました、素直にそうかもしれないと思う。

そのあとDNAに関する再放送のTV番組の中で早老症候群の子供のことを取り上げていました、その子が番組の中で「死ぬ覚悟は出来ている。」と語っていました、これがまだたった13歳の子供の言葉なのです、あまりに重い言葉でした、あの歳で死を正面から見据えなければならないなんてあまりにむごいことです。

私の脳はそれを受け入れ切れなかったのでしょう、涙が出てきてしまいました。