XL 2010 Placer image dans pied de page

[Wyrgle]

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]

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]

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]

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 ?