Macro e Fontwork

[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.

[charlie]

Ciao e benvenuto sul forum.
Se intanto ti vuoi presentare puoi farlo qui: viewforum.php?f=16
Buon proseguimento.

[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.

[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.

[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.

[joker]

Grazie hubert, mi metto subito al lavoro.