El primer macro es uno para poner una firma en formato imagen(Gracias Federico), es este:
Código: Seleccionar todo
Sub InsertartImagen
Dim oSize as New com.sun.star.awt.Size
oSize.width = 6500
oSize.height = 6500
ActiveSheet = ThisComponent.CurrentController.ActiveSheet
servicio = "com.sun.star.drawing.GraphicObjectShape"
oShape = ThisComponent.createInstance(servicio)
oShape.setSize(oSize)
oShape.GraphicURL = convertToURL("C:\imagen\javier.jpg")
Drawpage = ActiveSheet.DrawPage
Drawpage.add(oShape)
oShape.setPropertyValue("Anchor", ActiveSheet.getCellRangeByName("B33"))
oShape.LayerID = 1
End Sub
El macro que borra el boton es este:
Código: Seleccionar todo
Sub borrarboton(oEvent)
dim oButton as object, oButton_model as object
dim oForm as object, oContext as object
oButton = oEvent.Source
oButton_model = oEvent.Source.getModel()
oForm = oButton_model.getParent()
oForm.removeByName(oButton_model.Name)
oContext = oButton.getContext()
oContext.removeControl(oButton)
oButton.dispose()
End Sub
Con esto quise unir el funcionamiento de los macros, con una idea que propuso Mauricio por aca, que es esta:
Código: Seleccionar todo
Sub mismacros
call InsertartImagen
call borrarboton
End Sub
Error de ejecucion basic: el argumento no es opcional.
y marca este renglon de borrar boton
oButton = oEvent.Source
Espero me puedan ayudar, no soy uy ducho con esto de los macros.
Saludos
Santiago