XL 2010 Placer image dans pied de page

Wyrgle

XLDnaute Junior
Bonjour à tous,

Un truc certainement simple pour les connaisseurs, mais pour moi ca pose problème : j'ai 2 images dans une feuille que je veux déplacer dans le pied-de-page de cette même feuille (1 en left.footer, 1 en right.footer).

Comment faire ?

Merci pour votre aide !
Wyrgle
 

jecherche

XLDnaute Occasionnel
Bonjour,

Si une simple manipulation manuelle te convient ...
Tout en laissant Excel ouvert, ouvre aussi MsPaint (existe dans toutes les versions de Windows), réduit le fond blanc plus petit que l'image en question, bascule dans Excel, clique droit sur l'image, copier, bascule sur MsPaint, coller, enregistre l'image avec un nom significatif dans ton dossier préféré, répète pour la 2e image, ferme MsPaint.
Retourne dans Excel, va dans Pied de page personnalisé, clique sur l'icône "Insérer une image" .....

Bonne chance.


Jecherche
 

Roland_M

XLDnaute Barbatruc
Bonjour à tous,

(avec Excel 2007)
'dans le ruban clic <insertion> puis choisir <Entête Pied de page>
'tu arrives dans l'entête page il suffit de sortir pour sélectionner le pied de page
'dans le ruban tu clic sur <Image> ce qui aura pour effet d'ouvrir une boite pour sélectionner ton image !

'sinon par macro voir cet exemple:

Sub Macro1()
ActiveSheet.PageSetup.CenterFooterPicture.Filename = "C:\Documents\MonImage.jpg"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&G"
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.7)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Range("A1").Select
End Sub
 

Wyrgle

XLDnaute Junior
Merci Roland_M, merci jecherche,

Mais je voulais passer par une macro qui déplace une image d'une feuille vers le pied-de-page de cette feuille, donc sans référence à un chemin du type C:\Docs.

Ou bien est-il possible de les placer en bas de feuille dans la limite de la zone d'impression ?
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 871
Messages
2 093 102
Membres
105 627
dernier inscrit
jean-marc.brillant