General information
Category:
Coding, syntax & commands
Title:
Ole with word InlineShapes.AddPicture
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
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only