This ist my whole macro:
Sub MasterTry()
ActivePresentation.Slides(1).Copy
ActivePresentation.Slides(1).Shapes(1).Delete
For Each Pic In ActivePresentation.Slides(1).Shapes
If msoPic Then
Pic.Delete
End If
For Each Tbox In ActivePresentation.Slides(1).Shapes
If msoTextBox Then
Tbox.Delete
End If
Next
Next
For Each Tbox In ActivePresentation.Slides(1).Shapes
If Tbox.TextFrame.HasText Then
Tbox.Delete
End If
Next
ActivePresentation.SlideMaster.Shapes(1).Delete
For Each Pic In ActivePresentation.SlideMaster.Shapes
If msoPic Then
Pic.Delete
End If
For Each Tbox In ActivePresentation.SlideMaster.Shapes
If msoTextBox Then
Tbox.Delete
End If
Next
Next
For Each Tbox In ActivePresentation.SlideMaster.Shapes
If Tbox.TextFrame.HasText Then
Tbox.Delete
End If
Next
ActivePresentation.SlideMaster.Shapes.PasteSpecial ppPasteMetafilePicture
For Each Pic In ActivePresentation.SlideMaster.Shapes
With Pic
.LockAspectRatio = msoTrue
.Height = 1100
.Width = 720
.Left = 0
.Top = 0
End With
Next
End Sub
What I need ist bold lines changed to slideMaster number 3, not the very first one.
THX