虫と花 人と鳥 -16ページ目
本日1月17日(土) 10:30~16:30、白岡駅から徒歩6分のカフェオランジェル さんで 「癒しフェスタ&パン祭り」が開催されます。 私はいつも通り、スピリチュアル整体、カード占い(今回はパソコンとディスプレイを持ち込んで、パソコンで占いを始めてみようかと思っています。お試しなので少し値引きする予定)、こもれびヒーリングで出店します。 オランジェルさんの月イチのパン屋の日です。皆さんお楽しみにしていてください。 ―――――――――――――――――――――――――― 先日近くの日高屋で夕食。何気なく野菜たっぷりタンメン620円 やきとり丼320円 餃子300円 を注文して、食べました。請求書は三品合わせて1240円。 で、最後に清算してみると返ってきたお釣りが30円多いのでびっくり。請求書は機械で打ち込まれているので私の注文通りの値段になっていたのだが、実はこの三品はセット価格が設定されているので、店員が気を利かせてくれたのか(それともこういう場合のマニュアル通りの対応なのかは知りませんが)、セットとして30円引きにしてくれたのでした。 セットとして注文すべきなのをそれぞれ単品で注文した私が悪いのですが、店員のレジで良かったです。これが福しんのような機械レジならば請求書通りとなっただろうし、誰もありがとうございましたとは言ってくれないところでした。人のありがたさをつくづく感じました。ありがとう。 ――――――――――――――――――――――――――よだっちのスピリチュアル記録 やよだっちの食べログ も適宜更新中です。よろしかったら、ご覧下さい。 出店情報: スピリチュアル整体、カード占い(ローズタロットについては私のHP をご覧下さい。YouTubeでも画像を公開 しています)、こもれびヒーリングで出店します。→詳細はこちら 。 2月1日(日) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで「こもれびフェスタ」。原則、毎月第1日曜日に開催です。セラピストが未定なのでチラシは未作成です。 2月21日(土) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで 「癒しフェスタ&パン祭り」。原則、毎月第3土曜日に開催です。セラピストが未定なのでチラシは未作成です。。 毎日ブログを書くという自分で決めた縛りを解くと、いやぁー楽です。このまま書かない日が続き、野鳥観察にも行かなくなってしまうかも、という勢いですね。まあ、それならそれでいいのかも。自分のこだわりでしたので。 私のスマホはアンドロイドです。前にも紹介したことがあるvflat scanというソフト。スキャニングソフトですが、識字率が高く使い勝手もよくてとても助かっています。お試しなら月10ページしか識字できないので、必要に応じ月500円払って使用します。月3000ページまで識字できますが、とてもとてもそこまで使うことはない。 で、今月の21日までが月の使用期限なので今は専ら英文のオラクルカードの説明書をせっせと読み取ってWord文書にし、Geogle翻訳に掛けている毎日です。オラクルカードの説明書は小冊子ですが、100ページ近くはあります。今までなら、vFlat scanで1ページ毎スキャンしていたのですが、見開きページモードというのがあるので試しに使ってみると、これが便利。2ページ一度にスキャンできますから、処理速度が2倍ですね。Word文書のGeogle翻訳ってほんの一瞬で翻訳されますから、100ページが一瞬で翻訳できる、まあ、細かいところの見直しは必要としても、効率的です。 で、表題の話。アマゾンで思い立ってモバイルディスプレイを購入してみました。現在開発中のExcelでのタロットカード、ルノルマンカード、オラクルカード自動スプレッド展開ソフトを人にお見せするのに追加のディスプレイを使えば見やすいのでは、と思ったからです。 値段も九千円弱ですから、まあ試しても悪くないでしょ。 最初はつなげても画面が表示されず、あせりましたが、何とか使えるようになりました。パソコンとディスプレイの接続は基本、USB-C同士の接続で給電もされますから、ディスプレイの電源は不要。 パソコンはもう一台あります。私がアマゾンで購入した二万円足らずのパソコン。これにはUSB-C端子がありませんので、ディスプレイとの接続はHDMI-ミニHDMI接続で、別にディスプレイにはアダプターで電源供給が必要です。アダプターは付属していなかったので、たまたま家にあったアダプターを使ってみましたが、使えました。アダプターではなく、USB-A-USB-C接続でパソコンからの電力供給でも使用出来ました。 付属しているUSB-C-USB-Cコードは1m程の短いものでしたので、電気屋から3mのを購入してやってみたのですが、駄目でした。電源供給はされていますから、多分長さが問題なのでしょう。 まあ、課題はあるものの一応イベントなどでのパーフォーマンスには使えそうです。 ――――――――――――――――――――――――――よだっちのスピリチュアル記録 やよだっちの食べログ も適宜更新中です。よろしかったら、ご覧下さい。 出店情報: スピリチュアル整体、カード占い(ローズタロットについては私のHP をご覧下さい。YouTubeでも画像を公開 しています)、こもれびヒーリングで出店します。→詳細はこちら 。 1月17日(土) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで 「癒しフェスタ&パン祭り」。原則、毎月第3土曜日に開催です。チラシを見るにはここをクリックしてください 。 2月1日(日) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで「こもれびフェスタ」。原則、毎月第1日曜日に開催です。セラピストが未定なのでチラシは未作成です。 こもれびフェスタ、無事終了しました。何かバタバタしてしまいましたが、たくさんの方が施術を受けてくださり、ありがとうございます。今回もいろいろ学びがありました。 ―――――――――――――――――――――――――― 1/9 浅羽ビオトープのラストです。 ヒヨドリ モズ ジョウビタキ♀を撮ったが、ボケボケなので載せられません。 アオジ ツグミを見かけたが、撮れず。 ガビチョウ セグロセキレイ 枝被りですが、モズ。 ――――――――――――――――――――――――――よだっちのスピリチュアル記録 やよだっちの食べログ も適宜更新中です。よろしかったら、ご覧下さい。 出店情報: スピリチュアル整体、カード占い(ローズタロットについては私のHP をご覧下さい。YouTubeでも画像を公開 しています)、こもれびヒーリングで出店します。→詳細はこちら 。 1月17日(土) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで 「癒しフェスタ&パン祭り」。原則、毎月第3土曜日に開催です。チラシを見るにはここをクリックしてください 。 2月1日(日) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで「こもれびフェスタ」。原則、毎月第1日曜日に開催です。セラピストが未定なのでチラシは未作成です。 本日1月11日(日)の10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで「こもれびフェスタ」が開催されます。 私もいつものように、スピリチュアル整体、カード占い、こもれびヒーリングで出店します。天気予報によると午後は寒くなるそうなので暖かくしてお出で下さい。 ―――――――――――――――――――――――――― 1/9 浅羽ビオトープの続きです。 シメ カワラヒワ ヒヨドリ ――――――――――――――――――――――――――よだっちのスピリチュアル記録 やよだっちの食べログ も適宜更新中です。よろしかったら、ご覧下さい。 出店情報: スピリチュアル整体、カード占い(ローズタロットについては私のHP をご覧下さい。YouTubeでも画像を公開 しています)、こもれびヒーリングで出店します。→詳細はこちら 。 1月17日(土) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで 「癒しフェスタ&パン祭り」。原則、毎月第3土曜日に開催です。チラシを見るにはここをクリックしてください 。 2月1日(日) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで「こもれびフェスタ」。原則、毎月第1日曜日に開催です。セラピストが未定なのでチラシは未作成です。 1/9 新年初めて、浅羽ビオトープへ。とは言え、静かなビオトープ。あまり期待は出来ないですね。バーダーも少ししかいません。そうでしょう。 遠くの木立に鳥が見えます。尻尾からするとカワラヒワでしょう。 ホオジロ セグロセキレイ ―――――――――――――――――――――――――― MS-WORDで表→文字列、文字列(セパレータ"/")→表 の変換をします。 Sub 豹変マクロ() 'カーソルが表中なら、表を文字列に(セパレータは"/") '範囲選択中なら、(セパレータ"/"の)文字列を表に If Selection.Information(wdWithInTable) Then ActiveDocument.Tables(1).ConvertToText Separator:="/" ElseIf Selection.Type <> wdSelectionIP Then ActiveDocument.Range(Selection.Start, Selection.End). _ ConvertToTable Separator:="/" End If End Sub ――――――――――――――――――――――――――よだっちのスピリチュアル記録 やよだっちの食べログ も適宜更新中です。よろしかったら、ご覧下さい。 出店情報: スピリチュアル整体、カード占い(ローズタロットについては私のHP をご覧下さい。YouTubeでも画像を公開 しています)、こもれびヒーリングで出店します。→詳細はこちら 。 1月11日(日) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで「こもれびフェスタ」。原則、毎月第1日曜日に開催ですが、何しろ1月なので、今回は第2日曜日に開催となります。チラシを見るにはここをクリックしてください 。 1月17日(土) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで 「癒しフェスタ&パン祭り」。原則、毎月第3土曜日に開催です。チラシを見るにはここをクリックしてください 。 1/4 義父母の墓参りに新宿の東長寺へ。このお寺はいつも季節に合わせた飾り物がきれいです。今は新年なので午年にちなんだものが飾られています。 墓参後、昼食を近くのやよい軒で食べました。 ここも注文にタブレットを導入、従業員減らしを徹底していました。どこも大変ですね。 長年毎日ブログ更新をモットーにしてきましたが、最近はネタ切れ。虫はいないし、鳥を撮りにいくのにも寒すぎます。毎日ブログ更新は私の勝手なこだわりだったのです。 もう後期高齢者にも手が届く年齢になったので、「できるだけ」毎日ブログ更新ということに改めます。近頃はプログラミングが面白く、Excelとずっとにらめっこしています。なにとぞよろしくお願いします。 ――――――――――――――――――――――――――よだっちのスピリチュアル記録 やよだっちの食べログ も適宜更新中です。よろしかったら、ご覧下さい。 出店情報: スピリチュアル整体、カード占い(ローズタロットについては私のHP をご覧下さい。YouTubeでも画像を公開 しています)、こもれびヒーリングで出店します。→詳細はこちら 。 1月11日(日) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで「こもれびフェスタ」。原則、毎月第1日曜日に開催ですが、何しろ1月なので、今回は第2日曜日に開催となります。チラシを見るにはここをクリックしてください 。 1月17日(土) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで 「癒しフェスタ&パン祭り」。原則、毎月第3土曜日に開催です。チラシを見るにはここをクリックしてください 。 1/2 横浜のお寺に、父母の墓参りに行きました。と言っても既に墓仕舞いはしてあるので、共同の場所に骨壺付きで埋葬されています。 お寺では特に写真は撮りませんでした。昼に食べた寿司の写真の一部を載せましょうか。 1/3 娘の誕生日が近いので、娘の住む都内で食事。大戸屋で私の食べた物は、ひじき入り鶏つくねともろみチキンの炭火焼き1,260円+ライス大盛り30円。 食事前に、私達夫婦で娘の住居近くの神社にお参り。私自身は娘の代わりにお参りすることにあまり意味はないと思っているが、家人の気が済むならと参加しています。正月の三が日なので、神社は混んでおり、参拝するのに40分程掛かりました。 まずは鳥居の外側に並びます。 二の鳥居 花手水 ようやく賽銭箱に近づけました。 ――――――――――――――――――――――――― Excel vba セルを範囲指定しているならその範囲を、範囲指定していないならばCells(1,1)からアクティブセルまでの範囲を最大限にズーム設定するマクロ Sub Zm() Dim a$, rng As Range a = ActiveCell.Address(RowAbsolute:=False, _ ColumnAbsolute:=False) If Selection.Cells.CountLarge > 1 Then Set rng = Selection Else Set rng = Range("A1:" & a) End If rng.Select ActiveWindow.Zoom = True Range(a).Select End Sub ――――――――――――――――――――――――――よだっちのスピリチュアル記録 やよだっちの食べログ も適宜更新中です。よろしかったら、ご覧下さい。 出店情報: スピリチュアル整体、カード占い(ローズタロットについては私のHP をご覧下さい。YouTubeでも画像を公開 しています)、こもれびヒーリングで出店します。→詳細はこちら 。 1月11日(日) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで「こもれびフェスタ」。原則、毎月第1日曜日に開催ですが、何しろ1月なので、今回は第2日曜日に開催となります。チラシを見るにはここをクリックしてください 。 1月17日(土) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで 「癒しフェスタ&パン祭り」。原則、毎月第3土曜日に開催です。チラシを見るにはここをクリックしてください 。 1/1 元旦はあまり動き回らずに、氏神神社にお参りしました。 スマホで撮ったものですから、勿論格子の中はよく分かりません。年に一度元旦だけは格子が開かれている時もあるのですが、今年は閉じていました。 写真には撮りませんでしたが、境内社の祠、2社にもお参りしました。 ―――――――――――――――――――――――――― ExcelのシートをPDFに落とす方法をインターネットで検索すると例えば次のサイトがヒットし、有益な情報が得られます。 sloth-excel.com/output-pdf/ 【VBA】Excelでシート等をPDF出力する方法(サンプルコード) ただし、この情報だけでは、1シートがPDFになっても複数ページで構成されたりして、思うような形(所定の範囲を1ページのPDFで表現)にはなりません。 マイクロソフトの次の資料から得られる次の情報を加味しなければなりません。 https://learn.microsoft.com/ja-jp/office/vba/api/excel.pagesetup.fittopageswide PageSetup.FitToPagesWide プロパティ (Excel) これらから得られた情報をほぼそのまま利用させていただき、全体的に形を調えると次のようになります。選択範囲を1ページのPDFに収められるので結構便利ですよ。 Sub PDF() Dim Fname$, originalOrientation As Long ' 範囲選択されていなければ作業中止 If Selection.Cells.Count = 1 Then MsgBox "PDFにするセル範囲が選択されていないので作業中止します" Exit Sub End If ' PDFファイル名を決定 Fname = ThisWorkbook.Path & "\" & Format(Now, "mmdd-hhmm") & "_" & ActiveSheet.Name & ".pdf" ' 元の印刷設定を保持するための変数 originalOrientation = ActiveSheet.PageSetup.Orientation ' 現シートの選択範囲がPDF作成時に1ページの幅と高さに収まるようにする With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With ' 選択範囲を印刷範囲として設定 ActiveSheet.PageSetup.PrintArea = Selection.Address ' 印刷の向きを「横」に設定 ActiveSheet.PageSetup.Orientation = xlLandscape ' 選択範囲のみをPDFとしてエクスポート ' QualityをxlQualityStandardに設定することでファイルサイズを抑えられる ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Fname, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True ' 範囲選択解除 Cells(1, 1).Select ' 元の印刷設定に戻す ActiveSheet.PageSetup.Orientation = originalOrientation End Sub 次の画像は、現在開発中のルノルマンカードプロジェクトのエクセルデータを上記マクロを使ってPDF化し、それを画面キャプチャしたものです。なお、ルノルマンカードの絵柄自体はAIに造らせた後、適宜加工を加えたものです。 ――――――――――――――――――――――――――よだっちのスピリチュアル記録 やよだっちの食べログ も適宜更新中です。よろしかったら、ご覧下さい。 出店情報: スピリチュアル整体、カード占い(ローズタロットについては私のHP をご覧下さい。YouTubeでも画像を公開 しています)、こもれびヒーリングで出店します。→詳細はこちら 。 1月11日(日) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで「こもれびフェスタ」。原則、毎月第1日曜日に開催ですが、何しろ1月なので、今回は第2日曜日に開催となります。チラシを見るにはここをクリックしてください 。 1月17日(土) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで 「癒しフェスタ&パン祭り」。原則、毎月第3土曜日に開催です。チラシを見るにはここをクリックしてください 。 12/25 浅羽ビオトープのラストです。 まだ午後3時過ぎなんですが、雲の多い天気で、写真を撮ってもどんよりしています。久しぶりのシメなんですが...うーん。 クヌギカメムシがまだ活動していました。少し驚きでした。 テントウムシの蛹 木の枝に何かが。グーグルの画像検索で調べると蜘蛛の卵塊とのこと。よく見かけるジョロウグモの卵塊とは少し異なりますね。 ――――――――――――――――――――――――――よだっちのスピリチュアル記録 やよだっちの食べログ も適宜更新中です。よろしかったら、ご覧下さい。 出店情報: スピリチュアル整体、カード占い(ローズタロットについては私のHP をご覧下さい。YouTubeでも画像を公開 しています)、こもれびヒーリングで出店します。→詳細はこちら 。 1月11日(日) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで「こもれびフェスタ」。原則、毎月第1日曜日に開催ですが、何しろ1月なので、今回は第2日曜日に開催となります。チラシを見るにはここをクリックしてください 。 1月17日(土) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで 「癒しフェスタ&パン祭り」。原則、毎月第3土曜日に開催です。チラシを見るにはここをクリックしてください 。 12/15 あまり、動きのなかった浅羽ビオトープのラストで、やや尻窄み状態で恐縮です。 ヨコヅナサシガメの越冬状態は変わらず。 キセキレイですが、全くのピンボケ。一応証拠写真にはなるかなぁ? センダンの実 ヒヨドリ ―――――――――――――――――――――――――― 12/25 いつもの浅羽ビオトープです。 鳥の巣みたいなものが木の上の方にありました。 モズ♂でしょうが、とうとうこちらを向いてはくれませんでした。 カシラダカ ――――――――――――――――――――――――――よだっちのスピリチュアル記録 やよだっちの食べログ も適宜更新中です。よろしかったら、ご覧下さい。 出店情報: スピリチュアル整体、カード占い(ローズタロットについては私のHP をご覧下さい。YouTubeでも画像を公開 しています)、こもれびヒーリングで出店します。→詳細はこちら 。 1月11日(日) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで「こもれびフェスタ」。原則、毎月第1日曜日に開催ですが、何しろ1月なので、今回は第2日曜日に開催となります。チラシを見るにはここをクリックしてください 。 1月17日(土) 10:30~16:30 白岡駅から徒歩6分のカフェオランジェル さんで 「癒しフェスタ&パン祭り」。原則、毎月第3土曜日に開催です。チラシを見るにはここをクリックしてください 。Copyright © CyberAgent, Inc. All Rights Reserved.