Inserire immagine con le dimensioni della cella

[motoranocchio]

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 ?

[charlie]

Ciao e benvenuto/a sul forum.
Se intanto ti vuoi presentare puoi farlo in questa sezione -> viewforum.php?f=16
Per una panoramica delle regole del forum puoi consultare il Manuale di sopravvivenza -> http://forum.openoffice.org/it/forum/vi ... hp?f=1&t=2

Buon proseguimento.

[patel]

Occorre qualche spiegazione in più:
Inserire manualmente o con macro ?
le immagini sono già nel foglio ?
inserire tutte le immagini di una cartella in una colonna ?
hai già i nomi dei file delle immagini da inserire?

[motoranocchio]

salve grazie per la risposta, cercherò di spiegarmi meglio possibile.
ho un foglio calc per fare delle relazioni da presentare a fine lavori inserendo delle immagini che avrò messo in una cartella (quindi al di fuori del foglio di calcolo), ho predisposto delle celle con la misura che voglio siano le foto, però ogni volta che inserisco un'immagine risulta enorme e devo quindi ogni volta prima ancorarla alla cella e poi adattarla alla cella, volevo capire se tramite macro o direttamente da qualche funzione calc fosse possibile farlo con un passo solo.
purtroppo per le macro non sono molto pratico (diciamo per nulla pratico) ma mi impegno .
grazie per l'interessamento.

[patel]

non hai risposto a tutte le domande, comunque inserisci le immagini in modo che l'angolo sup sinistro sia all'interno della cella destinazione e prova questa macro

Codice: Seleziona tutto   Espandi visualeStringi visuale

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

[motoranocchio]

ok provo e ti faccio sapere.
grazie mille poi ho altre domande da farti per capire le macro


ho provato ma non funziona ,o almeno io non riesco a farla funzionare, ho assegnato alla cella la macro creata e spostato l'angolo superiore sx dell'immagine scelta nella casella ma non và.
per completezza di informazioni:
le immagini sono scaricate mano a mano da un dispositivo digitale quindi hanno dei nomi diversi ogni volta
non sono messe all'interno del file
mi serve un'immagine per cella

[patel]

,.... ho assegnato alla cella la macro creata ....

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 esempio

[motoranocchio]

come ti dicevo non ho praticità con le macro ma cliccando con il tasto destro dentro una cella mi dice assegna macro pensavo poteva essere assegnata una macro direttamente alla cella

[patel]

se vuoi usare macro devi studiare qualcosa a cominciare da http://professoressa.altervista.org/Dis ... re_OOo.pdf
hai allegato un file senza macro, senza immagini e senza spiegazioni

[motoranocchio]

perdonami ma le spiegazioni le avevo fatte sopra non pensavo fosse necessario ripeterle per le immagini sono semplici immagini prese da una cartella immagini la macro ho cercato di inserirla ma probabilmente ho sbagliato ad inserire la macro chiedo scusa per il tempo perso e grazie comunque.