Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Ole with word InlineShapes.AddPicture
Message
From
23/03/2004 15:58:51
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Ole with word InlineShapes.AddPicture
Miscellaneous
Thread ID:
00889027
Message ID:
00889027
Views:
73
Hi

I am doing ole word and I insert an image in a textframe. After I insert the image the text frame is selected but not the image inside and the next command to change the bightness is not working. I am not able to select the image with ole code. If I can select the image the code will work.

He is the code:

FOR ia = 1 TO ow.activedocument.shapes.count
WITH ow.activedocument.shapes(ia)
IF .TextFrame.HasText <> 0
IF "sign:1:" $ .TextFrame.TextRange.Text
OW.ActiveDocument.Shapes(ia).TextFrame.TextRange.Select
.TextFrame.TextRange.Cut
ow.Selection.InlineShapes.AddPicture("D:\Systemes\Applic\Quest_Word\sign\01356.bmp", .f.,.t.)

* here I must select the image inside the textframe.

ow.Selection.InlineShapes(1).PictureFormat.Brightness = 0.6

ENDIF
ENDIF
ENDWITH
ENDFOR

Thanks

Michel
Next
Reply
Map
View

Click here to load this message in the networking platform