Sub FillLink() Dim s As Shape For Each s In ActiveSelection.Shapes(1).Clones s.CloneLink.FillLinked = True s.CloneLink.BitmapColorMaskLinked = True s.CloneLink.OutlineLinked = True s.CloneLink.ShapeLinked = True s.CloneLink.TransformLinked = True Next sEnd Sub