Transform 24bit BMP to grayscale??

[Harry Simpson]

I'm having trouble reducing the size of a bitmap programmaticall y: The file
size of the original is 2400k.
The picture is 816x1056. 16 million colors i think. I only need grayscale
render.

Public Sub ConvertBadBitma p(ByVal FilePath As String)
Dim objPicture As New Bitmap(816, 1056,
System.Drawing. Imaging.PixelFo rmat.Format16bp pGrayScale)
objPicture = objPicture.From File(FilePath)
objPicture.Save ("C:\ConvertPHO TO.bmp")
End Sub

I suppose the formfile is overriding the original obj properties right? but
not familiar enough with the syntax to know better. MS sight is sure no
help!

TIA
Harry

[vMike]

I have used something along the following lines successfully to adjust the
size of a bitmap. I am not too familiar with changing to grayscale.

Dim mysize as size = new size(inthorz,in tVert)
Dim myBitmap As bitmap = New Bitmap(strFile)
myBitmap = new bitmap(mybitmap ,mysize)
myBitmap.save(s trNewFile,Image Format.Jpeg)

"Harry Simpson" <hs*******@nosp amphgt.net> wrote in message
news:ei******** ******@TK2MSFTN GP09.phx.gbl...

I'm having trouble reducing the size of a bitmap programmaticall y: The file size of the original is 2400k.
The picture is 816x1056. 16 million colors i think. I only need grayscale render.

Public Sub ConvertBadBitma p(ByVal FilePath As String)
Dim objPicture As New Bitmap(816, 1056,
System.Drawing. Imaging.PixelFo rmat.Format16bp pGrayScale)
objPicture = objPicture.From File(FilePath)
objPicture.Save ("C:\ConvertPHO TO.bmp")
End Sub

I suppose the formfile is overriding the original obj properties right? but not familiar enough with the syntax to know better. MS sight is sure no
help!

TIA
Harry

[Harry Simpson]

Thanks Mike,

As always i wasn't too clear on what i need. I actually want to keep the
same physical size but reduce the bits per pixel down to a grayscale 256
color Bitmap.

Thanks
Harry

"vMike" <Mi************ @nospam.gewarre n.com.delete> wrote in message
news:bn******** **@ngspool-d02.news.aol.co m...

I have used something along the following lines successfully to adjust the
size of a bitmap. I am not too familiar with changing to grayscale.

Dim mysize as size = new size(inthorz,in tVert)
Dim myBitmap As bitmap = New Bitmap(strFile)
myBitmap = new bitmap(mybitmap ,mysize)
myBitmap.save(s trNewFile,Image Format.Jpeg)

"Harry Simpson" <hs*******@nosp amphgt.net> wrote in message
news:ei******** ******@TK2MSFTN GP09.phx.gbl...

I'm having trouble reducing the size of a bitmap programmaticall y: The

file

size of the original is 2400k.
The picture is 816x1056. 16 million colors i think. I only need

grayscale

render.

Public Sub ConvertBadBitma p(ByVal FilePath As String)
Dim objPicture As New Bitmap(816, 1056,
System.Drawing. Imaging.PixelFo rmat.Format16bp pGrayScale)
objPicture = objPicture.From File(FilePath)
objPicture.Save ("C:\ConvertPHO TO.bmp")
End Sub

I suppose the formfile is overriding the original obj properties right?

but

not familiar enough with the syntax to know better. MS sight is sure no
help!

TIA
Harry