PowerClip_Selected_To_Page_VBA_Corldraw

PowerClip_Selected_To_Page

Sub PowerClip_Selected_To_Page()

Dim srSelected As ShapeRange
Dim sPowerClipFrame As Shape

    Set srSelected = ActiveSelectionRange
    Set sPowerClipFrame = ActiveLayer.CreateRectangle(ActivePage.leftX, ActivePage.topY, ActivePage.RightX, ActivePage.bottomY)
    sPowerClipFrame.Outline.SetNoOutline
    srSelected.AddToPowerClip sPowerClipFrame

End Sub