I will check again but I think this is not working. I also try

obtext = ow.Selection.InlineShapes.AddPicture ("D:\Systemes\Applic\Quest_Word\sign\01356.bmp", .f.,.t.)

obtext.PictureFormat.Brightness = 0.6

this is not working. I really need to select the image inside the textframe.

Michel

>I believe, it should be:
>ow.activedocument.InlineShapes(1).PictureFormat.Brightness=...
>
>>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