Hey Forum,

 

als absoluter VBA Anfänger würde ich mich über Hilfe freuen. Ich habe folgenden Code geschrieben um auf Slide 6 einer Präsentation alle Bilder mit dem namen "Picture 1" zu verkleinern. Das funktioniert soweit. Allerdings möchte ich zwei Bedingungen vornehmen, nur weiß ich nicht wie genau. 

1. Anstelle von Slide 6 soll diese Prozedur nur auf den  Slides mit dem Titel "XXX" vorgenommen werden

2. Die Aktion soll für alle bis auf ein Bild namens "Picture 1" vorgenommen werden. Ist es möglich nur spezielle Bilder mit gleichem Namen zB.anhand der  Position auf dem Slide oder der Reihenfolge nach auszuwählen.....Problem ist nämlich das alle Bilder den Namen "Picture 1 haben.

Freue mich über Hilfe 

 

Danke vorab!     

 

Gruß       

 

 

Sub ResizePic()
                               
   Dim Pic As shape       

           For Each Pic In ActivePresentation.Slides(6).Shapes
           
                 If Pic.Name = "Picture 1" Then
                     With Pic
                     .LockAspectRatio = msoTrue
                     .Height = 40
                   
                     End With
                     
                 End If
            
            Next Pic

End Sub