I tried adjust ting the macro to the following, but was still unable to get it to work:
Sub picsize()
ActivePresentation.Slides(2).Select
With ActiveWindow.opic
.LockAspectRatio = msoFalse
.Height = 306.72
.Width = 195.12
.Left = 409.68
.Top = 40.32
.ZOrder (msoSendBackward)
.Line.Weight = 1
.Line.ForeColor.RGB = RGB(99, 102, 106)
End With
ActivePresentation.Slides.Range (Array(3, 4, 5, 6, 7))
Dim opic As Shape
Dim osld As Slide
For Each osld In ActivePresentation.Slides
For Each opic In osld.Shapes
If opic.Type = msoPicture Then
With opic
.Left = 7.2
.Top = 40
.LockAspectRatio = msoFalse
.Width = 705.6
.Height = 305
.Line.ForeColor.RGB = RGB(99, 102, 106)
.Line.Weight = 1
.ZOrder (msoSendToBack)
End With
End If
Next opic
Next osld
Function cm2Points(inVal As Single)
cm2Points = inVal * 28.346
End Function
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoLinkedOLEObject Then oshp.LinkFormat.Update
If oshp.Type = msoLinkedOLEObject Then .ZOrder (msoSendToBack)
Next oshp
Next osld
End Function
End Function
Help would be greatly appreciated.