win7桌面背景如何设置居中填充拉伸平铺适应

我们在设置桌面背景时如果图片不够大，怎么设置拉伸平铺到整个桌面？下面来看一下。

01

如图，这张背景图片不够大，四周有黑边，没有填充满整个桌面。

02

右键点击桌面，然后点击‘个性化’

03

打开后，点击下方的‘桌面背景’

04

打开后，点击下方的下拉框，点击选中‘填充’，保存修改。

05

再看下桌面，现在的图片已经平铺填充满整个桌面了，没有黒边了。

将下面的内容完整复制到记事本txt文档中,,然后扩展名改为vbs就可以了,双击直接使用.const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

&"{impersonationLevel=impersonate}!\\" &strComputer &"\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _

("Select * from Win32_Process Where Name = 'explorer.exe'")

For Each objProcess in colProcessList

objProcess.Terminate()

Next

Set objRegistry=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

strComputer &"\root\default:StdRegProv")

strKeyPath1 = "Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags"

strKeyPath2 = "Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\BagMRU"

strKeyPath3 = "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults"

DeleteSubkeys HKEY_CURRENT_USER, strKeypath1

DeleteSubkeys HKEY_CURRENT_USER, strKeypath2

DeleteSubkeys HKEY_CURRENT_USER, strKeypath3

Sub DeleteSubkeys(HKEY_CURRENT_USER, strKeyPath)

objRegistry.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubkeys

If IsArray(arrSubkeys) Then

For Each strSubkey In arrSubkeys

DeleteSubkeys HKEY_CURRENT_USER, strKeyPath &"\" &strSubkey

Next

End If

objRegistry.DeleteKey HKEY_CURRENT_USER, strKeyPath

End Sub

---