Salve a tutti,
scrivo perchè ho questo problema:
Devo creare un template in excel che contiene un header e un footer. Vorrei che alla creazione di un nuovo worksheet questi header e footer vengano inseriti nel nuovo worksheet (come avviene in auto in word per i nuovi fogli!).
Ora, sono riuscito a ricreare tutte le formattazioni e a copiare il testo del header e del footer dal worksheet1 al nuovo worksheet2 ma non riesco a copiare una immagine che sta nel leftheader del worksheet 1 sul nuovo worksheet2.
Come posso fare?
vi posto del codice che ho usato per creare il nuovo worksheet formattato:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim str As String
Sh.Move After:=Sheets(Sheets.Count)
str = Sh.Name
Application.DisplayAlerts = False
'Copio il contenuto dgli header e footer del primo folgio sul nuovo
Sh.PageSetup.LeftHeader = Worksheets(1).PageSetup.LeftHeader
Sh.PageSetup.RightHeader = Worksheets(1).PageSetup.RightHeader
Sh.PageSetup.LeftFooter = Worksheets(1).PageSetup.LeftFooter
Sh.PageSetup.CenterFooter = Worksheets(1).PageSetup.CenterFooter
Sh.PageSetup.RightFooter = Worksheets(1).PageSetup.RightFooter
Sh.PageSetup.Orientation = xlLandscape
Sh.PageSetup.HeaderMargin = 1
Sh.PageSetup.FooterMargin = 0.7
Sh.Name = str
'Copio le formattazioni
Sh.Range("A1:iv65536").Font.Size = 10
Sh.Range("A1:iv65536").Font.Name = "Arial"
Sh.Range("A1:iv65536").RowHeight = 12.75
Sh.Range("A1:iv65536").ColumnWidth = 8.38
Sh.Range("A1").Value = "<inserire titolo completo>"
Sh.Range("A1").Font.Bold = True
Sh.Range("A1").Font.Size = 14
Sh.Range("A1").Font.Name = "Arial"
Sh.Range("A1").RowHeight = 18
End Sub
Nel codice manca l'istruzione per inserire l'immagine perchè non l'ho trovata
Una mezza soluzione l'avevo trovata, cioè portarmi dietro l'immagine da caricare e quindi caricarla alla creazione del worksheet, ma vorrei avere solo il file excel!
Grazie tante
Saluti
Andrea
Rispondi quotando
