Powershell script that exports Visio drawings in the current directory to png

Export-VisioDrawing.ps1

# Powershell script that exports visio drawings to png
# Based on a F# script with the same purpose which can be found at
# http://stackoverflow.com/questions/1145269/visio-to-image-command-line-conversion

$outputFormat = ".png"
$inputFilePattern = "*.vsdx"

# Load Visio Interop Assembly
[Reflection.Assembly]::LoadWithPartialname("Microsoft.Office.Interop.Visio") > $null

# Visio Settings
$visOpenRO = 2
$visOpenMinimized = 16
$visOpenHidden = 64
$visOpenMacrosDisabled = 128
$visOpenNoWorkspace = 256


function Export-VisioDrawing($file)
{
	$flags = [System.Convert]::ToInt16($visOpenRO + $visOpenMinimized + $visOpenHidden + $visOpenMacrosDisabled + $visOpenNoWorkspace)
	$application = New-Object "Microsoft.Office.Interop.Visio.ApplicationClass"
	$document = $application.Documents.OpenEx($file.FullName, $flags)

	foreach($page in $document.Pages)
	{

		$fileNameWithoutExtension = [System.IO.Path]::GetFileNameWithoutExtension($file.Name)

		# if document contains multiple pages, append page name to output file name
		# otherwise use the same name as the input file

		if($document.Pages.Count -gt 1)
		{
			$imagePath = Join-Path $file.Directory.FullName "$($fileNameWithoutExtension)_$($page.Name)$($outputFormat)"
		}
		else
		{
			$imagePath = Join-Path $file.Directory.FullName "$($fileNameWithoutExtension)$($outputFormat)"
		}

		$page.Export($imagePath)
	}
	$document.Close()
	$application.Quit()
}

# Get visio files in the current directory and export all of them
$files = Get-ChildItem $inputFilePattern
foreach($file in $files)
{
	Export-VisioDrawing $file
}

I wrote a similar solution as a VB macro inside a Visio document years ago. Problem is maintaining and copying these macros across documents, and VB as such... Thank you for this much, much better solution to do the job from outside of any document :-)

I wrote a similar solution as a VB macro inside a Visio document years ago. Problem is maintaining and copying these macros across documents, and VB as such... Thank you for this much, much better solution to do the job from outside of any document :-)

That's great to hear, glad it was useful to you.

Hi, @ap0llo
I am getting the following error while running the powershell script

The remote procedure call failed. (Exception from HRESULT: 0x800706BE)
At C:\Users\aa\Downloads\Export-VisioDrawing.ps1:25 char:2
+     $document = $application.Documents.OpenEx($file.FullName, $flags)
+     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : OperationStopped: (:) [], COMException
    + FullyQualifiedErrorId : System.Runtime.InteropServices.COMException

I am using the Visio 2019

Worked a charm! Thanks for saving me a lot of work!