Vba to resize all images in slideshwo ?

[MoiMeme]

Hi,

how can I resize all images in a slideset ( have 100 of them to resize and
reposition).

Manually very fastidious, so looking for somevba code to automate it !

TIA all

 

[Guest]

This should do it. Obviously you will need to change the size settings
(.width & .height) to suit and also the position (.top & .left)

'code starts
Sub picsize()

Dim oSld As Slide
Dim oShp As Shape

For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.Type = msoPicture Then
With oShp
..Width = 100
..Height = 100
..Top = 100
..Left = 100
End With
End If
Next oShp
Next oSld
End Sub
'code ends
--

 

[MoiMeme]

Many thanks !
Will try it illico !

This should do it. Obviously you will need to change the size settings
(.width & .height) to suit and also the position (.top & .left)

'code starts
Sub picsize()

Dim oSld As Slide
Dim oShp As Shape

For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.Type = msoPicture Then
With oShp
.Width = 100
.Height = 100
.Top = 100
.Left = 100
End With
End If
Next oShp
Next oSld
End Sub
'code ends
--
-----------------------------------------
Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist

 

[MoiMeme]

Hi John,

it worked fine.
Have modified the code a little so I can resize picture on first slide to
correct size-position, then run the code, to adjust all others to same
valudes as first slide ones.
Thanks a lot !!!

Phil

 

[Guest]

Glad to be of help, reading the size and position af a sample pic sounds like
a good move!

_____________________________
John Wilson
Microsoft Certified Office Specialist

 

[MoiMeme]

Thanks.
Have tested and it works fine

Glad to be of help, reading the size and position af a sample pic sounds
like
a good move!

_____________________________
John Wilson
Microsoft Certified Office Specialist