Select several objects in Microsoft Visio and export them to .png file

gistfile1.vb

Sub Macro1()

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

    Application.Settings.SetRasterExportResolution visRasterUseScreenResolution, 96#, 96#, visRasterPixelsPerInch
    Application.Settings.SetRasterExportSize visRasterFitToSourceSize, 8.979167, 2.197917, visRasterInch
    Application.Settings.RasterExportDataFormat = visRasterInterlace
    Application.Settings.RasterExportColorFormat = visRaster24Bit
    Application.Settings.RasterExportRotation = visRasterNoRotation
    Application.Settings.RasterExportFlip = visRasterNoFlip
    Application.Settings.RasterExportBackgroundColor = 16777215
    Application.Settings.RasterExportTransparencyColor = 16777215
    Application.Settings.RasterExportUseTransparencyColor = False
    ActiveWindow.DeselectAll
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(57), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(51), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(75), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(80), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(81), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(56), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(53), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(17), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(70), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(62), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(101), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(85), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(100), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(68), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(95), visSelect
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(67), visSelect
    Application.ActiveWindow.Selection.Export "C:\Users\Pavel\Dropbox\Projects\RT\VisioToPng\VisioToPng\picture.png"

    'Restore diagram services
    ActiveDocument.DiagramServicesEnabled = DiagramServices

End Sub