Afficher une image en fond d'ecran de bureau avec une macro
JHache1801_
Messages postés
19
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
J'ai une partie de mon programme qui permet de convertir en plage de cellule en fichier bmp
j'aimerai savoir si c'est possible avec une macro d'afficher cette image en fond d'écran de bureau
Merci
J'ai une partie de mon programme qui permet de convertir en plage de cellule en fichier bmp
j'aimerai savoir si c'est possible avec une macro d'afficher cette image en fond d'écran de bureau
Merci
Configuration: Windows / Edge 16.16299
1 réponse
-
-
-
Plus simple. Ne fonctionne qu'avec des images BMP. J'ai testé c'est OK
https://www.generation-nt.com/reponses/comment-changer-le-fond-ecran-xp-en-vba-dans-une-macro-word-entraide-330866.html- Bonjour,
A mettre dans un Module:
Option Explicit Private Declare Function SystemParametersInfo Lib "user32" _ Alias "SystemParametersInfoA" (ByVal uAction As Long, _ ByVal uParam As Long, ByVal lpvParam As Any, _ ByVal fuWinIni As Long) As Long Sub ChangePapierPeint(Fichier As String, Registre As Boolean) Dim x x = SystemParametersInfo(20, 0, Fichier, Abs(Registre)) End Sub Public Sub Test() ChangePapierPeint "C:\Users\Public\Pictures\Pictures\monimage.bmp", False 'chemin de l'image (bmp uniquement) à adapter End Sub 'https://www.generation-nt.com/reponses/comment-changer-le-fond-ecran-xp-en-vba-dans-une-macro-word-entraide-330866.html 'et pour lancer à l'aide d'un bouton Private Sub CommandButton1_Click() Test End Sub
Voilà
@+ Le Pivert
-
