Meerdere foto´s tegelijk verkleinen in word of excel

Status
Niet open voor verdere reacties.

Georgyboy

Terugkerende gebruiker
Lid geworden
6 jan 2007
Berichten
1.020
Besturingssysteem
Windows 11
Office versie
365
Beste vrienden,

Vraagje, ik heb in een word document meerdere foto´s geïmporteerd.
Deze foto´s wil ik allemaal tegelijk verkleinen naar één zelfde formaat,
per foto gaat dit wel met aanpassen grootte, gaat dit voor meerdere foto´s ?

Groetjes,
Georgyboy
 
Gaat wel, maar dan moet je denk ik eerst alle foto's selecteren en dan de grootte aanpassen.
 
Beste vrienden,

Vraagje, ik heb in een word document meerdere foto´s geïmporteerd.
Deze foto´s wil ik allemaal tegelijk verkleinen naar één zelfde formaat,
per foto gaat dit wel met aanpassen grootte, gaat dit voor meerdere foto´s ?

Groetjes,
Georgyboy

Niet echt slim.
De juiste procedure is nét andersom: éérst comprimeren en dán in je document plaatsen.
Om het niet al te tijdrovend te maken, zou ik dat alsnog maar doen:

http://handleiding.helpmij.nl/pdf/BD Sizer, bewerkt fotos en zet ze in een lijst.pdf
 
Bedankt Teun,

als men afbeeldingen download van het internet moet je die dan
ook eerst opslaan als in een map, aanpassen grootte en dan in
een document invoegen?

Groetjes
Georgyboy
 
Bedankt Teun,

Groetjes,
Georges
 
Ik was ook opzoek naar zo'n programma, ik heb het volgende programma
gevonden ( macro) en bij mij werkt het!!

Hier vul je het juist aantal pixels in voor de breedte :
wid = PixelsToPoints(300) 'reduce the width to 300 pixels

Hier vul je het juist aantal pixels in voor de hoogte :
DocThis.InlineShapes(J).Height = 170

Komt het niet helemaal uit, dan moet je wat gaan gokken met de hoogte en de breedte


Code:
Sub FormatPic300()

''This function will format all images in the document.
''Based on the code from the Tribbs site

Dim iShapeCount As Integer
Dim iILShapeCount As Integer
Dim DocThis As Document
Dim J As Integer
Set DocThis = ActiveDocument
''
Dim origHeight As Integer
Dim origWidth  As Integer
Dim scaleHeight As Double
Dim wid As Integer

wid = PixelsToPoints(300) 'reduce the width to 300 pixels

iILShapeCount = DocThis.InlineShapes.Count

If iILShapeCount > 0 Then

For J = 1 To iILShapeCount
origWidth = DocThis.InlineShapes(J).Width
''scaleHeight = wid / origWidth
DocThis.InlineShapes(J).Width = (wid)
DocThis.InlineShapes(J).Height = 170
Next J

End If

End Sub
 
Laatst bewerkt door een moderator:
Bedankt Offthefield

Groeten, Georgyboy
 
Code activeren

Vraagje,

Ik heb de Code in de module gekopieerd

Sub FormatPic300() activeren met Knop ? of ?

Select foto´s en dan code ?

Ben daar nog niet goed in !, moet nog véél leren

Grts Georgyboy,
 
Code uitvoeren via module uitvoeren F5

Hey Offthefield,

Da´s knap zeg, is me gelukt !!!

éérst alles selecteren dan in vba module, F5 drukken (uitvoeren)

en alles is verkleind.

kan men op een andere manier uitvoeren in het word bestand ?
of kan dit enkel via de module + uitvoeren ?

Grts Georgyboy,
 
Laatst bewerkt:
Georgyboy,

Dat zou ik niet niet weten, ik was al blij dat ik dit gevonden
had na weken ploeteren

Ik ben blij voor jou, dat het je gelukt is

Offthefield
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan