Buongiorno, all'archivio potrei accederci anche solamente io, però è necessario che ogni utente possa 'scrivere' tramite il CMR all'interno del database quando si devono aggiungere nuovi Clienti e nuovi Trasportatori

Si hai ragione... scusami

Versione LibreOffice 24.2.2.2. - Windows 11 Buonasera, ho questo problema. Ho un file per la stampa di CMR (ddt per consegne internazionali). Nel primo foglio ho tutti i campi necessari per la compilazione con dei menù a tendina che richiamano Mittente, Cliente e Trasportatore. I dati dei tre sogget...

In realtà non era un errore, Exit for non va messo in quanto(non dovrebbe succedere) potrebbero esserci tante immagini e con exit for ne eliminerebbe solo una e poi uscirebbe dal ciclo. Il codice corretto è il seguente For i = Drw.Count - 1 To 0 step - 1 If Drw(i).Name <> NomeImage Then if Drw(i).P...

Trovato l'errore! Ho messo a confronto il tuo codice con quello mio e mi sono accorto che una virgoletta era finita da un'altra parte e non so come! For i = 0 To Drw.Count - 1 If Drw(i).Name <> NomeImage Then if Drw(i).Position.x = Image.Position.x Then Drw.Remove(Drw(i)) ' Exit For end if end if Ne...

Prova in questo modo Sub Immagine1(Target) Dim Sh As Object, addr As Object Dim Doc As Object Dim Drw As Object, Image As Object, Gp As Object Dim positionImage As New com.sun.star.awt.Point Dim props(0) As New com.sun.star.beans.PropertyValue Doc = ThisComponent fpath = left(Doc.geturl(),revinstr(...

Per quanto riguarda invece la cancellazione delle immagini presenti queste due istruzioni vanno in errore: For i = 0 To Drw.Count - 1 Drw.Remove(Drw(i)) Next i For i = 0 To Drw.Count - 1 If Drw(i).Position.X = ITarget.position.x and Drw(i).Position.Y = ITarget.position.y Then' Drw.Remove(Drw(i)) Exi...

Gaetanopr ha scritto: ↑venerdì 25 agosto 2023, 12:31 Inverti le istruzioni in questo modo
Image.LayerId = 1 'imposta l'immagine sullo sfondo
Image.Anchor = Doc.Sheets(s).getCellrangebyname(oCell)

Perfetto!!! Adesso non si blocca più al salvataggio!!!
Direi che il problema è stato risolto!
Grazie mille!

sub Immagine1(target). Image.LayerId = 1 'imposta l'immagine sullo sfondo Puoi aiutarmi anche per questo? Togli questa istruzione, non conosco il motivo per cui blocca la macro, potrebbe essere un bug di LibreOffice in quanto su OpenOffICE FUNZIONA. Il problema è che mi copre le scritte del documen...

Salve, purtroppo Libreoffice presenta dei bug con gli ancoraggi alle celle delle immagini, almeno in passato li aveva e credo anche adesso, facendo un test la macro ancora alla cella correttamente ma alla riapertura l'immagine risulta ancorata alla pagina per cui la macro non trovando l'indirizzo d...

patel ha scritto: ↑venerdì 25 agosto 2023, 8:28 Ho segnalato la discussione a Gaetanopr, l'autore della macro.

Grazie mille!

Stavo facendo alcune prove e mi sono accorto di un altro errore. Se scelgo più immagini nel menù a cascata in D4 il programma mi sostituisce la foto vecchia (cancellandola) con quella nuova. Se però salvo il file con un immagine memorizzata, questa non viene più cancellata dal programma ma viene so...

L'istruzione che blocca il salvataggio è questa. Image.LayerId = 1 'imposta l'immagine sullo sfondo Se la trasformo in commento (') il salvataggio non si blocca. Sono però a digiuno per quel che riguarda la sintassi di questo comando. Bhé è già un ottimo inizio direi e ti ringrazio! Spero che ci si...

Se volete posso caricarla sul cloud altrimenti basta creare una cartella 'Firme' con all'interno delle immagini .jpg denominate 'Giosi', 'Paolo', 'Sonia', 'Manuela' e metterla sulla stessa cartella del file CMR.ods.
In questo caso si va ad interagire solo con l'elenco della cella D4.

Lanfranchi G.Luigi ha scritto: ↑giovedì 24 agosto 2023, 11:03 Cambiando D4 e D22 mi da un errore di immagine non trovata ma il salvataggio va a buon fine.

Esatto, anche a me se elimino la cartella contenente le immagini che vengono richiamate il salvataggio va a buon fine.
Se però ripristino la cartella il salvataggio si blocca.

Siccome il nome che si sceglie dai menù a tendina va a richiamare un' immagine specifica contenuta all'interno di una cartella e la va a posizionare in un determinato punto dei fogli successivi ad 'Input', dopo il tuo messaggio ho provato a togliere la cartella e mi da l'avviso 'immagine non trovata...

Buongiorno, ho un problema con un file che avevo creato qualche anno fa grazie al vostro aiuto ( https://forum.openoffice.org/it/forum/viewtopic.php?f=9&t=10110&p=56769#p56769 ). Da un giorno all'altro è successo che si blocca durante il salvataggio però solamente se viene cambiato il valore...

Cercando su google ho trovato la soluzione.
E' bastato andare su Strumenti → Opzioni → Carica/Salva → Generale e Rimuovere la spunta su “Salva URL relativamente al file system” e adesso funziona alla perfezione!

Buongiorno, ho questo problema: ho creato il file1 con un menù a tendina che va a prendere i dati in un intervallo di celle di un altro file salvato nel server comune dell'ufficio. Ogni computer dell'ufficio lavora sul proprio file1 ma tutti vanno a prendere i dati della lista dal file sul server. S...

Ancora grazie mille!!!

Adesso funziona anche a me!
Ho copiato il tuo codice sostituendo i riferimenti giusti e adesso funziona benissimo!

La macro che uso è questa: Sub Immagine1(Target) Dim Sh As Object, addr As Object Dim Doc As Object Dim Drw As Object, Image As Object, Gp As Object Dim positionImage As New com.sun.star.awt.Point Dim props(0) As New com.sun.star.beans.PropertyValue Doc = ThisComponent fpath = left(Doc.geturl(),revi...

Buongiorno Gaetanopr! Si ho cambiato i riferimenti iniziali e i fogli sono dal 2 al 6. L'unico problema, ma mi sono accorto che era presente anche prima di queste ultime modifiche, è che non mi cancella le immagini precedentemente richiamate... me le mette una sopra l'altra. Riesci a capirne il moti...

Buongiorno unlucky83, ho avuto poco tempo purtroppo per provare le modifiche che mi hai proposto. Comunque riguardando il codice, di mia iniziativa, ho apportato una semplice modifica: codice originario: NomeImage = Target.String For s = 0 To 5 modifica: NomeImage = Target.String For s = 1 To 5 e co...

Buongiorno unlucky83 e grazie per la risposta. In effetti la macro funziona benissimo e dovrei cambiare solo i riferimenti. Questa è la macro: Sub Immagine1(Target) Dim Sh As Object, addr As Object Dim Doc As Object Dim Drw As Object, Image As Object, Gp As Object Dim positionImage As New com.sun.st...

Buonasera, scusate se riscrivo solo adesso e soprattutto scusate se non sono stato molto chiaro nella mia richiesta ma purtroppo non sono un frequente utilizzatore di forum e non conosco tutte le dinamiche che ci sono all'interno di esso. Ci riprovo sperando di riuscire nel mio intento. La mia richi...

Buongiorno a tutti! Ho di nuovo bisogno del vostro aiuto per l'argomento in oggetto. Quello che vorrei ottenere è questo: 1- richiamare delle immagini in una determinata cella del foglio n.2 (e cancellazione dell'eventuale immagine precedente) a secondo del valore presente in un'altra cella del fogl...

Ok, capisco! Quello che vorrei ottenere è questo: 1- richiamare delle immagini in una determinata cella del foglio n.2 (e cancellazione dell'eventuale immagine precedente) a secondo del valore presente in un'altra cella del foglio n.1; 2- ripetizione delle immagini dal foglio n.3 al foglio n.6; 3- i...

Le celle sono B16 e B19.
Se possibile la macro dovrebbe attivarsi nel momento in cui viene modificata.
Grazie.

Buongiorno e grazie per la risposta! Ho dovuto eliminare alcuni fogli perché il file da allegare superava il limite consentito. La macro come è impostata adesso prende gli input nel foglio "Mittente" dalle celle F76 e N75 e il risultato (inserisce un'immagine) appare sulle celle E79 e N20....