makro Hintergrund geht nicht

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