Intestazione Excel 2013 macro VBA

Question

Buongiorno Community,

come posso inserire nel LeftHeader di un foglio Excel 2013 un'immagine (logo) in maniera automatica? Ovvero, quali sarebbero le righe di comando? Nota: vorrei che il file immagine possa essere disponibile a chiunque utilizzi tale formato ovvero l'utente non deve necessariamente avere sul suo PC il file immagine da inserire anche perché immagino che se così fosse le righe di comando in VBA sarebbero di volta in volta diverse (path dove si trova il file immagine).

Grazie

Answer 1

Ciao DolphinC,

come posso inserire nel LeftHeader di un foglio Excel 2013 un'immagine (logo) in maniera automatica? Ovvero, quali sarebbero le righe di comando? Nota: vorrei che il file immagine possa essere disponibile a chiunque utilizzi tale formato ovvero l'utente non deve necessariamente avere sul suo PC il file immagine da inserire anche perché immagino che se così fosse le righe di comando in VBA sarebbero di volta in volta diverse (path dove si trova il file immagine).

Non sono sicuro di aver capito la tue esigenza ma potresti inserire un'immagine nel LeftHeader con il seguente codice e salvare il file. In questo modo credo che l'immagine sia 'embedded' (integrata) nel file e, quindi, non dovrebbe essere necessario che un utente abbia il file sul suo disco,  

'=========>>

Option Explicit

'--------->>

Public Sub InsertPicture()

    Dim WB As Workbook

    Dim SH As Worksheet

    Const sFoglio As String = "Sheet1"                                    '<<=== Modifica

    Const sPercorso As String = _

                       "C:\Users\ndj\Documents"                              '<<=== Modifica

    Const sNomeFileImmagine As String = "A1.jpg"               '<<=== Modifica

    Set WB = ThisWorkbook

    Set SH = WB.Sheets(sFoglio)

    With SH.PageSetup

        With .LeftHeaderPicture

            .Filename = sPercorso & sNomeFileImmagine

            .Height = 100

            .Width = 150

            .Brightness = 0.36

            .ColorType = msoPictureAutomatic

            .Contrast = 0.39

            .CropBottom = 0

            .CropLeft = 0

            .CropRight = 0

            .CropTop = 0

        End With

        .LeftHeader = "&G"

    End With

End Sub

'<<=========

Per le mie prove di questa ipotesi, ho eseguito il codice, salvato il mio file e quindi cancellato il file di immagine. Riaprendo il file e esgendo l'anteprima di stampa,  ottengo qualcosa del genere:

Ho caricato il mio file TestHeader20160518.xlsm a:

https://www.dropbox.com/s/h21szjo58160fux/TestHeader20160518.xlsm?dl=0

===

Regards,

Norman

Answer 2

Ciao DolphinC.

Il file non funzione mi da errore al punto .Filename = sPercorso.... Ma il di la di questo sarà molto utile imparerò molto da questo esempio ergo grazie ancora

Devi sostituire

    Const sPercorso As String = _

                       "C:\Users\ndj\Documents"                              '<<=== Modifica

con il tuo percorso valido. Nota anche la finale \ .

    Const sNomeFileImmagine As String = "A1.jpg"               '<<=== Modifica

Verifica anche che tu abbia sostituito il nome dell'immagine con un nome valido e che si trova nella cartella indicata nella costante sPercorso.

Comunque l'importante per me sarebbe sapere se, stampando mio file di prova,  tu veda l'immagine  nel LeftHeader o meno.

===

Regards,

Norman

Answer 3

Grazie tantissimo! 

Il file non funzione mi da errore al punto .Filename = sPercorso.... Ma il di la di questo sarà molto utile imparerò molto da questo esempio ergo grazie ancora

Answer 4

sarebbe nel primo sheet (cover) del file excel, sarebbe sul web, sarebbe sul server aziendale...

Grazie

Answer 5

E dove sarebbe se non sul pc dell'utente l'immagine?

Il file lo distribuisci tu o è un file generico che apre l'utente sul suo pc?

Grazie.