formaat van alle foto's wijzigen

S

SUVERMO

Gebruiker

Lid geworden

22 dec 2019

Berichten

478

• 16 nov 2020

• #1

Dag experten,

De grootte van foto’s aanpassen doe ik momenteel met PAINT, zie formaat van alle foto's wijzigen.jpg
Pixels
Horizontaal 100
Hoogte-breedteverhouding behouden
Kan dit met een macro automatisch gebeuren voor alle foto’s die zich in de FOTO_MAP bevinden?

 

Bijlagen

• test6.xlsm

  343,9 KB · Weergaven: 25
• 
  formaat van alle foto's wijzigen.jpg

  132,7 KB · Weergaven: 42

jackall

Moderator

Forumleiding

Moderator

Lid geworden

11 feb 2002

Berichten

10.728

Besturingssysteem

windows 10, windows11

Office versie

2023

• 16 nov 2020

• #2

met irfanview schijnt dit in batch modus mogelijk te zijn om geselecteerde foto's in 1 keer aan te passen.

 

NajKwin

Gebruiker

Lid geworden

24 dec 2015

Berichten

258

• 16 nov 2020

• #3

Ik gebruik hier voor FastStone Photo Resizer hier te vinden

 

Aar

Inventaris

Lid geworden

3 aug 2014

Berichten

10.123

Besturingssysteem

Windows 11 en diverse Linux-soorten

Office versie

Office 365

• 16 nov 2020

• #4

Ik gebruik PixResize. Werkt lekker simpel.

 

S

SUVERMO

Gebruiker

Lid geworden

22 dec 2019

Berichten

478

• 16 nov 2020

• #5

bedankt voor het reageren, ik denk meer aan vba_code, is dat mogelijk?

 

Haije

Terugkerende gebruiker

Lid geworden

24 mrt 2009

Berichten

4.314

Besturingssysteem

Windows 11

Office versie

Office 2016 Professional Plus en Office 2010 Home & Student

• 16 nov 2020

• #6

SUVERMO zei:

..ik denk meer aan vba_code

Klik om te vergroten...

Kun je ook aangeven waarom je geen gebruik wilt maken van één van de aangedragen opties?

 

snb

Verenigingslid

Lid geworden

12 jun 2008

Berichten

19.725

• 16 nov 2020

• #7

Het gaat niet om de grootte van de opgeslagen afbeeldingen maar om de weergave in het Excel-werkblad.

Code:

Sub M_snb()
  For Each it In Pictures
    it.Width = 1.2 * it.Width
    it.Height = 1.2 * it.Height
  Next
End Sub

Haal alle samengevoegde cellen weg.

 

Laatst bewerkt: 16 nov 2020

S

SUVERMO

Gebruiker

Lid geworden

22 dec 2019

Berichten

478

• 16 nov 2020

• #8

Hallo

Bedoeling is het volgende
De foto’s die genomen zijn kunnen meer dan 3000 kB zijn.
Dergelijke foto’s vertragen het openen en wijzigen van het excelblad.
Voor een duidelijke weergave in het excelblad is 20 kB voldoende.
Thans doe ik deze aanpassing zoals beschreven in #1.
Bedoeling is dat daar niet meer aan gedacht moet worden en dat een vba-code dit automatisch doet voor alle foto’s in de FOTO_MAP.
Ik dacht omdat men met EXCEL e-mails kan versturen met OUTLOOK, waarom dan in EXCEL geen foto’s bewerken met PAINT.

 

snb

Verenigingslid

Lid geworden

12 jun 2008

Berichten

19.725

• 16 nov 2020

• #9

Omdat Paint geen deel uitmaakt van de officebibliotheek en Outlook wel.

 

S

SUVERMO

Gebruiker

Lid geworden

22 dec 2019

Berichten

478

• 16 nov 2020

• #10

Bestaat er een ander programma om dit te doen in de officebibliotheek?

 

Excelbat

Gebruiker

Lid geworden

23 mrt 2012

Berichten

402

• 16 nov 2020

• #11

Ik kan misschien een auto repareren met een vork en een aardappelschilmesje. Als het al lukt dan ben ik uren bezig.

Beter om 'echt' gereedschap te pakken. Dus? Foto's resizen met één van de hierboven genoemde programma's.
Irfanview is kwestie van seconden om hele series met foto's te verwerken.

Greetz/Excelbat

 

A

alphamax

Terugkerende gebruiker

Lid geworden

16 mrt 2011

Berichten

2.654

Besturingssysteem

Windows 11 en-US

Office versie

Office 2007 nl-NL

• 16 nov 2020

• #12

Het kan met de standaardfunctie picturecompress in excel2007nl
Zie https://technologyadvice.com/blog/marketing/excel-tricks-compress-pictures/

Code:

Public Sub PicturesCompress()
    Application.CommandBars.ExecuteMso "PicturesCompress"
End Sub

 

Laatst bewerkt: 16 nov 2020

snb

Verenigingslid

Lid geworden

12 jun 2008

Berichten

19.725

• 16 nov 2020

• #13

Die ik in 2010 in geen enkele commandbar terugvind.
De VBA opdracht doet het overigens wel.

 

S

SUVERMO

Gebruiker

Lid geworden

22 dec 2019

Berichten

478

• 18 nov 2020

• #14

bedankt voor de reactie's

ik ga jullie raadgevingen opvolgen om dit met een speciaal programma te doen.