Greetings everyone!

I am creating a macro to export drawing pages as grayscale jpg format in Visio 2010. And I just write the code as follows.

Public Sub SaveAsJPG()
    With Application.Settings
        .RasterExportColorFormat = visRasterGrayScale
    End With

    Call ActiveWindow.Page.Export("d:\test\test.jpg")
End Sub 

http://office.microsoft.com/en-gb/visio-help/HV080350354.aspx

After running this macro, properties of generated jpg file in "d:\test" folder are 96 dpi, 24 bit color depth (Not gray scale).

How can I generate exported files as gray scale jpeg format?
 
Please kindly advise me!

Regards,
 
koma_deko