プライバシーシート2

数字を使ったプライバシーシートは
たくさんShapeを使ったため重かったです。

もっと実用的に、
ランダムな模様で
プライバシーシートを作ってみます。

白黒のモザイクのような模様を
セルの塗りつぶしで作ります。
セルの大きさを小さな正方形状にしてから
そのセルに乱数で白か黒かを決定して、
塗りつぶしをしていきます。

下のコードのMyRangeにテキトーな範囲が入れてありますので、
コード実行後に用紙や余白を調整して
印刷してください。

For Eachステートメント内のIf文の条件

Rnd > 0.5

は半分くらいの割合で白と黒に塗りつぶしが設定されます。

これを「Rnd > 0.3」にすればより黒が多くなり、
「Rnd > 0.7」にすればより白が多くなります。

コードはこちら

Sub macro110730a()
'プライバシーシート2

    Sheets.Add
    Dim MyRange As Range
    Dim r As Range
   
    'セルの大きさ変更
    Cells.RowHeight = 3
    Cells.ColumnWidth = 2 * (6.88 / 45)
   
    Set MyRange = Range("A1:IV500")
    For Each r In MyRange
        If Rnd > 0.5 Then
            r.Interior.ColorIndex = 1
        End If
    Next r
   
End Sub

実行後はこのようになります。

これをA4の用紙に印刷してみました。

いや～
ずっと眺められますね、これ。

もっと厚手の色画用紙に
黒ではなく濃いグレーくらいの色で印刷すれば
裏から透けなくなります。
封筒にも使えると思います。