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
|