title: Resize Image in VBA PowerPoint
body: <p>I need help in the case below:</p>
  
  <p>I made a code to resize all the images inside a slide, but I'm not able to make each of the images have a different size, when I use the macro all the images of the slide are in a standard.</p>
  
  <p>follow code:</p>
  
  <pre><code>Sub Slide()
  
      Dim sld As Slide
      Dim img As Shape
  
  
      For Each sld In ActivePresentation.Slides
          For Each img In sld.Shapes
  
              With img                
                  If .Type = msoLinkedPicture _
                  Or .Type = msoPicture Then
                     .Left = 100
                     .Top = 100
                  End If
              End With
  
          Next
      Next sld
  
  End Sub
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/2REIN.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/2REIN.jpg" alt="Ex: Slide"></a></p>