ich hab folgendes makro, welches mir die Hintergrund (Desktop) Grafik setzt.
Es ging mal, aber nun nicht mehr.
Warum
Danke Gruss volker
Public Declare
Function _
SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" ( _
ByVal uAction As Long, _
ByVal uParam As Long, _
ByVal lpvParam As String, _
ByVal fuWinIni As Long) As Long
Sub Auto_open()
Dim lng As Long
Dim strWP As String
strWP = "C:\Dokumente und Einstellungen\v.weil\Eigene Dateien\Eigene Bilder\sch.jpg" 'InputBox("Pfad der Hintergrunddatei:")
If strWP = "" Then Exit Sub
lng = SystemParametersInfo(20, 0, strWP, 1)
If lng = 0 Then
MsgBox "Hintergrunddatei konnte nicht gesetzt werden!"
End If
End Sub