besoin rendre image transparente dans excel

Bonjour Éric,

C'est un problème bien connu.

Il y a une bidouille que voici publié ici par Denny Campbell
(ce n'est pas le département des miracles !)

'---------------------------------
Sub ImpFiligrane()

'La Zone d'impression DOIT être préalablement définie
Dim ZoneImpr As Range

Set ZoneImpr = Range(ActiveSheet.PageSetup.PrintArea)
ZoneImpr.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste Destination:=ZoneImpr

ActiveWindow.SelectedSheets.PrintPreview

ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete

End Sub
'---------------------------------


Salutations!



"eric genius" <eric genius@discussions.microsoft.com> a écrit dans le message de news:
73542AEF-6E00-423C-A004-8052D50CCB38@microsoft.com...
bonjour, je ne suis pas capable de mettre une image au fond de la feuille de
calcul et de pouvoir l'imprimer.

Merci de ta réponse, si tu as d'autre réponse à ce sujet écris moi, peux-tu
me détailler ca en francais, et par ou je doit commancer pour la zone
d'impression encore merci de ta réponse

Bonjour Éric,

C'est un problème bien connu.

Il y a une bidouille que voici publié ici par Denny Campbell
(ce n'est pas le département des miracles !)

'---------------------------------
Sub ImpFiligrane()

'La Zone d'impression DOIT être préalablement définie
Dim ZoneImpr As Range

Set ZoneImpr = Range(ActiveSheet.PageSetup.PrintArea)
ZoneImpr.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste Destination:=ZoneImpr

ActiveWindow.SelectedSheets.PrintPreview

ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete

End Sub
'---------------------------------


Salutations!



"eric genius" <eric genius@discussions.microsoft.com> a écrit dans le message de news:
73542AEF-6E00-423C-A004-8052D50CCB38@microsoft.com...
bonjour, je ne suis pas capable de mettre une image au fond de la feuille de
calcul et de pouvoir l'imprimer.