Information générale
Catégorie:
Codage, syntaxe et commandes
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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement