Super, vielen Dank.
Könntest du (oder jemand sonst) mir ein bisschen helfen? Das hört sich für mich ziemlich kompliziert an und ich weiß garnicht wo ich da ansetzen soll...
Der erste Schritt wäre Slides 1-3 von meinem Beispiel hinzubekommen, Slide 4 ist für mich pers. dann noch mal komplizierter, aber Voraussetzung wäre sowas wie:
WENN "xxx" in Textfeld "xxx" steht (auf beliebigem Slide) DANN ändere die Größe von Bild "Picture1" (oder einfach von EACH Picture - weil ja sowieso alle gleich heißen) auf x mal x Pixel.
Wie gesagt, das was ich hingekriegt habe ist, dass das Makro auf ALLEN Slides alle Bilder resized. Ich verwende hierfür diesen Code:
Sub PictureSizer()
For NumSlide = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(NumSlide).Select
For Each Picture In ActiveWindow.Selection.SlideRange.Shapes
Picture.Select
Picture.LockAspectRatio = msoFalse
Picture.Height = 100.00
Picture.Width = 100.00
Next
Next
End Sub
Wie ginge es nun weiter? Wie baue ich diese Textfeld-Bedingung ein, damit dieser Befehl nur ausgeführt wird, wenn "xxx" in dem Überschriften-Textfeld steht?
Vielen Dank!
