Meerdere foto´s tegelijk verkleinen in word of excel

[Georgyboy]

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

 

[T.bone-m]

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

 

[Ommeren]

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

 

[Georgyboy]

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

 

[Ommeren]

Precies!

 

[Georgyboy]

Bedankt Teun,

Groetjes,
Georges

 

[Offthefield]

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

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

 

[Offthefield]

Belangrijk om te weten, deze is voor WORD

 

[Georgyboy]

Bedankt Offthefield

Groeten, Georgyboy

 

[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,

 

[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,

 

[Offthefield]

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