Voici le code VBA pour personnaliser la police, la taille de police et styliser les en-têtes et pieds de page dans une feuille de calcul Excel :
'With sht.PageSetup
'.CenterHeader = "&R&""Consolas""&KFFFF00" & sht.Name
'.PrintArea = Range(Cells(1, 1), Cells(lastrow, lastcol)).Address
'End With
Comment je peux convertir cela en AppleScript ? J'ai essayé ce qui suit :
tell application id "com.microsoft.Excel"
set screen updating to false
set wb to active workbook
set wsName to the name of the active sheet of wb
repeat with ctr from 1 to the count of worksheets in wb
log ctr
set sName to (the name of worksheet ctr of wb)
select worksheet sName
tell page setup object of active sheet
set center header to sName
--.CenterHeader = "&R&""Consolas""&KFFFF00" & sht.Name
-- set center header to "&R&""Consolas""&KFFFF00" & sName
end tell
end repeat
save wb
select worksheet wsName -- retour à la feuille active originale
set screen updating to true
end tell
mais j'ai besoin d'aide pour cette ligne :
– set center header to "&R&""Consolas""&KFFFF00" & sName