Macro e Fontwork

Creare una macro - Scrivere uno script - Usare le API
Rispondi
joker
Messaggi: 7
Iscritto il: domenica 20 agosto 2017, 21:49

Macro e Fontwork

Messaggio da joker »

Salve, il mio problema è inserire il testo delle celle k3 e k1 in un fontwork e farlo per ogni cambiamento. Ho pensato che fosse meglio registrare una macro, concateno le celle in m1 la taglio ma quando vado per copiarla come testo fontwork la scritta resta immutata, o meglio cambia solo durante la registrazione. Vorrei sapere dove sbaglio e se ce soluzione o come ottenere in altro modo ciò che voglio.
Ringraziio anticipatamente per l'aiuto.
Allegati
Senza nome 1.ods
file id prova
(25.61 KiB) Scaricato 118 volte
OpenOffice 3.2.0 su Windows 7 Professional
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8785
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Macro e Fontwork

Messaggio da charlie »

Ciao e benvenuto sul forum.
Se intanto ti vuoi presentare puoi farlo qui: viewforum.php?f=16
Buon proseguimento.
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8785
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Macro e Fontwork

Messaggio da charlie »

Ho provato a dare un'occhiata al tuo file, ma non ho capito niente della tua spiegazione.
Dov'è la macro? Se l'hai salvata fra quelle personali nella copia del file non compare.
Perchè il testo delle celle I1, I3, K1, K3 non è visibile?
Il pulsante Aggiorna è effettivamente un pulsante? Non è selezionabile fra i Controlli del formulario.
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
joker
Messaggi: 7
Iscritto il: domenica 20 agosto 2017, 21:49

Re: Macro e Fontwork

Messaggio da joker »

(Mi scuso, ma il problema per me chiaro, mi ha reso vago e superficiale. In effetti non ho salvato nessuna macro e il pulsante "Aggiorna" era praticamente inutile (contavo di dissociarvi la macro qualora avesse funzionato) le celle I1 e I3 sono puramente indicative.
In pratica volevo inserire in K1 l'anno e in K3 il mese, unirli in un'unica astringa è visualizzarla in A1 con un Fontwork, poi via via che il tempo passa aggiornare la scritta. Tutto ciò mi funziona facendolo manualmente ma non con la macro.
Nell'allegato ho aggiunto i passi da me eseguiti, spero sia tutto chiaro e non ci siano ulteriori dubbi.
Saluti e grazie ancora.
Allegati
Senza nome 1.ods
(21.81 KiB) Scaricato 119 volte
OpenOffice 3.2.0 su Windows 7 Professional
hubert lambert
Volontario
Volontario
Messaggi: 164
Iscritto il: venerdì 9 giugno 2017, 13:48

Re: Macro e Fontwork

Messaggio da hubert lambert »

Ciao,

Una delle possibili soluzioni sarebbe assegnare una macro al evento di foglio "Contenuto modificato".
Quella macro dovrà "semplicemente" verificare la cella modificata, identificare l'oggetto corrispondente al fontwork ed aggiornare il suo testo.
Nel file allegato ho dato un nome al fontwork, che così è più facile trovarlo:

Codice: Seleziona tutto

sub Main(event)
    if event.CellAddress.Column <> 10 or event.CellAddress.Row > 2 then exit sub
    foglio = event.Spreadsheet
    drawpage = foglio.DrawPage
    for n = 0 to drawpage.Count -1
        shape = drawpage(n)
        if shape.Name = "il mio fontwork" then
            anno = foglio.getCellRangeByName("K1").String
            mese = foglio.getCellRangeByName("K3").String
            shape.String = mese + anno
            exit sub
        end if
    next n
end sub
Saluti.
Allegati
Testo Fontwork.ods
(31.46 KiB) Scaricato 129 volte
OpenOffice 4.1.2/4.1.4 | LibreOffice 5.4.4/6.0
Win7 + LinuxMint
joker
Messaggi: 7
Iscritto il: domenica 20 agosto 2017, 21:49

Re: Macro e Fontwork

Messaggio da joker »

Grazie hubert, mi metto subito al lavoro. :bravo:
OpenOffice 3.2.0 su Windows 7 Professional
Rispondi