Image en arriere plan

[apdf]

Bonjour,

Je suis a la recherche d'un code pour insérer une image en arrière plan sans mosaique sur ma feuille.

Je vous remercie d'avance

 

[Lone-wolf]

Re : Image en arriere plan

Bonjour apdf,

voilà qui fera un heureux(enfin...même deux ), clique sur le lien https://www.excel-downloads.com/threads/arriere-plan-delimite.63284/

Bonne fin de journée


Amicalement
Lone-wolf

 

[Lone-wolf]

Re : Image en arriere plan

Re apdf,

correction du code de jean, qui m'affiche un message d'erreur Object requis.

Private Sub Workbook_Open()
Dim img$
img = "C:\Users\Jacky\Desktop\Téléchargés\blue-night.jpg"
Sheets("Feuil1").SetBackgroundPicture img    'ThisWorbook.Path provoque l'erreur: Objet requis.
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").SetBackgroundPicture = ""
End Sub

Je ne sais pas pourquoi il n'accepte pas ThisWorbook.Path???
Erreur peut-être due à l'image??

Edit:

Private Sub Workbook_Open()
Sheets("Feuil1").SetBackgroundPicture ThisWorkbook.Path & "\vba.jpg"
End Sub


A+


Amicalement
Lone-wolf

 

[JCGL]

Re : Image en arriere plan

Bonjour à tous,

Peux-tu essayer :

Private Sub Workbook_Open()
img = "C:\Users\Jacky\Desktop\Téléchargés\blue-night.jpg"
Sheets("Feuil1").SetBackgroundPicture =img
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").SetBackgroundPicture = ""
End Sub

A + à tous

 

[Lone-wolf]

Re : Image en arriere plan

Bonsoir JCGL,

test effectué: Erreur d'exécution 438, propriété ou méthode non gérée par cet objet.

A+



Amicalement
Lone-wolf

 

[JCGL]

Re : Image en arriere plan

Bonjour à tous,

Ces deux fichiers dans le même répertoire

A + à tous

 

[apdf]

Re : Image en arriere plan

Bonsoir Lone-wolf , JC,

Je vous remercie et vous souhaite une bonne soirée

 

[Lone-wolf]

Re : Image en arriere plan

Re JCG,

cette fois c'est ok. Merci pour la correction des lignes de code.

Encore une petite question: j'ai une image de 330x333px, mais elle s'affiche en mosaïque.

Il y a un moyen pour l'avoir en étirer (une seul image)?

Je sais qu'en codant dans une feuille de style CSS, on rajoute "background-repeat:no-repeat;", pour n'avoir qu'une seule image.

A+


Amicalement
Lone-wolf

 

[BOISGONTIER]

Re : Image en arriere plan

Bonjour,

On peut simuler un arrrière plan sur un tableau avec une image transparente en arrière-plan d'un shape

Arrière-plan d'un tableau

JB

 

[Lone-wolf]

Re : Image en arriere plan

Bonsoir Jacques,

le problème avec cette solution, comme je viens de le voir sur le fichier, ne permet pas d'écrire dans ls cellules.

Ceci dit, j'ai supprimé l'ancienne image, pour mettre un des motifs unicolor de Photofiltre, qui à (résolut) le problème; et j'ai codé pour que chaque nouvelle feuille aie le même style, voir PJ à télécharger sur le bureau, en ouvrant directement le fichier affiche un message d'erreur.

Très bonne soirée Jacques


Amicalement
Lone-wolf

 

[VikLeroy]

Re : Image en arriere plan

Ah c'est cool cette méthode, je retiens, merci

 

[Misange]

Re : Image en arriere plan

Bonjour

on peut faire cela avec une image en filigrane que l'on positionne en jouant avec le rognage.
Un petit tuto ici
Ce lien n'existe plus