Creating a .bmp file with Put statement

I am trying to craete a bmp file programatically. (It is for a GIS style application in excel where I can make full use of the colour pallate and use a very large grid. I've explored charting options and shape objects but they have limitation. This will be a much better solution).

Here some of my test code to create a bmp. I cribbed it from an example and changed some of the header parameters and the pixels to try and craete a picture with random dots. It kind of works in that it doesnt crash and creates a file with all the correct bytes in as far as I can tell (I read them back in and compare them with another bmp).

When I actually open the file it is just black with dimensions 1392x1040 pixels. Not what I've specified.

Any suggestion on what I'm getting wrong?

Here's the code.

Please Login or Register  to view this content.

The attachment may help for debugging purposes -- it reads bmp headers, and will plot the picture and the RGB values (within the limits of Excel 2003's 256 columns) for uncompressed bmps with 24-bit color.

Please don't look closely at the code -- it's oooold.