[Solved] Move a picture from a sheet to another one

[Mr.Dandy]

Hello,
How can I do that?
CellAddress is a read only property.

Code: Select all

Sub Main
    MovePic("Image 1", "Sheet1", "Sheet2")
End sub

Sub MovePic(sName, sOldPlace, sNewPlace)
        oDoc = ThisComponent
        oSheetO = oDoc.Sheets.getByName(sOldPlace)    
        oSheetD = oDoc.Sheets.getByName(sNewPlace)    
        oPageO = oSheetO.getDrawPage    
        oPageD = oSheetD.getDrawPage    
        for i = 0 to oPageO.Count - 1
                    oImage = oPageO.getByIndex(i)
                    if oImage.Name = sName then exit for
        next
        oAddress = oImage.Anchor.getCellAddress()
        '??? not possible to just change oAddress.Sheet ???
End sub

[Bidouille]

Code: Select all

Sub MovePic(sName, sOldPlace, sNewPlace)
	oDoc = ThisComponent
	oSheetO = oDoc.Sheets.getByName(sOldPlace)
	oSheetD = oDoc.Sheets.getByName(sNewPlace)
	oPageO = oSheetO.getDrawPage
	oPageD = oSheetD.getDrawPage
	for i = 0 to oPageO.Count - 1
		oOldImage = oPageO.getByIndex(i)
		if oOldImage.Name = sName then exit for
	next
	oNewImage = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
	with oNewImage
		.Name = sName
		.Size = oOldImage.Size
		.Position = oOldImage.Position
		.GraphicURL = oOldImage.GraphicURL
	end with
	oPageO.remove(oOldImage) 'first remove it
	oPageD.add(oNewImage)
	
End sub