【エクセルマクロ】ドット絵でスヌーピーを作ってみた:コピペで使えるコード

エクセルマクロ_ドット絵でスヌーピー作り方_アイキャッチ エクセルマクロで効率化する

エクセルマクロで、スヌーピーをドット絵で作成するVBAコードをご紹介します。

セルの背景色をひとつひとつ塗って、キャラクターを作ります。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

ドット絵でスヌーピーを作る

以下のマクロを実行すると、ドット絵でスヌーピーを作ります。


Sub Excelドット絵でスヌーピーを描くコードの作り方()

Dim MyColor As Variant

    Columns("A:AH").Select
    Selection.ColumnWidth = 1

    Rows("1:42").Select
    Selection.RowHeight = 10
    
    MyColor = 6299648
    
    Range("E17:E19").Interior.Color = MyColor
    Range("F16:H16").Interior.Color = MyColor
    Range("F18:F19").Interior.Color = MyColor
    Range("G16:G21").Interior.Color = MyColor
    Range("H14:H16").Interior.Color = MyColor
    Range("J12:K12").Interior.Color = MyColor
    Range("K11:O11").Interior.Color = MyColor
    Range("P12:T12").Interior.Color = MyColor
    Range("I13").Interior.Color = MyColor
    Range("T11").Interior.Color = MyColor
    Range("U10").Interior.Color = MyColor
    Range("V9:W10").Interior.Color = MyColor
    Range("X8:AA8").Interior.Color = MyColor
    Range("AA9:AC9").Interior.Color = MyColor
    Range("AC10:AE10").Interior.Color = MyColor
    Range("AE11:AE13").Interior.Color = MyColor
    Range("AF14:AF19").Interior.Color = MyColor
    Range("AG19:AG30").Interior.Color = MyColor
    Range("H22").Interior.Color = MyColor
    Range("I23").Interior.Color = MyColor
    Range("J24:K24").Interior.Color = MyColor
    Range("K25:M25").Interior.Color = MyColor
    Range("M26:N26").Interior.Color = MyColor
    Range("N27").Interior.Color = MyColor
    Range("O28:R28").Interior.Color = MyColor
    Range("S26:S27").Interior.Color = MyColor
    Range("T17:T18").Interior.Color = MyColor
    Range("P29").Interior.Color = MyColor
    Range("D39:AE39").Interior.Color = MyColor
    Range("M36:M39").Interior.Color = MyColor
    Range("N34:N36").Interior.Color = MyColor
    Range("O33").Interior.Color = MyColor
    Range("P32:W32").Interior.Color = MyColor
    Range("Q30:R31").Interior.Color = MyColor
    Range("T38").Interior.Color = MyColor
    Range("S33:S37").Interior.Color = MyColor
    Range("T33").Interior.Color = MyColor
    Range("T39").Interior.Color = MyColor
    Range("AF31").Interior.Color = MyColor
    Range("AE32:AE38").Interior.Color = MyColor
    Range("AD34").Interior.Color = MyColor
    Range("Z35:AC35").Interior.Color = MyColor
    Range("Y34").Interior.Color = MyColor
    Range("X26:X33").Interior.Color = MyColor
    Range("Y24:Y26").Interior.Color = MyColor
    Range("Z23").Interior.Color = MyColor
    Range("AE22:AE29").Interior.Color = MyColor
    Range("AD23:AD26").Interior.Color = MyColor
    Range("AD28").Interior.Color = MyColor
    Range("AD30").Interior.Color = MyColor
    Range("AB24:AC32").Interior.Color = MyColor
    Range("AA33:AB33").Interior.Color = MyColor
    Range("AA26:AA31").Interior.Color = MyColor
    Range("Z28:Z32").Interior.Color = MyColor
    
End Sub
マクロ実行後

エクセルシートに横顔のスヌーピーを作成しました。

ドット絵専用のツールを使わずに、地道にセルを着色しています。


 

色を変えたいときは?

以下コードの数値を変更すると、描く色を変更することができます。

”5287936” を指定して、緑色のスヌーピーを書いてみました。

[MyColor = 5287936]
 

 
この記事で少しでもお楽しみいただけましたら幸いです。
 

【エクセルマクロ】鬼滅の刃の羽織柄を作ってみた_背景色を塗る
...