3.「パターン分x1 ピクセル」のLongはVBA7とそれ以外で条件分岐
#If VBA7 Then
ReDim myData(1 To Len(strPatern) * BarPix, 0 To 0) As LongLong
#Else
ReDim myData(1 To Len(strPatern) * BarPix, 0 To 0) As Long
#End If
コメント内容:今まであった指摘のほかに、
Private Function FillHeader(Data() As Long, bmih As BITMAPINFOHEADER) As Booleanトップダウン形式になっているのを、「'」でコメントアウトし、ボトムアップ形式を有効にすると、Excel2010でも正常に動作するようです。