Bonjour je te colle ci-dessous partie d'un code ou j'insere des images dans un
tableau :
Dim posImage as New com.sun.star.awt.Point
Dim TailleImage As New com.sun.star.awt.Size
Dim Image as Object
posImage.x = (numPhoto-1) * 5000 + 750
posImage.y = (numLigne-1) * 8000 + 2000
Image = Confirm.createInstance("com.sun.star.drawing.GraphicObjectShape")
With Image
if FileExists(imgLien)
.GraphicURL = ConvertToURL(imgLien)
end if
.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE
.AnchorPageNo = numPage
TailleImage.Width = 4000
TailleImage.Height = 4000
.Size = TailleImage
.Position = posImage
End With
Texte.insertTextContent(Curseur, Image, false)
Cordialement
Abi
-----Message d'origine-----
De : Bruno ABRATANSKI [mailto:brun...@laposte.net]
Envoyé : vendredi 17 novembre 2006 09:51
À : pr...@fr.openoffice.org
Objet : [prog] Writer : image dans un tableau
Importance : Haute
Bonjour,
J'insere une image dans un tableau. Je voudrais la redimensionner par rapport à
celui-ci. Existe-il une proprieté largeur et hauteur ?
*********************************************************************
Ce message et tout document transmis sont strictement confidentiels et destines
uniquement aux personnes auxquelles ils sont adresses.
Ce message electronique a ete controle par un antivirus.
**********************************************************************
This email and any files transmitted with it are confidential and intended solel
y for whom they are addressed.
This email message has been swept for the presence of computer viruses.
**********************************************************************
Questo messaggio cosi' come ogni documento inviato, e'strettamente confidenziale
.21 Goodbye.
Sono destinati solo alle persone indicate nell'indirizzo.
Questo messaggio elettronico e'stato controllato da un antivirus.
**********************************************************************
4 messages in org.openoffice.fr.progRE : [prog] Writer : image dans un ta...
