Windows 7 Forums

Welcome to Windows 7 Forums. Our forum is dedicated to helping you find support and solutions for any problems regarding your Windows 7 PC be it Dell, HP, Acer, Asus or a custom build. We also provide an extensive Windows 7 tutorial section that covers a wide range of tips and tricks.


Windows 7: Icon Size Registry Tweak

17 Feb 2010   #21
ShopBunny

win7 x64
 
 

Quote   Quote: Originally Posted by reghakr View Post
You have no choice, when you change the size of the icons the grid changes automatically.
You can manually set the spacing between icons very easily :

Quote:
rightclick desktop and go to "Personalization" page>Window color>advanced

from the dropdown box, you will see :

spacing between icons (horiz)
spacing between icon (vert)

From there you can manipulate the spacing to your liking.



My System SpecsSystem Spec
.
25 Feb 2010   #22
mrquickly

Windows 7
 
 

@EricT
Thanks for the info

If've written an Batch script which does the change:

Code:
@echo off 
taskkill /im explorer.exe /f 
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\Bags\1\Desktop" /v IconSize /t REG_DWORD /d 00000032 /f 
"%windir%\explorer.exe"
Strange is, that after a fresh installation and first login with a user the script doesn't works. You've first to logoff and than login again?! Otherwise there are no standard values in the key.

Would be very happy if someone could write an shell API script
My System SpecsSystem Spec
10 Mar 2010   #23
mrquickly

Windows 7
 
 

Does andybody know a better way already?
My System SpecsSystem Spec
.

29 Jul 2010   #24
Jackized

Windows 7
 
 

Hello, I too would love to be able to change the icon size in Windows 7 by the registry or script. Reason: We have over 2000 systems and having the ability to control ever little detail is nice. I still need to look at Group Policy. I have tried everything in this post and nothing works.
My System SpecsSystem Spec
13 Aug 2010   #25
Amstramgram

Windows 7
 
 

Hello from France.
Thanks to this post informations, I've writen a little vbs script that autohide the taskbar and set the destop icons to small size.
How it works?
The script write an other script called "BarreDesTaches.vbs" in the temporary folder of Windows, add a registry entry in RunOnce to launch it on the next LogOn, and automatically LogOff.
Hope you enjoy!
L.

http://lamemelongueurdonde.com/blog/...eDesTaches.rar
My System SpecsSystem Spec
13 Aug 2010   #26
Dwarf

Windows 8.1 Pro RTM x64
 
 

Seems OK.

Here is the code for the script (remember that the author is French):

Code:
Option Explicit
'-------------------------------------------------------------------------------------------
'Récupération de l'emplacement de Windows
'-------------------------------------------------------------------------------------------
Dim oShell
Set oShell = CreateObject("Wscript.Shell")
Dim strWinDir
strWinDir = oShell.ExpandEnvironmentStrings("%SystemRoot%") 
'-------------------------------------------------------------------------------------------
'Ecriture du fichier BarreDesTaches.vbs dans le répertoire temporaire
'-------------------------------------------------------------------------------------------
Dim objFSO, objTextFile
Dim strDirectory, strFile, strText
strDirectory = strWinDir & "\TEMP"
strFile = "\BarreDesTaches.vbs"
strText = "const HKCU = &H80000001" _
& VbCRLf & _
"dim oWMIReg"_
& VbCrLf & _
"set oWMIReg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"")"_
& VbCrLf & _
"dim iValueArray()"_
& VbCrLf & _
"oWMIReg.GetBinaryValue HKCU, ""Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2"", ""Settings"", iValueArray"_
& VbCrLf & _
"iValueArray(8) = 3"_
& VbCrLf & _
"oWMIReg.SetBinaryValue HKCU, ""Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2"", ""Settings"", iValueArray"_
& VbCrLf & _
"oWMIReg.SetDWORDValue HKCU, ""Software\Microsoft\Windows\Shell\Bags\1\Desktop"", ""IconSize"", 30"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(strDirectory & strFile, 2, True)
objTextFile.WriteLine(strText)
objTextFile.Close

'-------------------------------------------------------------------------------------------
'Lancement du fichier BarreDesTaches.vbs au prochain LogOn via Runeonce
'-------------------------------------------------------------------------------------------
const HKey_LOCAL_MACHINE = &H80000002
dim oWMIReg
set oWMIReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") 
oWMIReg.SetStringValue HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\RunOnce", "BarreDesTaches", strWinDir&"\Temp\BarreDesTaches.vbs"
'-------------------------------------------------------------------------------------------
'LogOff
'-------------------------------------------------------------------------------------------
dim objExec
Set objExec = oShell.Exec("logoff")
WScript.Quit
My System SpecsSystem Spec
25 Apr 2013   #27
schmibble

7 Pro x64 (desktop), 7 Ultimate x86 (laptop)
 
 
modify script to not hide taskbar?

This is a nifty script, but I was wondering what lines I would need to delete in order to affect only the desktop icon size (as that is the specific purpose of this thread), leaving the taskbar alone since I already have it configured exactly the way I want, and I definitely do not want it auto-hidden.

I am comfortable with DOS batch files but have no experience with VB or even WSH, so am not sure how to proceed. Thanks much for any guidance.
Code:
Option Explicit
'-------------------------------------------------------------------------------------------
'Récupération de l'emplacement de Windows
'-------------------------------------------------------------------------------------------
Dim oShell
Set oShell = CreateObject("Wscript.Shell")
Dim strWinDir
strWinDir = oShell.ExpandEnvironmentStrings("%SystemRoot%") 
'-------------------------------------------------------------------------------------------
'Ecriture du fichier BarreDesTaches.vbs dans le répertoire temporaire
'-------------------------------------------------------------------------------------------
Dim objFSO, objTextFile
Dim strDirectory, strFile, strText
strDirectory = strWinDir & "\TEMP"
strFile = "\BarreDesTaches.vbs"
strText = "const HKCU = &H80000001" _
& VbCRLf & _
"dim oWMIReg"_
& VbCrLf & _
"set oWMIReg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"")"_
& VbCrLf & _
"dim iValueArray()"_
& VbCrLf & _
"oWMIReg.GetBinaryValue HKCU, ""Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2"", ""Settings"", iValueArray"_
& VbCrLf & _
"iValueArray(8) = 3"_
& VbCrLf & _
"oWMIReg.SetBinaryValue HKCU, ""Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2"", ""Settings"", iValueArray"_
& VbCrLf & _
"oWMIReg.SetDWORDValue HKCU, ""Software\Microsoft\Windows\Shell\Bags\1\Desktop"", ""IconSize"", 30"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(strDirectory & strFile, 2, True)
objTextFile.WriteLine(strText)
objTextFile.Close

'-------------------------------------------------------------------------------------------
'Lancement du fichier BarreDesTaches.vbs au prochain LogOn via Runeonce
'-------------------------------------------------------------------------------------------
const HKey_LOCAL_MACHINE = &H80000002
dim oWMIReg
set oWMIReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") 
oWMIReg.SetStringValue HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\RunOnce", "BarreDesTaches", strWinDir&"\Temp\BarreDesTaches.vbs"
'-------------------------------------------------------------------------------------------
'LogOff
'-------------------------------------------------------------------------------------------
dim objExec
Set objExec = oShell.Exec("logoff")
WScript.Quit
[/QUOTE]
My System SpecsSystem Spec
Reply

 Icon Size Registry Tweak




Thread Tools




Similar help and support threads
Thread Forum
Blasted Office osppsvc.exe Win7 x64 Registry tweak
I have attempted to use the registry tweak to turn off this blasted service once the office product is closed and it does not work on x64. Any ideas other than having to make batch shortcuts for everything. I feel like I'm back on xp having to do this. InactivityShutdownDelay
Microsoft Office
CHange Desktop icon size via registry
Hello everyone. I need to find where the Desktop icon size is stored in the registry. I already looked into this: HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics - Shell Icon Size and HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\Bags\1\Desktop - IconSize But neither of these...
Customization
Registry hack to set the desktop icon size to small - Win7 64bit
I am trying to find the registry key that will change the desktop icon size to small. This is mainly for new users, or for the default user. I have workstations that have several people sharing them and need this for everyone. I have looked in these locations:...
Installation & Setup
change taskbar icon size to specific size other than small or large?
Hi to all. Can we change taskbar icons' size to a specific size other than two default windows defined sizes? Tnx.
Customization
Tweak size of Virtual XP logical disk?
I have a couple of drawing programs that I'm having to use in VXP because they aren't 64bit compatible. When I try to open anything that is larger than a relatively small size, it errors out because it says "Not enough space to create scratch files." Is there a way to tweak the size of the...
Virtualization
Enable Transparent Icons registry tweak
Windows 7 registry scripts don't seem to work sometimes. That's why I always recommend you save the file in Notepad and save the encoding format as ANSI. That should eliminate the error message the error message, "Windows Registry Editor cannot import binary files" I will try to provide an undo...
Customization


Our Sites

Site Links

About Us

Find Us

Windows 7 Forums is an independent web site and has not been authorized, sponsored, or otherwise approved by Microsoft Corporation. "Windows 7" and related materials are trademarks of Microsoft Corp.

© Designer Media Ltd

All times are GMT -5. The time now is 17:24.

Twitter Facebook Google+



Windows 7 Forums

Seven Forums Android App Seven Forums IOS App