XP, word 2003, and .EMF files

[John T.]

We've had 3 machines upgraded, with windows XP and word 2003. Now a problem has cropped up, the VB script doc sheet I wrote is supposed to put a .EMF file of the part at the bottom of the sheet.

However, with this combination, the .EMF file in the text box is solid black. Any ideas what may be causing this?

 

John

[Bullines]

Are you saying that the EMF file is one black box?

[John T.]

Yes, thats it. One black box.

Works fine with machines that have win 2K and word 2K.

John

[Bullines]

How about if you use DoBitmapFile() instead of DoMetaFile()? Does that result in a black box as well?

[John T.]

OK, just tried DoBitmapFile()...same thing, black image. Also just checked the temp file it saves to, its a black image.

Somehow, its not capturing the screen image, just a black shape.

 

John

[John T.]

I take that back. Forgot to make a slight change in the code, went back and did it. I don't get an image at all now, just a blank box with a cursor. The bitmap file isn't being written (its a .bmp file, right?)

 

FWIW, heres the code that does the graphic and puts it into word:

code:

---

'Load Graphic into textbox

graphic="c:temptest.emf" <--replaced with .bmp

DoMetafile graphic <---replaced with DoBitmapFile

.Selection.ShapeRange.Select

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

480, 390, 302).Select

.Selection.ShapeRange.TextFrame.TextRange.Select

.Selection.Collapse

.Selection.ShapeRange.Line.Visible = msoFalse

.Selection.InlineShapes.AddPicture graphic,False,True

---

[John T.]

HAH! shoulda done this first...did some searching on the forums, and made this modification...

 

code:

---

'Load Graphic into textbox

graphic="c:temptest.emf"

Call SetBackGroundColor(mcCOLOR_WHITE)

Call RepaintScreen(True)

DoMetafile graphic

.Selection.ShapeRange.Select

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

480, 390, 302).Select

.Selection.ShapeRange.TextFrame.TextRange.Select

.Selection.Collapse

.Selection.ShapeRange.Line.Visible = msoFalse

.Selection.InlineShapes.AddPicture graphic,False,True

Call SetBackGroundColor(mcCOLOR_BLACK)

Call RepaintScreen(True)

---

Works now! also tried the open GL off (already was) and turning down hardware acceleration. neither worked!

 

John

[archer]

Hi John,

I came up to WI a while ago, and Jake gave us a copy of your script to use in NC. We were having the same problem w/ 2 of our shop computers and I couldn't figure it out. I'm going to try doing what your last post says and see if that helps. We could get a correct image if the screen backgound was set to white. I'll write back and let you know what happens.

 

Dennis Archer

[archer]

PERFECT! Thanks for the code John!! Let me know if there is anything I can help you with.

[John T.]

Glad it worked for you Dennis...Right now, ol' Buss did something to our files and we can't get VB scripts to work (missing)...if he should visit, could you arrange for him to have an "accident"?

 

John