Re-dimensionnement d'une image (en entête) par macro.
2 réponses
Emile
Bonjour à tous,
Pour ne rien oublier (dans la présentation) lorsque je fais une nouvelle
feuille Excel,
j'utilise la macro ci-dessous, qui permet d'insérer en entête "Mon logo" sur
chaque onglet
ainsi que le pied de page- chemin - Page(s) - et - Date
Mon problème c'est que le paramètre pour redimensionner le logo
(l'original -que je ne dois pas manipuler- est un peu grand)
ne fonctionne que sur le dernier onglet. La boucle est bien exécutée
X=NbOnglets mais bien
que le logo soit insérer X fois, il n'est redimensionné qu'une fois??!!
Est-ce que quelqu'un pourrait m'expliquer la raison, et éventuellement, me
corriger :-)
Je vous remercie d'avance pour votre aide,
Cordialement,
Emile
--------------------------------------------------------------
Sub InsertPiedPage()
'Insert le nom du fichier et son chemin pour chaque feuille du classeur
actif
On Error Resume Next
For Each Sht In ActiveWorkbook.Sheets
With Sht.PageSetup
.RightHeaderPicture.Filename = _
"C:\Documents and Settings\mon profil\Mes documents\Mes images\Mon
logo.gif"
With ActiveSheet.PageSetup.RightHeaderPicture
.Height = 42.75
.Width = 144.75
End With
.RightHeader = "&G"
.LeftFooter = "&""Univers 45 Light""&4" & ActiveWorkbook.FullName
.CenterFooter = "&""Univers 45 Light""&7" & "Page &P sur &N"
.RightFooter = "&""Univers 45 Light""&7" & Format(Date, " d mmm
yyyy")
End With
Next Sht
End Sub
--------------------------------------------------------------
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Emile,
Sub InsertPiedPage() 'Insert le nom du fichier et son chemin pour chaque feuille du classeur actif On Error Resume Next For Each Sht In ActiveWorkbook.Sheets With Sht.PageSetup .RightHeaderPicture.Filename = _ "C:Documents and Settingsmon profilMes documentsMes imagesMon logo.gif" With .RightHeaderPicture .Height = 42.75 .Width = 144.75 End With
.RightHeader = "&G" .LeftFooter = "&""Univers 45 Light""&4" & ActiveWorkbook.FullName .CenterFooter = "&""Univers 45 Light""&7" & "Page &P sur &N" .RightFooter = "&""Univers 45 Light""&7" & Format(Date, " d mmm yyyy") End With Next Sht End Sub
isabelle
Bonjour à tous,
Pour ne rien oublier (dans la présentation) lorsque je fais une nouvelle feuille Excel, j'utilise la macro ci-dessous, qui permet d'insérer en entête "Mon logo" sur chaque onglet ainsi que le pied de page- chemin - Page(s) - et - Date Mon problème c'est que le paramètre pour redimensionner le logo (l'original -que je ne dois pas manipuler- est un peu grand) ne fonctionne que sur le dernier onglet. La boucle est bien exécutée X=NbOnglets mais bien que le logo soit insérer X fois, il n'est redimensionné qu'une fois??!! Est-ce que quelqu'un pourrait m'expliquer la raison, et éventuellement, me corriger :-) Je vous remercie d'avance pour votre aide, Cordialement, Emile -------------------------------------------------------------- Sub InsertPiedPage() 'Insert le nom du fichier et son chemin pour chaque feuille du classeur actif
On Error Resume Next For Each Sht In ActiveWorkbook.Sheets
With Sht.PageSetup
.RightHeaderPicture.Filename = _ "C:Documents and Settingsmon profilMes documentsMes imagesMon logo.gif" With ActiveSheet.PageSetup.RightHeaderPicture .Height = 42.75 .Width = 144.75 End With
.RightHeader = "&G" .LeftFooter = "&""Univers 45 Light""&4" & ActiveWorkbook.FullName .CenterFooter = "&""Univers 45 Light""&7" & "Page &P sur &N" .RightFooter = "&""Univers 45 Light""&7" & Format(Date, " d mmm yyyy") End With
Next Sht
End Sub --------------------------------------------------------------
bonjour Emile,
Sub InsertPiedPage()
'Insert le nom du fichier et son chemin pour chaque feuille du classeur
actif
On Error Resume Next
For Each Sht In ActiveWorkbook.Sheets
With Sht.PageSetup
.RightHeaderPicture.Filename = _
"C:Documents and Settingsmon profilMes documentsMes imagesMon
logo.gif"
With .RightHeaderPicture
.Height = 42.75
.Width = 144.75
End With
.RightHeader = "&G"
.LeftFooter = "&""Univers 45 Light""&4" & ActiveWorkbook.FullName
.CenterFooter = "&""Univers 45 Light""&7" & "Page &P sur &N"
.RightFooter = "&""Univers 45 Light""&7" & Format(Date, " d mmm
yyyy")
End With
Next Sht
End Sub
isabelle
Bonjour à tous,
Pour ne rien oublier (dans la présentation) lorsque je fais une nouvelle
feuille Excel,
j'utilise la macro ci-dessous, qui permet d'insérer en entête "Mon logo" sur
chaque onglet
ainsi que le pied de page- chemin - Page(s) - et - Date
Mon problème c'est que le paramètre pour redimensionner le logo
(l'original -que je ne dois pas manipuler- est un peu grand)
ne fonctionne que sur le dernier onglet. La boucle est bien exécutée
X=NbOnglets mais bien
que le logo soit insérer X fois, il n'est redimensionné qu'une fois??!!
Est-ce que quelqu'un pourrait m'expliquer la raison, et éventuellement, me
corriger :-)
Je vous remercie d'avance pour votre aide,
Cordialement,
Emile
--------------------------------------------------------------
Sub InsertPiedPage()
'Insert le nom du fichier et son chemin pour chaque feuille du classeur
actif
On Error Resume Next
For Each Sht In ActiveWorkbook.Sheets
With Sht.PageSetup
.RightHeaderPicture.Filename = _
"C:Documents and Settingsmon profilMes documentsMes imagesMon
logo.gif"
With ActiveSheet.PageSetup.RightHeaderPicture
.Height = 42.75
.Width = 144.75
End With
.RightHeader = "&G"
.LeftFooter = "&""Univers 45 Light""&4" & ActiveWorkbook.FullName
.CenterFooter = "&""Univers 45 Light""&7" & "Page &P sur &N"
.RightFooter = "&""Univers 45 Light""&7" & Format(Date, " d mmm
yyyy")
End With
Next Sht
End Sub
--------------------------------------------------------------
Sub InsertPiedPage() 'Insert le nom du fichier et son chemin pour chaque feuille du classeur actif On Error Resume Next For Each Sht In ActiveWorkbook.Sheets With Sht.PageSetup .RightHeaderPicture.Filename = _ "C:Documents and Settingsmon profilMes documentsMes imagesMon logo.gif" With .RightHeaderPicture .Height = 42.75 .Width = 144.75 End With
.RightHeader = "&G" .LeftFooter = "&""Univers 45 Light""&4" & ActiveWorkbook.FullName .CenterFooter = "&""Univers 45 Light""&7" & "Page &P sur &N" .RightFooter = "&""Univers 45 Light""&7" & Format(Date, " d mmm yyyy") End With Next Sht End Sub
isabelle
Bonjour à tous,
Pour ne rien oublier (dans la présentation) lorsque je fais une nouvelle feuille Excel, j'utilise la macro ci-dessous, qui permet d'insérer en entête "Mon logo" sur chaque onglet ainsi que le pied de page- chemin - Page(s) - et - Date Mon problème c'est que le paramètre pour redimensionner le logo (l'original -que je ne dois pas manipuler- est un peu grand) ne fonctionne que sur le dernier onglet. La boucle est bien exécutée X=NbOnglets mais bien que le logo soit insérer X fois, il n'est redimensionné qu'une fois??!! Est-ce que quelqu'un pourrait m'expliquer la raison, et éventuellement, me corriger :-) Je vous remercie d'avance pour votre aide, Cordialement, Emile -------------------------------------------------------------- Sub InsertPiedPage() 'Insert le nom du fichier et son chemin pour chaque feuille du classeur actif
On Error Resume Next For Each Sht In ActiveWorkbook.Sheets
With Sht.PageSetup
.RightHeaderPicture.Filename = _ "C:Documents and Settingsmon profilMes documentsMes imagesMon logo.gif" With ActiveSheet.PageSetup.RightHeaderPicture .Height = 42.75 .Width = 144.75 End With
.RightHeader = "&G" .LeftFooter = "&""Univers 45 Light""&4" & ActiveWorkbook.FullName .CenterFooter = "&""Univers 45 Light""&7" & "Page &P sur &N" .RightFooter = "&""Univers 45 Light""&7" & Format(Date, " d mmm yyyy") End With
Next Sht
End Sub --------------------------------------------------------------
