Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Ole with word InlineShapes.AddPicture
Message
 
To
23/03/2004 16:56:22
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00889027
Message ID:
00889074
Views:
23
If you added the picture to the ..TextFrame.TextRange, then this should work, I believe:
ow.Activedocument.shapes(ia).TextFrame.TextRange.InlineShapes(1).PictureFormat.Brightness = 0.6
Perhaps it may vary for different types of Shapes and InlineShapes.
At least it works for me for shape msoShapeDiamond.

>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform