Sub Test() Dim s As Shape For Each s In ActiveShape.Clones s.CloneLink.FillLinked = True Next s End Sub