Visio 2010's New VBA Options for exporting as images

[JuneTheSecond]

Visio 2010 Beta has many new options for exporting drawing as images,
such as jpg, png, etc.
You can record the operation to save drawing as iamages.
I've tried to save a drawing as jpg with 600 dpi and rotated 90 degrees.
This is an example macro.

Code Select Expand



Sub Macro4()

   'Enable diagram services
   Dim DiagramServices As Integer
   DiagramServices = ActiveDocument.DiagramServicesEnabled
   ActiveDocument.DiagramServicesEnabled = visServiceVersion140

   Application.Settings.SetRasterExportResolution visRasterUsePrinterResolution, 600#, 600#, visRasterPixelsPerInch
   Application.Settings.SetRasterExportSize visRasterFitToPrinterSize, 1.133333, 1.511667, visRasterInch
   Application.Settings.RasterExportColorFormat = visRasterRGB
   Application.Settings.RasterExportOperation = visRasterBaseline
   Application.Settings.RasterExportRotation = visRasterRotateRight
   Application.Settings.RasterExportFlip = visRasterNoFlip
   Application.Settings.RasterExportBackgroundColor = 16777215
   Application.Settings.RasterExportQuality = 100
   Application.ActiveWindow.Page.Export "E:\Users\yoda\Desktop\Export Options in Visio2010.jpg"

   'Restore diagram services
   ActiveDocument.DiagramServicesEnabled = DiagramServices

End Sub



[JuneTheSecond]

Here, detailed documents by Visio Team already exisits. 
http://blogs.msdn.com/visio/archive/2010/03/03/new-visio-2010-api-for-configuring-raster-export.aspx

[kedas]

Hi,

Although they added these extra parameters in Visio 2010 for VBA (it was already present in GUI) if you plan to use the exported image/drawing in word I advice to export to .emz format. I also use Visio 2007 so I don't had these resolutions settings in VBA, if you use .emz you don't have to care about how to reduce quality, it's vector based just like Visio you can resize in word without any quality loss.