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月17日(土) 10:30～16:30 白岡駅から徒歩6分のカフェオランジェルさんで 「癒しフェスタ＆パン祭り」。原則、毎月第３土曜日に開催です。チラシを見るにはここをクリックしてください。