[Risolto] Personalizzazione intestestazione e piè di pagina con macro

Discussioni sull'applicazione per i fogli di calcolo
Rispondi
ariex
Messaggi: 36
Iscritto il: venerdì 19 ottobre 2018, 0:19

[Risolto] Personalizzazione intestestazione e piè di pagina con macro

Messaggio da ariex »

Buonasera a tutti.
Avrei bisogno di personalizzare l'intestazione ed il piè di paggina con una macro che legge i valori dalle alcune celle del file.
nel file in allegato ho già inserito una macro trovata sulla rete che fa quello che mi serve, però con un testo fisso, inolre non riescoa modificae il tipo di carattere e la gradezza sempre tramite macro.

Grazie a tutti in anticipo.
Allegati
INTESTAZIONE.ods
(11.05 KiB) Scaricato 35 volte
Ultima modifica di ariex il giovedì 2 febbraio 2023, 23:37, modificato 2 volte in totale.
Suite libre office Versione: 7.1.0.3 windows 10
patel
Volontario attivo
Volontario attivo
Messaggi: 4016
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Personalizzazione intestestazione e piè di pagina con macro

Messaggio da patel »

Modifica così (intestazione in A1)

Codice: Seleziona tutto

Doc = ThisComponent 
SH = Doc.SheetS(0)
......
HText = HContent.Centertext

HText.String = SH.GetCellRangeByName("A1").String
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
ariex
Messaggi: 36
Iscritto il: venerdì 19 ottobre 2018, 0:19

Re: Personalizzazione intestestazione e piè di pagina con macro

Messaggio da ariex »

Grazie mille patel della risposta.
L'ho modificato secondo quello che hai detto però mi scrive solo una riga, per caso sapresti come fare per scrivere più righe nell'intestazione??
Inoltre vorrei capire se posso formattare la scitta dell'inestazione da macro decidendo il dito di carattere e la dimensione.
Allegati
INTESTAZIONE.ods
(11.24 KiB) Scaricato 33 volte
Suite libre office Versione: 7.1.0.3 windows 10
patel
Volontario attivo
Volontario attivo
Messaggi: 4016
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Personalizzazione intestestazione e piè di pagina con macro

Messaggio da patel »

Codice: Seleziona tutto

HText.String = SH.GetCellRangeByName("E1").String & Chr$(10) & SH.GetCellRangeByName("E2").String & Chr$(10) &  SH.GetCellRangeByName("E3").String
Per il carattere non ti so aiutare.
ariex ha scritto: martedì 31 gennaio 2023, 19:48 nel file in allegato ho già inserito una macro trovata sulla rete che fa quello che mi serve...
Dove l'hai trovata ?
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Gaetanopr
Volontario
Volontario
Messaggi: 3291
Iscritto il: mercoledì 21 novembre 2012, 20:07

Re: Personalizzazione intestestazione e piè di pagina con macro

Messaggio da Gaetanopr »

patel ha scritto: mercoledì 1 febbraio 2023, 21:58
ariex ha scritto: martedì 31 gennaio 2023, 19:48 nel file in allegato ho già inserito una macro trovata sulla rete che fa quello che mi serve...
Dove l'hai trovata ?
Guida a StarOffice 8 pagina 143 http://www.brescianet.com/appunti/vari/ ... ce_ITA.pdf
ariex ha scritto: mercoledì 1 febbraio 2023, 18:52 Inoltre vorrei capire se posso formattare la scitta dell'inestazione da macro decidendo il dito di carattere e la dimensione.
Devi agire sulla proprietà Text
ad esempio

Codice: Seleziona tutto

HText.Text.CharWeight = 150 ' grassetto
HText.Text.CharColor  = RGB(255,0,0) ' rosso
LibreOffice 7.2.2.2 windows 10
Openoffice 4.1.13 su windows 10
ariex
Messaggi: 36
Iscritto il: venerdì 19 ottobre 2018, 0:19

Re: Personalizzazione intestestazione e piè di pagina con macro

Messaggio da ariex »

patel ha scritto: mercoledì 1 febbraio 2023, 21:58

Codice: Seleziona tutto

HText.String = SH.GetCellRangeByName("E1").String & Chr$(10) & SH.GetCellRangeByName("E2").String & Chr$(10) &  SH.GetCellRangeByName("E3").String
Per il carattere non ti so aiutare.
ariex ha scritto: martedì 31 gennaio 2023, 19:48 nel file in allegato ho già inserito una macro trovata sulla rete che fa quello che mi serve...
Dove l'hai trovata ?
l'ho trovata sul sito di OO in inglese
[url] https://wiki.openoffice.org/wiki/Docume ... _Documents
Suite libre office Versione: 7.1.0.3 windows 10
ariex
Messaggi: 36
Iscritto il: venerdì 19 ottobre 2018, 0:19

Re: Personalizzazione intestestazione e piè di pagina con macro

Messaggio da ariex »

Grazie a tutti dell'aiuto, ho modificato il file per chiuque ne avesse bisogno inserendo sia l'intestazione chè il piè di pagina con diversi caratteri e colori.
Un saluto a tutti.
Allegati
INTESTAZIONE(Definitivo).ods
(11.76 KiB) Scaricato 44 volte
Suite libre office Versione: 7.1.0.3 windows 10
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8785
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: [Risolto] Personalizzazione intestestazione e piè di pagina con macro

Messaggio da charlie »

Grazie per la condivisione. Tuttavia, accanto al [Risolto], dovresti inserire anche la verde.
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
Rispondi