salve a tutti, uso libreoffice da molto tempo ma sempre come utente non troppo avanzato.
Devo inserire delle immagini in alcune celle e vorrei che le immagini si adeguino alla grandezza della cella stessa è possibile? se si come ?
[ Pannello di Controllo Moderatore ]
Sub fitGraphics() ' adatta l'immagine alla cella
Dim oDoc As Object
Dim oSheet As Object
Dim aCell As Object
Dim g as Object
Dim s As new com.sun.star.awt.Size
Dim gp As new com.sun.star.awt.Point
Dim ap As new com.sun.star.awt.Point
Dim p As new com.sun.star.awt.Point
oDoc = ThisComponent
oSheet = oDoc.CurrentController.ActiveSheet
c = oSheet.DrawPage.count
Do While c >= 1
g = oSheet.DrawPage(c - 1)
if InStr(g.ShapeType,"GraphicObjectShape") > 0 then
s = g.getSize()
gp = g.getPosition()
aCell = g.anchor
rowHeight = oSheet.Rows(aCell.CellAddress.Row).Height
colWidth = oSheet.Columns(g.anchor.CellAddress.Column).Width
s.Height = oSheet.Rows(aCell.CellAddress.Row).Height
s.Width = oSheet.Columns(aCell.CellAddress.Column).Width
g.setSize(s)
ap = aCell.Position()
gp = g.getPosition()
g.setPosition(ap)
endif
c = c - 1
Loop
End Sub
non capisco cosa vuoi dire, non so come tu faccia ad assegnare una macro alla cella, comunque la macro va lanciata manualmente dopo aver inserito le immagini, allega un file di esempiomotoranocchio ha scritto:,.... ho assegnato alla cella la macro creata ....
Visitano il forum: Nessuno e 11 ospiti