ワードでやりました。エクセルで出来るかは試してません。 画像を挿入して右クリック＞図の書式設定＞鮮明度を最大化＞濃い！ 最初からすごい薄いヤツには効果が薄い模様。 しこたま文書をJPGでスキャンして絶望していましたが何とかなりました。 以上

A～H列が全て空白の行を見つける処理。 iRow = 2 Do While Application.WorksheetFunction.CountA(Range("A" & iRow & ":H" & iRow)) > 0 '何か処理を入れる iRow = iRow + 1 Loop ワークシート関数CountAは空白ではないセルの個数を返す。以上。

'余白設定 With ThisWorkbook.Worksheets("Sheet1").PageSetup .LeftMargin = Application.CentimetersToPoints(1.8) .RightMargin = Application.CentimetersToPoints(1.8) .TopMargin = Application.CentimetersToPoints(1.9) .BottomMargin = Application…