Risultati da 1 a 20 di 20

Discussione: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli



  1. #1
    L'avatar di marco72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Roma
    Età
    45
    Messaggi
    10
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Ciao a tutti,

    dovrei inserire con una macro una immagine tramite intestazione pie' di pagina immagine su tutti i fogli del file.

    http://i.imgur.com/plranOh.jpg

    Ho Office 2007

    Spero in un vostro aiuto


    Grazie

    Marco

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Citazione Originariamente Scritto da marco72 Visualizza Messaggio
    Ciao a tutti,

    dovrei inserire con una macro una immagine tramite intestazione pie' di pagina immagine su tutti i fogli del file.

    http://i.imgur.com/plranOh.jpg

    Ho Office 2007

    Spero in un vostro aiuto


    Grazie

    Marco
    Ciao Marco
    se non ho capito male questo è il codice

    Codice: 
    Sub Inserire_immagine_in_pie_di_pagina()
    
    
    Dim i As Integer
    
    
    For i = 1 To Sheets.Count
        Sheets(i).Select
        
        ActiveSheet.PageSetup.CenterFooterPicture.Filename = _
            "C:\Users\Gaetano\Desktop\Siluro - giallo.png"
        Application.PrintCommunication = False
        
        With ActiveSheet.PageSetup
            .CenterFooter = "&G"
            .FooterMargin = Application.InchesToPoints(0.31496062992126)
            .PaperSize = xlPaperA4
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True
        End With
        
        Application.PrintCommunication = True
    Next
    
    
    Sheets(1).Select
    
    
    End Sub
    La riga in rosso devi adattarla alle tue esigenze.


    Fammi sapere.

    ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3
    L'avatar di marco72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Roma
    Età
    45
    Messaggi
    10
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Ciao Baloo_50,

    grazie per la risposta. Ho provato ad eseguire la macro ma mi da errore. Ho aperto il debug ed è su

    Sheets(i).Select

  4. #4
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Citazione Originariamente Scritto da marco72 Visualizza Messaggio
    Ciao Baloo_50,

    grazie per la risposta. Ho provato ad eseguire la macro ma mi da errore. Ho aperto il debug ed è su

    Sheets(i).Select
    ti allego il file
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Se non hai problemi mi alleghi il tuo di file eliminando i dati sensibili

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  6. #6
    L'avatar di marco72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Roma
    Età
    45
    Messaggi
    10
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Questo è un esempio, ho dei foglio nascosti e alcuni attivi. Su quelli attivi dovrei inserire l'immagine come sfondo
    File Allegati File Allegati

  7. #7
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Citazione Originariamente Scritto da marco72 Visualizza Messaggio
    Questo è un esempio, ho dei foglio nascosti e alcuni attivi. Su quelli attivi dovrei inserire l'immagine come sfondo
    Funziona tutto perfettamente.
    L'errore è dovuto ai fogli nascosti; dovresti scoprirli e dopo aver eseguito la macro li nascondi ancora.
    Ti allego il tuo file elaborato.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  8. #8
    L'avatar di marco72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Roma
    Età
    45
    Messaggi
    10
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Penso che il problema è che ho dei fogli nascosti

  9. #9
    L'avatar di marco72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Roma
    Età
    45
    Messaggi
    10
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Non è possibile dichiarare su quali fogli eseguire la macro? Se non si può faccio come mi hai consigliato


    Grazie

  10. #10
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Citazione Originariamente Scritto da marco72 Visualizza Messaggio
    Non è possibile dichiarare su quali fogli eseguire la macro? Se non si può faccio come mi hai consigliato


    Grazie
    aggiungi questa riga :

    on error resume next

    prima di :

    Sheets(i).select

    In questo modo non c'è bisogno che scopri i fogli nascosti però l'immagine viene inserita anche in questi fogli.

    Fammi sapere se va bene così

    ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  11. #11

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1019
    Likes dati
    977

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    ciao @marco72 Visto che sei nuovo del Forum, è gradita una presentazione QUI, ti consiglio anche di leggerti il “Regolamento” e di visitare la sezione “Annunci dello staff”,

  12. #12
    L'avatar di marco72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Roma
    Età
    45
    Messaggi
    10
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Non mi da nessun errore, ma la eseguo e non carica l'immagine. :-(

  13. #13
    L'avatar di marco72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Roma
    Età
    45
    Messaggi
    10
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Questo è il codice che eseguo:
    Codice: 
    Sub Inserire_immagine_in_pie_di_pagina()
    
    
    Dim i As Integer
    
    
    For i = 1 To Sheets.Count
    
        On Error Resume Next
        Sheets(i).Select
        
        ActiveSheet.PageSetup.CenterFooterPicture.Filename = _
            "C:\Users\Marco\Desktop\STAGIONE\SFONDO_5.jpg"
        Application.PrintCommunication = False
        
        With ActiveSheet.PageSetup
            .CenterFooter = "&G"
            .FooterMargin = Application.InchesToPoints(0.31496062992126)
            .PaperSize = xlPaperA4
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True
        End With
        
        Application.PrintCommunication = True
    Next
    
    
    Sheets(1).Select
    
    
    End Sub
    Ultima modifica fatta da:Rubik72; 15/08/16 alle 21:18

  14. #14
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Mi sembra strano hai visto dal file che ti ho allegato che funziona.
    Controlla bene che non ci sia qualcosa di particolare sui vari fogli. Eventualmente prova a scoprire i fogli nascosti e riprova.
    Altrimenti non saprei proprio cosa potrebbe essere.
    In ultima analisi prova a riallegare il file che non funziona che gli do un'occhiata


    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  15. #15
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Ho copiati pari pari il codice che hai postato e a me funziona egregiamente
    La domanda è banale ma è giusto il percorso dell'immagine?
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  16. #16
    L'avatar di marco72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Roma
    Età
    45
    Messaggi
    10
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Scusa, allora un aggiornamento:

    - funziona su tutti fogli tranne che sul primo!

    - vorrei se possibile inserire l'immagine tramite "Personalizza intestazione" e flaggando solo "Allinea ai margini di pagina"

    Scusa ma la mia conoscenza di VBA è veramente poca

  17. #17
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Citazione Originariamente Scritto da marco72 Visualizza Messaggio
    Scusa, allora un aggiornamento:

    - funziona su tutti fogli tranne che sul primo!

    - vorrei se possibile inserire l'immagine tramite "Personalizza intestazione" e flaggando solo "Allinea ai margini di pagina"

    Scusa ma la mia conoscenza di VBA è veramente poca
    scusami ma non era un piè di pagina?

    comunque dovrebbe funzionare anche sulla prima pagina

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  18. #18

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1019
    Likes dati
    977

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Citazione Originariamente Scritto da marco72 Visualizza Messaggio
    Questo è il codice che eseguo:
    Ciao @marco72, ricordati di inserire il codice VBA nei relativi TAG () tramite il tasto "#".
    Per questa volta l'ho fatto io.

  19. #19
    L'avatar di marco72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Roma
    Età
    45
    Messaggi
    10
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Ciao Rubik71,


    grazie

  20. #20
    L'avatar di marco72
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Roma
    Età
    45
    Messaggi
    10
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Inserire tramite intestazione pie' di pagina immagine su tutti i fogli

    Grazie Baloon_50

    ora sembra tutto apposto!

    Grazie

Discussioni Simili

  1. inserire un immagine in una formula
    Di Raffaele Esposito nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 30/12/16, 20:04
  2. Sistemare testo per non sovrapporsi all'immagine di intestazione / piè di pagina
    Di Cristina1 nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 13/12/16, 16:50
  3. sommatoria parziale in Intestazione e piè di pagina
    Di frador nel forum Domande su Excel in generale
    Risposte: 17
    Ultimo Messaggio: 21/09/16, 13:29
  4. Intestazione pagina
    Di baz83 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 07/10/15, 09:01
  5. Creare una macro che consenta di inserire nell'intestazione o pie di pagina
    Di carabb nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 22/07/15, 10:58

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •