How to set resolution and dimension to SVG before exporting as Tif

[IBU]

Hi

I'm using visio 2003 SDK to save a SVG image as Tiff.

When I try to save a svg image in TIFF format in VISIO, it opens a TIFF
output option Dialog Box where I can provide custom Resolution and
dimension's.

I need to automated this process by providing values for resolution and
dimension dynamically,

I'm using a VBScript code as shown below,

option explicit

Dim AppVisio
Dim AppDocs
Dim AppDoc
Dim AppPage
Set AppVisio = CreateObject("Visio.InvisibleApp") '----- Creates Visio in
Invisible Mode -----
AppVisio.Visible = false
If AppVisio Is Nothing Then
wscript.echo "Can not connect to Visio..."
wscript.quit
End If
set AppDocs = AppVisio.documents
set AppDoc = AppDocs.Open (SourceFile)
set AppPage = AppDoc.Pages.Item(1)
AppPage.Export "C:\test.tif"

When i run this, i'm getting image with resolution and dimension I provided
in Visio application previously in the application, but i need to dynamically
set it.

Note: I'm opening visio in invisible mode.

My Questions:

1. Can Resolution and dimension be set through VBScript before exporting the
svg as tiff?

2. If yes can you please provide a code snippet of doing it.

Thanks in advance.

 

[JuneTheSecond]

Hi IBU,

I don't know about script, but how would you try DoCmd to show
the dialog where you can change resolution with your hand.

Application.DoCmd visCmdImagePropertiesDlg '1883

And please try the dialog is seen in inVisible application,
if not seen, how would you like minimum window state?

 

[JuneTheSecond]

I am sorry.
SVG seems cannot display this dialog, need to change image format to DIB
with "ActivePage.PasteSpecial visPasteDIB" after copy the SVG shape.