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