Export Selection in Microsoft Visio to picture file using VBA

Question

I am having a MS Visio diagram. Often I need to export the part of the drawing to a picture file to use it somewhere else, but I am really tired of using menus.

I want to export some selected elements right to .bmp, .img, png, or other picture file without using menus bu with given filepath and defined resolution in pixels per inches.

Selected elements in Visio

After some trials I have found the working VBA code and I am going to share it here.

Gregory A · Accepted Answer · 2024-11-06 12:12:33Z

0

My solution to this problem:

Sub ExportSelectionToBMP()
    Dim vsoSelection As Visio.Selection
    Dim vsoPage As Visio.Page
    Dim exportPath As String
    Dim resolution As Double
  

    exportPath = "C:\Users\USERNAME\Desktop\11.bmp"
    resolution = 140
    
    Application.Settings.SetRasterExportResolution visRasterUseCustomResolution, resolution, resolution, visRasterPixelsPerInch
    
    
    
    Set vsoWindow = ActiveWindow
    Set vsoSelection = ActiveWindow.Selection
    

    If Not vsoSelection Is Nothing Then
        vsoSelection.Export (exportPath)
        MsgBox "Done.", vbInformation
          Else
        MsgBox "No selection", vbExclamation
    End If
End Sub

answered Nov 6, 2024 at 12:12

Gregory A

12 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Export Selection in Microsoft Visio to picture file using VBA

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related