Code: Select all
oBitmaps.insertByName(sInternalPicName, sFile)
Dim oPic As Object = oBitmaps.getByName(sInternalPicName)
Dim oCursor As Object = oo.CurrentController.getViewCursor
oCursor.goToEnd(False)
If nRow = 0 Then
oCursor.goUp(3, False)
Else
oCursor.goUp(1, False)
End If
Dim oGraph As Object = oo.createInstance("com.sun.star.text.GraphicObject")
With oGraph
.GraphicURL = oPic
.Width = 8000
.Height = 10000
.HoriOrient = 0
.HoriOrientPosition = nPosition
.VertOrient = 0
.VertOrientPosition = nRow
End With
oo.Text.insertTextContent(oCursor, oGraph, False)
fcInsertPictureIop = oo
Thanks guys