Pannello di Controllo Moderatore ]

Macro e Fontwork

Creare una macro - Scrivere uno script - Usare le API

Macro e Fontwork

Messaggioda joker » domenica 20 agosto 2017, 22:47

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 46 volte
OpenOffice 3.2.0 su Windows 7 Professional
joker
 
Messaggi: 7
Iscritto il: domenica 20 agosto 2017, 21:49

Re: Macro e Fontwork

Messaggioda charlie » lunedì 21 agosto 2017, 23:06

Ciao e benvenuto sul forum.
Se intanto ti vuoi presentare puoi farlo qui: https://forum.openoffice.org/it/forum/v ... m.php?f=16
Buon proseguimento.
charlie
macOS 10.12 Sierra: Open Office 4.1.5 - LibreOffice 6.0.7
Windows 7 pro (VirtualBox): Open Office 4.1.5 - LibreOffice 5.4.4.2
Ubuntu 17.04 LTE (VirtualBox): LibreOffice 5.1.6.2
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
Site Admin
Site Admin
 
Messaggi: 5754
Iscritto il: mercoledì 19 dicembre 2012, 11:50

Re: Macro e Fontwork

Messaggioda charlie » lunedì 21 agosto 2017, 23:25

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 10.12 Sierra: Open Office 4.1.5 - LibreOffice 6.0.7
Windows 7 pro (VirtualBox): Open Office 4.1.5 - LibreOffice 5.4.4.2
Ubuntu 17.04 LTE (VirtualBox): LibreOffice 5.1.6.2
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
Site Admin
Site Admin
 
Messaggi: 5754
Iscritto il: mercoledì 19 dicembre 2012, 11:50

Re: Macro e Fontwork

Messaggioda joker » mercoledì 23 agosto 2017, 21:43

(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 43 volte
OpenOffice 3.2.0 su Windows 7 Professional
joker
 
Messaggi: 7
Iscritto il: domenica 20 agosto 2017, 21:49

Re: Macro e Fontwork

Messaggioda hubert lambert » giovedì 24 agosto 2017, 13:36

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   Espandi visualeStringi visuale
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 47 volte
OpenOffice 4.1.2/4.1.4 | LibreOffice 5.4.4/6.0
Win7 + LinuxMint
hubert lambert
Volontario
Volontario
 
Messaggi: 141
Iscritto il: venerdì 9 giugno 2017, 13:48

Re: Macro e Fontwork

Messaggioda joker » giovedì 24 agosto 2017, 22:26

Grazie hubert, mi metto subito al lavoro. :bravo:
OpenOffice 3.2.0 su Windows 7 Professional
joker
 
Messaggi: 7
Iscritto il: domenica 20 agosto 2017, 21:49


Torna a Macro e UNO API

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite