태그 보관물: desktop-customization

desktop-customization

Windows 7에서 바탕 화면 배경을 변경하는 방법 수 없습니다

시스템에 적용 되는 그룹 정책 으로 인해 데스크톱 배경을 영구적으로 변경할 수 없습니다 . IE 의이 작업을 할 수 있습니다 만, 일시적으로는 “바탕 화면 배경으로 설정”. 추신 : 시스템에 대한 관리자 권한이 있습니다.

답변

기본 설정을 다른 파일로 지정하지 않고 현재 사용중인 배경 이미지 파일을 찾아 덮어 씁니다.

따라서 현재 배경 파일이 c : \ windows \ system \ background.png이면 백업 복사본, background.png.bak 또는 유사 파일을 만듭니다. 그런 다음 사용하려는 것을 c : \ windows \ system \ background.png에 복사합니다. 컴퓨터를 사용하는 모든 사람의 배경이 바뀌므로 대신 로그인 / 로그 아웃시 파일을 복사하는 스크립트를 만들 수 있습니다.

답변

나는 여기 같은 상황이 있습니다. 나는 약간 다른 방식으로 해왔으며 + 관리자 권한이 필요하지 않습니다.

  1. 새 디렉토리를 작성하십시오. C : \ Wallpaper

  2. 바탕 화면으로 이동하여 화면 크기로 크기를 조정하고 background.jpg로 이름을 바꿉니다 . 타사 앱없이 이미지 크기를 조정하려면 MS Paint를 사용하여 background.jpg 파일을 열고 CTRL + W (크기 조정)를 누르고 “종횡비 유지”를 선택 해제 한 다음 “픽셀”라디오 버튼을 선택하고 바탕 화면 크기에 따라 이미지를 조정하십시오. .

  3. 다음 컨텐츠를 사용하여 wallpaper.bat 라는 디렉토리에 새 파일을 작성하십시오 (부팅시 설정에 실패하면 30을 더 높은 숫자로 변경할 수 있습니다 (예 : 60 또는 90)).

timeout /t 30 /nobreak > NUL
Call background.xlsm
  1. 다음 컨텐츠가있는 동일한 디렉토리에 wallpaper.vbs 파일을 작성하십시오 .
Set WshShell = CreateObject("WScript.Shell" )
WshShell.Run chr(34) & "C:\Wallpaper\wallpaper.bat" & Chr(34), 0
Set WshShell = Nothing
  1. MS Excel을 엽니 다 (나중에 저장하면 지침을 따르십시오). Alt + F11을 누르면 Visual Basic for Applications가 열립니다. 왼쪽에는 프로젝트 브라우저가 표시되므로 ThisWorkbook을 두 번 클릭 하고 다음 내용을 붙여 넣습니다.
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
  1. 동일한 Excel 파일에서 프로젝트 브라우저의 항목을 마우스 오른쪽 버튼으로 클릭 한 다음 “삽입”, “모듈”을 클릭하고 다음 코드를 붙여 넣습니다.
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
  1. 이 파일에 대해 매크로를 활성화하기 위해 확인없이 항상 매크로를 사용할 수 있는지 확인하십시오. 이 파일을 확장자가 xlsm 인 매크로 사용 Excel 파일로 저장하십시오 (배경 이름은 background.xlsm).
C:\Wallpaper\background.xlsm

  1. xlsm Excel 파일을 닫고 엽니 다 . 배경 화면이 설정되면 완료됩니다. 그렇지 않은 경우-매크로 보안을 확인하십시오. Excel 매크로 보안 설정에서 해당 Excel 파일을 화이트리스트에 추가해야합니까? 나를 위해-그것은 작동합니다. 여전히 작동하지 않으면 운이 없습니다.

  2. 부팅시 배경 화면 설정-Windows 시작 디렉토리에서 wallpaper.vbs 파일 의 바로 가기를 배치 하십시오. 바로 가기를 만들려면 wallpaper.vbs 파일을 마우스 오른쪽 단추로 클릭하고 “바로 가기 만들기”를 클릭하십시오. 시작 디렉토리를 열려면 시작 -> 모든 프로그램 -> 시작 폴더로 이동 한 다음 마우스 오른쪽 단추로 클릭하고 “열기”를 클릭하십시오. 작성된 바로 가기를 해당 시작 디렉토리로 이동하십시오.

참고 1 : 부팅 후 30 초가 지나면 배경 화면이 성공적으로 설정됩니다. 타이머 (30 초)가 없으면 Excel 파일은 어떤 이유로 오류를 줄 것입니다.

참고 2 : Excel xlsm 파일 을 편집하려면 파일 이름을 다른 이름 (예 : bbackground.xlsm )으로 바꾸고여십시오 . 내용 수정이 끝나면 내용을 저장하고 background.xlsm으로 다시 이름을 바꿉니다 .

답변