1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Dim loTableau as object, loCursor as Object
Dim loTaille as new com.sun.star.awt.Size
Set loCursor = goViewCursor.getText.createTextCursorByRange( goViewCursor)
Set loTableau = goComp.createInstance("com.sun.star.text.TextTable")
loTableau.initialize 1, 6
goText.insertTextContent loCursor, loTableau, false
Set loCellule = loTableau.getCellByName( "A1")
Set loCellCursor = loCellule.createTextCursor
loTaille.width = 2400 'Dimension horizontale image
loTaille.height = 1800 'Dimension verticale image
Set loImage = goComp.createInstance("com.sun.star.drawing.GraphicObjectShape")
With loImage
.GraphicURL = lsEntry
.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
.setsize( loTaille)
End With
loCellule.insertTextContent loCellCursor, loImage, false |
Partager