Ciao Guido, Alle 22:04, venerdì 13 luglio 2007, [EMAIL PROTECTED] ha scritto: > > Alle 14:47, venerd? 13 luglio 2007, Guido (email.it) ha scritto: > > > Buongiorno, > > > chiedo aiuto alla lista prima di partire per le ferie. > > > Qualcuno mi da una dritta per una macro > > > che seleziona (una specifica immagine) , copia e incolla in una > > > specifica cella dentro un Calc. > > > Ho cercato senza successo nel forum OOo. > > Ciao Paolo, > mi fa paicere rileggerti, > > > perch? usare una macro? > > evidentemente non mi sono spiegato bene.
No, colpa mia, avevo letto superficialmente, scusa. > > Devo configurare un modulo CALC con due loghi diversi (a seconda dell' > utente del foglio. > In una tabella di appoggio ho inserito le due immagini. > La macro mi serve per copiare dalla tabAppoggio alla copertina l'immagine1 > quando eseguo la configurazione1. Quando eseguo la configurazione2 cancello > l'immagine dalla copertina, copio l'immagine2 e la incollo sulla tabella di > copertina. > > SPero di essere stato pi? chiaro. Chiarissimo. Però non è semplice tirare fuori una soluzione perchè ci sono diversi modi di impostare la logica. Provo a darti un'idea, poi magari rifiniamo la cosa: Devi predisporre un documento Calc con due immagini, una nella prima tabella e una nella seconda. Le immagini devono essere diverse e possiono essere sia "collegate" che "embedded" La routine scambia le due immagini: REM ***** BASIC ***** Sub Main oSheet1 = ThisComponent.Sheets(0) oPage1 = oSheet1.DrawPage oShape1 = oPage1.getByIndex(0) sUrl1 = oShape1.GraphicURL aSize1 = oShape1.Size oSheet2 = ThisComponent.Sheets(1) oPage2 = oSheet2.DrawPage oShape2 = oPage2.getByIndex(0) sUrl2 = oShape2.GraphicURL aSize2 = oShape2.Size oShape1.GraphicUrl = sUrl2 oShape1.Size = aSize2 oShape2.GraphicUrl = sUrl1 oShape2.Size = aSize1 End Sub ciao Paolo M --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
