Como alterar o plano de fundo da área de trabalho no Windows 7

Question

Devido a políticas de grupo aplicadas nos nossos sistemas, não podemos alterar o fundo da nossa área de trabalho permanentemente. O "Definir como plano de fundo da área de trabalho" do IE está funcionando, mas temporariamente. PS: Eu tenho privilégios de administrador no meu sistema.

    

Answer 1

Você apenas encontrará o arquivo de imagem de plano de fundo que está usando no momento e sobrescreverá, em vez de tentar apontar suas preferências em um arquivo diferente.

Portanto, se o arquivo de fundo atual for c: \ windows \ system \ background.png, você poderá fazer uma cópia de BACKUP, background.png.bak ou similar. Então você copia o que você quer usar para c: \ windows \ system \ background.png. Isso mudará o plano de fundo para todos que usam o computador, para que você possa criar um script que copie os arquivos no login / logout.

    

Answer 2

Eu tenho a mesma situação aqui. Eu fiz isso de uma maneira um pouco diferente + não requer privilégios de administrador:

1. Crie um novo diretório: C: \ Wallpaper

2. Mude para o seu papel de parede, redimensione-o para as dimensões da tela e renomeie-o para background.jpg . Para redimensionar a imagem sem qualquer aplicativo de terceiros, abra o arquivo background.jpg com o MS Paint, pressione CTRL + W (para redimensionar), desmarque "Manter proporção", selecione o botão "Pixels" e ajuste sua imagem de acordo com o tamanho da área de trabalho .

3. Crie um novo arquivo nesse diretório chamado wallpaper.bat com o seguinte conteúdo (observe que você pode alterar 30 para um número maior se ele não for definido na inicialização. Por exemplo: 60 ou 90):

timeout /t 30 /nobreak > NUL
Call background.xlsm

4. Crie o arquivo wallpaper.vbs no mesmo diretório com o seguinte conteúdo:

Set WshShell = CreateObject("WScript.Shell" ) 
WshShell.Run chr(34) & "C:\Wallpaper\wallpaper.bat" & Chr(34), 0 
Set WshShell = Nothing 

5. Abra o MS Excel (mais tarde você irá salvá-lo lá, mas agora basta seguir as instruções), pressione Alt + F11 e o Visual Basic for Applications será aberto. Do lado esquerdo, você verá o navegador do projeto, clique duas vezes em ThisWorkbook e cole o seguinte conteúdo:

Private Sub Workbook_Open()
     If (ThisWorkbook.Name = "background.xlsm") Then
          Call changeWallpaper("C:\Wallpaper\background.jpg")
          Application.DisplayAlerts = False
          Application.Quit
     End If
End Sub

6. No mesmo arquivo do Excel, clique com o botão direito do mouse em qualquer um dos itens no navegador do projeto, depois em "Inserir", depois em "Módulo" e cole o código a seguir:

Option Explicit

Public 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

Public Const SPI_SETDESKWALLPAPER = 20 Public Const
SPIF_SENDWININICHANGE = &H2 Public Const SPIF_UPDATEINIFILE = &H1

Public Sub changeWallpaper(location As String)

     Dim strImagePath As String
     strImagePath = location

     Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, strImagePath, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub

5. Certifique-se de que as macros estejam sempre disponíveis sem confirmação para ativá-las para este arquivo. Salve este arquivo como arquivo Excel habilitado para macros com a extensão xlsm (é necessário chamá-lo de background.xlsm):

C:\Wallpaper\background.xlsm

7. Feche e abra o arquivo xlsm do Excel. Se o papel de parede está sendo definido - está feito. Caso contrário, verifique a segurança das macros. Talvez você precise adicionar esse arquivo do Excel a uma lista de permissões nas configurações de segurança de macros do Excel? Para mim - funciona. Se você ainda não consegue fazê-lo funcionar, você está sem sorte.

8. Defina o papel de parede no diretório de inicialização do Windows, coloque o atalho do arquivo wallpaper.vbs . Para fazer um atalho, clique com o botão direito do mouse no arquivo wallpaper.vbs e clique em "Criar atalho". Para abrir o diretório de inicialização, vá para Iniciar - > Todos os programas - > pasta startup , clique com o botão direito e "Open". Mova o atalho criado para esse diretório de inicialização.

NOTA 1: Após a inicialização, 30 segundos passarão e seu papel de parede deve ser definido com sucesso. Sem o temporizador (30 segundos), o arquivo excel dará erro por algum motivo.

OBSERVAÇÃO 2: Para editar o arquivo xlsm do Excel, renomeie-o para qualquer outro nome (por exemplo, bbackground.xlsm ) e abra-o. Quando você terminar de modificar o conteúdo, salve-o e renomeie para background.xlsm .