Meerdere Foto´s in een powerpoint presentatie kopieren en plakken

[Georgyboy]

Goeiedag,

Ik had een presentatie gemaakt met meer dan 100 foto´s,
om als presentatie af te spelen.

Probleem:
1) foto per foto kopieren en plakken
2) afmetingen telkens aanpassen in de pagina van powerpoint

Vragen:
1) Kan men meerdere foto´s kopieren en plakken ?
2) kan men de afmeting automatisch aanpassen ?

Groeten,
Georgyboy

 

[RonaldGJ]

Dit zou ik ook heel graag willen weten!

Gr. Ronald!

 

[Georgyboy]

Dag Ronald,

Ik heb onderstaande code gekregen die werkt in word.
Mogelijk mit een kleine aanpassing past dit ook voor powerpoint.

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

Succes !
Georgyboy

 

[RonaldGJ]

Toppie dankjewel !

Gr. Ronald!

 

[Georgyboy]

Blij voor jou !

Gelukt met Powerpoint of met word ?

Groeten
Georgyboy