Insérer image en fond écran

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 18 Décembre 2008

• #2

Re : Insérer image en fond écran

Bonjour,


Pour image arrière plan:
Format /Feuille/Arriere plan

Pour imprimer avec Arrière-Plan:

Code:

Sub ImpressionAvecFond()
    Range("A1").CurrentRegion.Select
    Selection.CopyPicture    ' Copie la zone
    ActiveSheet.Paste Destination:=ActiveSheet.Range("A1")  'crée un shape
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub

http://boisgontierjacques.free.fr/fichiers/jb-impressions.zip

JB
Formation Excel VBA JB

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 18 Décembre 2008

• #3

Re : Insérer image en fond écran

Bonjour UJAP,

L'arrière plan n'est pas imprimable et de plus se propage à toute la feuille.

Bonne journée.

Jean-Pierre

Edit : Bonjour Jacques, j'aurais mieux fait de me taire. Chapeau.

 

Dernière édition: 18 Décembre 2008

Vote positif 0 Vote négatif

U

UJAP

XLDnaute Occasionnel

• 18 Décembre 2008

• #4

Re : Insérer image en fond écran

Merci bcp,

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 27 Mai 2009

• #5

Re : Insérer image en fond écran

Bonjour à tous

je reviens sur ce post car j'ai trouvé ( par hasard et sans le faire exprès) une solution sans macro

j'ai inséré une image dans l'entête de page sans avoir fais gaffe à la dimension de l'image ( qui fait +/- 600 X 900 pixels) et je me suis rendu compte à l'impression que ça peut très bien servir de filigrane

voir en fichier joint................j'ai modifié l'image initiale

 

Pièces jointes

• 111.xls

  45.5 KB · Affichages: 415
• 111.xls

  45.5 KB · Affichages: 421
• 111.xls

  45.5 KB · Affichages: 420

Vote positif 0 Vote négatif