テキストファイルに画像(というかバイナリ)埋め込みは昔からuuencdeとかあるんだから
そういうのを応用すればExcel VBAでもコード内に埋め込みはできるよね?

data = array( "埋め込みコード1", _
"埋め込みコード2", _
"埋め込みコード3" )

decode2file(data, file)