' regular module
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction&, _
ByVal uParam&, ByVal lpvParam As Any, ByVal fuWinIni&) As Long
Sub NewWallpaper()
Dim p$, ret&
p = "c:\pub\wp2.bmp" ' where to save image
ActiveChart.Export p ' save chart as picture
If Err.Number = 0 Then ret = SystemParametersInfo(20, 0&, p, &H2 Or &H1)
End Sub