こんなん・・・どう？

今日はヤクルトの工場見学にやってきました。
今日の見学は３家族です。
ビールとは違って少ない感じです。
割ときれいな建物で好感がもてます。

今週のおみやげは東京駅に隣接している大丸のねんりん家のバームクーヘンにしてみました。
夕方になるとだいたい20分くらい並ぶことになるのですが、気になったので買ってみることにしました。
すでに日持ちしないタイプは売り切れていたので、日持ちのするストレートとマウントの二つを買いました。
それなりにおいしいのですが、あまり感動はしません(笑)
東京駅で買うなら、千疋屋のパフェか、パステルのプリンがいちばんかな。

１ヶ月半が経ちますが、最近バスや電車での移動が多い私にはとても便利です。
嫁さんはN905iにしたのですが、一緒にしなくて良かったと思っています
T9で今まで入力していたので、最初は2タッチ入力に苦労したのですが、今の携帯で入力するほうが確実に早いです！

それにワンセグや音楽はFMトランスミッターを有効にすればFMラジオで聞けるので、私はいつも音声はソニーのウォークマンで聴いています。携帯に何もささずに聴くことができます。
これだけでも買って良かったと思えます。

■これは最近知った結構使えるExcelのショートカットです。

Ctrl+Shift+Space

なにもしていない状態でこれをしてもあまり感動しないと思いますが、シェイプ等のオブジェクトが貼り付けられたシートで１つだけ何かのシェイプを選択状態にして下さい。
その状態で、上記ショートカットを入力すると・・・そうです、シート上の全てのシェイプ等のオブジェクトが選択されます。


■知ってるけどよく使うショートカット

・Ctrl キーを押した状態でシェイプ等をクリックして移動させると、コピーができあがります。

・シェイプ等のサイズ変更をする際、Alt キーを押した状態でサイズ変更すると、セルの大きさに合わせてサイズ変更されます。

・F4を押すと前回の操作を繰り返します。（ただし、繰り返せない操作あり）

何もないシート上にシェイプ（テキストボックス）を複数配置してA1〜An(nは任意の数値)のセルに文字列を入力して実行して下さい。
セルの値がシェイプの中にテキストとして表示されるようになります。

使い道としては、大量のシェープに自動的に取得できる文字列をセットしなければならない場合です。
例えば、ファイル名はコマンドでファイルに出力したけど、その文字列をシェイプにセットしたい時等。

'Excel サンプル
Sub SetTextBoxCaption()

Dim aws As Worksheet
Dim psp As Shape
Dim i As Long

Set aws = Application.ActiveSheet

i = 0

Do
i = i + 1

If aws.Cells(i, 1) = "" Or aws.Shapes.Count < i Then Exit Do

Set psp = aws.Shapes.Item(i)

If psp.Type = msoTextBox Then
psp.DrawingObject.Caption = aws.Cells(i, 1)
End If

Loop

Set aws = Nothing

Exit Sub

End Sub