Bureaubladiconen versmallen

[drechaux]

Hallo Moderator,
Ben van Windows 8.1 naar Windows 10 overgestapt met de gratis Upgrade van Microsoft.
Perfect vindt ik het, een hele verbetering.
Nu heb ik een klein probleempje.
Mijn pictogrammen op het Bureaublad staan horizontaal op een goed afstand van elkaar.
Verticaal echter staan ze te ver van elkaar, en kan er om U een gedacht te geven tussen elke icon
gemakkelijk nog een andere tussen.
Nu in W8.1 was dit op te lossen via "REGEDIT" (zie bijlage)
In W10 gaat het echter niet, of doe ik iets verkeerd. Mijn icons staan op kleine weergave.
hopelijk kan U mij en misschien anderen helpen,
bedankt
Dré

[dorado]

Probeer het volgende:

1.

• klik op de knop Start, typ regedit in het vak Zoeken & ENTER.* Typ het wachtwoord of een bevestiging als hierom wordt gevraagd.
• Klik linksboven in de menubalk op bestand & vervolgens op exporteren.
• Kies bovenin het scherm bij "Opslaan in" de plek waar je uw backup van het register wilt opslaan.
• Let erop dat je links beneden bij exportbereik "alles" selecteert.
  Geef het bestand een naam, bijvoorbeeld registerbackup.reg.
  
• Bij "opslaan als" selecteert je Registerbestanden (*.reg)
• Klik tenslotte op opslaan.

2. open Kladblok. Klik op Start → Alle Programma's → Bureau-Accessoires → Kladblok.
Kopieer onderstaande code:
'Bureaubladiconen versmallen
'® dorado 2015 13/08/2015
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
'Icon spacing veranderen (standaardwaarde is -1650)
WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\IconSpacing",-950,"REG_SZ"
Message = "De bureaubladiconen zijn versmald." & vbCrLf & "Om iets van deze wijzigingen te merken moet je je afmelden & opnieuw aanmelden.."
X = MsgBox(Message, vbInformation, "Iconen versmallen")
Set WshShell = Nothing
Ga naar Bestand - Opslaan als.
Bij "Opslaan in" kies je: Bureaublad.
Bij "Bestandsnaam" zet je:iconsize.vbs.
Bij "Opslaan als type" selecteer je: Alle bestanden (*.*).
Klik op de knop Opslaan. Rechtsklik iconsize.vbs → Openen.


3. Verander de iconen van plaats.

Gaat het nu wel?

[drechaux]

Een goeie avond Moderator Dorado,
Bedankt voor de vlugge reactie.
Horizontaal kan ik ze nu dichter bij elkaar zetten, maar verticaal staan ze nog steeds op dezelfde afstand.
Ik kan gewoon tussen elke icon nog een andere tussenvoegen. Als U nu moest een andere kopij voor kladblad hebben,
zou het misschien gaan. Of gaat dat niet ?
Maar toch bedankt voor de poging hoor,
Dré

[dorado]

Probeer het volgende:

Open Kladblok. Klik op Start → Alle Programma's → Bureau-Accessoires → Kladblok.
Kopieer onderstaande code:
'Bureaubladiconen versmallen
'® dorado 2015 13/08/2015
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
'Icon spacing veranderen (standaardwaarde is -1650)
WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\IconVerticalSpacing",-950,"REG_SZ"
Message = "De bureaubladiconen zijn versmald." & vbCrLf & "Om iets van deze wijzigingen te merken moet je je afmelden & opnieuw aanmelden.."
X = MsgBox(Message, vbInformation, "Iconen versmallen")
Set WshShell = Nothing
Ga naar Bestand - Opslaan als.
Bij "Opslaan in" kies je: Bureaublad.
Bij "Bestandsnaam" zet je:iconsize2.vbs.
Bij "Opslaan als type" selecteer je: Alle bestanden (*.*).
Klik op de knop Opslaan. Rechtsklik iconsize2.vbs → Openen.


3. Verander de iconen van plaats.

Gaat het nu wel?

[drechaux]

Prachtig, prachtig. Bedankt Moderator Dorado. Dat is't.
Nog een klein vraagje.
Moeten die registerbackup en de 2 iconsize.vbs bestanden blijven staan, of mogen die verwijdert worden tot de volgende Format "C"
Nogmaals bedankt,
Dré

[dorado]

Dank en mooi dat het opgelost.

Moeten die registerbackup en de 2 iconsize.vbs bestanden blijven staan, of mogen die verwijdert worden tot de volgende Format "C"

Deze mogen verwijderd hoor.