PNG output using .SetInternetPublishingOptions (for programmers)

Question:

Using the automation method .SetInternetPublishingOptions, can you create PNG graphics as the output?

Answer:

Yes. Use 3 for the 9th argument,

Bitmap format to use. (0=bmp, 1=jpg, 2=gif, 3=png)

Then name the output image files with the PNG extension.

Here is a short example:

______________________________________

Public Sub ExportBitmapAsPNG()

Dim objmiles As Object

Set objmiles = GetObject("c:\ModernSteel.ml7", "Milestones")

'Open Milestones schedule

With objmiles

.Activate

'Set the internet publishing options for image type, scaling, and compression

.SetInternetPublishingOptions 0, "moot", 1, 0, 1, 0, G, 0, 3, 1, 1, 1, 1, 0.5, 0, 0

'Publish the bitmap

.SaveBitmap ("c:\ModernSteel.png")

.Close "NoSave"

End With

End Sub

______________________________________

One graphic will be created for each page of the Milestones file. The output files will be numbered as a part of the graphic file name. Using the example above, ModernSteel.png will become ModernSteel001.png for the first page in the schedule, ModernSteel002.png for the second page, and so on.