Object Picture de Word - où trouver de la doc ?
Eto Dermezel
Je ne trouve aucune doc concernant une picture insérée (propriétés et
méthodes) dans Word, ceci afin d'automatiser l'insertion d'une image
dans word depuis fox et son positionnement et son type (habillage).
Savez vous où trouver cela ?
Eto Dermezel
--
Eto Dermezel
manu
Mais je pense que cela pourrait de se faire pas un copier
de fox, coller dans Word
Manu
>-----Message d'origine-----
>
Thierry Nivelet
Syntaxe 1
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height, Anchor)
expression : objet Shapes.
Objet Shapes : Crée une image à partir d'un fichier existant. Renvoie l'objet Shape représentant la
nouvelle image.
Syntaxe 2
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)
expression : objet InlineShapes
Objet InlineShapes : Crée une image à partir d'un fichier existant. Renvoie l'objet InlineShape
représentant la nouvelle image.
--
AtoutFoxement,
Th Nivelet
Communauté Francophone des Professionnels FoxPro
"Eto Dermezel" <Stop_Laure...@wanadoo.fr> a écrit dans le message de
news:mn.52ec7d486...@wanadoo.fr...
Mike Gagnon
#DEFINE wdSeekPrimaryFooter 4
LOCAL oWord,loDoc
oWord = CREATEOBJECT('word.application')
loDoc = oWord.documents.add()
oWord.ActiveWindow.ActivePane.View.SeekView= wdSeekPrimaryFooter
WITH oWord.selection
.InlineShapes.AddPicture("C:\Documents and Settings\MIKE_G\My
Documents\My Pictures\spongebob.jpg")
ENDWITH
"Eto Dermezel" <Stop_Laure...@wanadoo.fr> wrote in message
news:mn.52ec7d486...@wanadoo.fr...
Eto Dermezel
Merci beaucoup.
Où trouves-tu ce genre d'info ?
Eto dermezel
Thierry Nivelet avait énoncé :
--
Eto Dermezel
Eto Dermezel
> expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top,
> Width, Height, Anchor)
A mon grand regret, cela ne fonctionne pas, il me spécifie un mauvais
nombre de paramètres et en explorant les classes, je constate que seuls
les paramètres suivants sont acceptés :
Function AddPicture(FileName As String, [LinkToFile],
[SaveWithDocument], [Range]) As InlineShape
Membre de Word.InlineShapes
je ne vois toujours pas comment positionner/redimensionner une image
insérée dans word depuis fox :-(
Eto dermezel
Thierry Nivelet avait énoncé :
--
Eto Dermezel
Eto Dermezel
une première erreur qui rend caduque mon post précédent :
>> expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top,
>> Width, Height, Anchor)
expression s'appuie sur l'objet shapes et non sur le InLineshapes
Par contre je n'arrive pas à insérer une image, voila la syntaxe que
j'utilise :
Après mure réflexion, Eto Dermezel a écrit :
Eto Dermezel
erreur de ma part, expression correspond à un objet Shapes et non
inlineshapes
mais je n'arrive toujours pas à insérer une image, voila la syntaxe que
j'utilise :
OWord.application.Shapes.AddPicture("C:\Documents\image.jpg",.F.,20,20,20,20,0)
Mais il est pô d'accord :-(
Eto dermezel
Eto Dermezel a présenté l'énoncé suivant :
MILCENT Bernhart
je faisais cela dans word avant d'employer CRystal report.
Voici un bout de code qui peut peut être aider...
oWord.ActiveDocument.Bookmarks("cImage").SELECT
oWord.SELECTION.InlineShapes.AddPicture("C:\cdbk30\AMLINE\Data1\PICTURES\160
.bmp", False , True )
WITH oWord.ActiveDocument.SELECTION.InlineShapes(1)
WITH .BORDERS(wdBorderLeft)
.LineStyle = wdLineStyleThinThickSmallGap
.LineWidth = wdLineWidth300pt
.ColorIndex = wdAuto
ENDWITH
WITH .BORDERS(wdBorderRight)
.LineStyle = wdLineStyleThickThinSmallGap
.LineWidth = wdLineWidth300pt
.ColorIndex = wdAuto
ENDWITH
WITH .BORDERS(wdBorderTop)
.LineStyle = wdLineStyleThinThickSmallGap
.LineWidth = wdLineWidth300pt
.ColorIndex = wdAuto
ENDWITH
WITH .BORDERS(wdBorderBottom)
.LineStyle = wdLineStyleThickThinSmallGap
.LineWidth = wdLineWidth300pt
.ColorIndex = wdAuto
ENDWITH
.BORDERS.SHADOW = False
ENDWITH
bernhart
"Eto Dermezel" <Stop_Laure...@wanadoo.fr> a écrit dans le message de
news:mn.53777d487...@wanadoo.fr...
Eto Dermezel
Merci beaucoup, en effet, cela m'aide ! j'arrive au moins à positionner
correctement une image.
Eto Dermezel
Le 10/08/2004, MILCENT Bernhart a supposé :
--
Eto Dermezel
Thierry Nivelet
--
AtoutFoxement,
Th Nivelet
Communauté Francophone des Professionnels FoxPro
"Eto Dermezel" <Stop_Laure...@wanadoo.fr> a écrit dans le message de
news:mn.53517d48d...@wanadoo.fr...
Thierry Nivelet
Shapes est contenu dans l'objet Document
Sauf erreur il te manque le paramètre <SaveWithDocument>
--
AtoutFoxement,
Th Nivelet
Communauté Francophone des Professionnels FoxPro
"Eto Dermezel" <Stop_Laure...@wanadoo.fr> a écrit dans le message de
news:mn.53777d487...@wanadoo.fr...
Eto Dermezel
J'ai essayé mais cela ne marche pas :
oWord.Application.Selection.Shapes.AddPicture("C:\Documents\image.jpg",.F.,.F.,20,20,20,20,0)
et
oWord.Application.ActiveDocument.Shapes.AddPicture("C:\Documents\image.jpg",.F.,.F.,20,20,20,20,0)
:-(
Eto dermezel
Thierry Nivelet a présenté l'énoncé suivant :
> oDocument.Shapes.AddPicture("C:\Documents\image.jpg",.F.,<SaveWithDocument>,20,20,20,20,0)
--
Eto Dermezel
Thierry Nivelet
Pourquoi "oWord.Application" ?
oWord devrait suffire
--
AtoutFoxement,
Th Nivelet
Communauté Francophone des Professionnels FoxPro
"Eto Dermezel" <Stop_Laure...@wanadoo.fr> a écrit dans le message de
news:mn.53b97d489...@wanadoo.fr...
Thierry Nivelet
ça marche chez moi.
Peux-tu positionner le "Shape" après avoir inséré l'image ?
--
AtoutFoxement,
Th Nivelet
Communauté Francophone des Professionnels FoxPro
"Thierry Nivelet" <tnivele...@abaqueinside.com> a écrit dans le message de
news:uWQVwKuf...@TK2MSFTNGP12.phx.gbl...
Eto Dermezel
Même en mettant :
oWord.Selection.Shapes.AddPicture("C:\Documents\image.jpg",.F.,.F.,20,20,20,20,0)
Eto Dermezel
Après mure réflexion, Thierry Nivelet a écrit :
--
Eto Dermezel
Eto Dermezel
> Peux-tu positionner le "Shape" après avoir inséré l'image ?
Et bien justement ! Erreur quand j'adresse le "Shape"
Eto dermezel
Thierry Nivelet avait soumis l'idée :
--
Eto Dermezel
Frédéric Steczycki
Pour mémoire, tu nous as écrit :
>> oDoc.Shapes.AddPicture('C:\Mes Documents\Mes fichiers
>> reçus\PHILIB.bmp')
> Cela marche aussi chez moi, mais cela ne permet pas de positionner
>
donc, à partir de là, tu vas dans Word, tu fais : enregistrer une nouvelle
macro, tu positionnes et tu vois le code ;)
Fred
Eto Dermezel
J'ai bien compris ta démarche, mais pour le coup, c'est une erreur
d'adressage qu'il me retourne, je n'arrive pas à adresser l'objet pour
lui fournir les bonnes propriétés
Eto dermezel
Frédéric Steczycki vient de nous annoncer :
--
Eto Dermezel
Geo
sauf erreur de ma part la différence entre Shapes et inlineshapes
c'est que l'inlineshapes réagit comme une boite de texte et peut être
positionnée, ce que ne peut pas le Shapes qui s'insère dans le texte.
Toutefois je crois que ce n'est vrai que depuis Word 2000.
Il me semble que les shapes en Word 97 étaient positionnables.
Ca peut expliquer des incompréhensions.
--
A+
MILCENT Bernhart
Peut être mettre un "point d'arrêt" et de vérifier les objets ds le
débugueur ?
bernhart
"Eto Dermezel" <Stop_Laure...@wanadoo.fr> a écrit dans le message de
news:mn.53f97d48f...@wanadoo.fr...
Eddy Maue
Mon tout sans viens. Bla Bla Bla, j'espère que VFP 9.0 va fonctionner
avec Win2000. Bye Bye Win98
C'était un moment de frustation.
MILCENT Bernhart vient de nous annoncer :
> ou comme sur la photo ci annexe avec l'intellisense...
>
> bernhart
>
> "Eto Dermezel" <Stop_Laure...@wanadoo.fr> a écrit dans le message de
> news:mn.53f97d48f...@wanadoo.fr...
>> Yep Fred,
>>
>> J'ai bien compris ta démarche, mais pour le coup, c'est une erreur
>> d'adressage qu'il me retourne, je n'arrive pas à adresser l'objet pour
>> lui fournir les bonnes propriétés
>>
>> Eto dermezel
>>
>> Frédéric Steczycki vient de nous annoncer :
>>
>> --
>> Eto Dermezel
>>
>
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com