Need help with saving an .EMF image

[TK@PSG]

I'm trying to get a zoomed up image shot for my setup sheet. I've done a ton of searching trying to learn more, but have gotten stumped AGAIN. I would like to get a closer image shot from my DoMetafile command. Here is what I've been experementing with. No surprise, it doesn't quite work. Anyone able to help me out?

 

code:

---

   ' save as EMF

strEMF = strCurrPath & "" & strBName & DEF_EMF_EXT

 

If DoMetafile(strEMF) = True Then

.Selection.ShapeRange.Select

.ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 16.05, _

522, 572.85, 243).Select

.Selection.ShapeRange.TextFrame.TextRange.Select

.Selection.Collapse

.Selection.ShapeRange.Line.Visible = msoFalse

.Selection.InlineShapes.AddPicture graphic,False,True

 

If (DoMetafile(strEMF) = False) Then

ShowString "Couldn't save as meta file!"

End If

---

This is one section from the modified VB script BMP_EMF.vbs

 

Thanks for the help.

[Bullines]

It appears that the DoMetaFile() function autmatically fits all of your geometry into the screen, so any previous zooming is lost.

[TK@PSG]

How can I get a closer shot for my setup sheet then? Gunther seems to be able to do it in his ncdatasheet.

[Bullines]

That's a C-Hook, and even then, he may be rolling his own screen cap function; something that isn't possible with VBS.

[TK@PSG]

Can I edit the DoMetaFile function to get the zoom I want?

 

or

 

How do I call another progy to do what I want. I installed Irfanview as suggested in other posts, but how do I call it and use it in a VB script?