|
Hey,
Hab die Lösung in einem anderen Forum bekommen,
Das Problem war das AND das überprüft ob es eine Textbox ist UND die Text Range --> Bilder haben keine Text Range --> error.
Ganz einfach durch THEN ersetzen.
Sub delete()
Dim SlideToCheck As Slide
Dim ShapeIndex As Integer
' Visit each slide
For Each SlideToCheck In ActivePresentation.Slides
' On each slide, count down through the shapes
For ShapeIndex = SlideToCheck.Shapes.Count To 1 Step -1
' If the shape IS a text box and has text (...)
If SlideToCheck.Shapes(ShapeIndex).Type = msoTextBox Then
If SlideToCheck.Shapes(ShapeIndex).TextFrame.TextRange.Text = ("Test") Then
' Delete the shape
SlideToCheck.Shapes(ShapeIndex).TextFrame.DeleteText
End If
End If
Next
Next
End Sub
Hab deinen Code auch getestet, funktioniert aber nicht. Trotzdem danke für die Antowrt :)
[SOLVED]
|