REM  *****  BASIC  *****

Option VBASupport 1
Option Explicit

Sub MoveImage()
    Dim oSheet, oDrawPage, oShape
	Dim oPoint As New com.sun.star.awt.Point

    oSheet = ThisComponent.Sheets.getByIndex(0)    
    oDrawPage = oSheet.getDrawPage()
    oShape = oDrawPage.getByIndex(0)
    oPoint.X = 1000
    oPoint.Y = 1000
    oShape.setPosition(oPoint)
End Sub