crop marks

iradaboy
over 1 year ago

I am looking for a macro that will make crop marks with a white outline.  the reason being if my black crop mark are on a black color i can see them.  does anybody have code for this or an existing macro?

thanx

Parents
No Data
Reply
  • 0 over 1 year ago

    Hello,
    Please try red arrow buttons to move marks in/out

    Code to move markers IN/OUT hor or vert on distance STEP

    Private Sub CommandButton15_Click()
    'HOR ARROWS IN
    ActivePage.Shapes("BhBp1").LeftX = ActivePage.Shapes("BhBp1").LeftX + tbStep.Value
    ActivePage.Shapes("BhBp8").LeftX = ActivePage.Shapes("BhBp8").LeftX + tbStep.Value
    ActivePage.Shapes("BhBp7").LeftX = ActivePage.Shapes("BhBp7").LeftX + tbStep.Value
    ActivePage.Shapes("BhBp6").LeftX = ActivePage.Shapes("BhBp6").LeftX + tbStep.Value

    ActivePage.Shapes("BhBp2").LeftX = ActivePage.Shapes("BhBp2").LeftX - tbStep.Value
    ActivePage.Shapes("BhBp3").LeftX = ActivePage.Shapes("BhBp3").LeftX - tbStep.Value
    ActivePage.Shapes("BhBp5").LeftX = ActivePage.Shapes("BhBp5").LeftX - tbStep.Value
    ActivePage.Shapes("BhBp4").LeftX = ActivePage.Shapes("BhBp4").LeftX - tbStep.Value
    End Sub
    Private Sub CommandButton16_Click()
    'HOR ARROWS OUT
    ActivePage.Shapes("BhBp1").LeftX = ActivePage.Shapes("BhBp1").LeftX - tbStep.Value
    ActivePage.Shapes("BhBp8").LeftX = ActivePage.Shapes("BhBp8").LeftX - tbStep.Value
    ActivePage.Shapes("BhBp7").LeftX = ActivePage.Shapes("BhBp7").LeftX - tbStep.Value
    ActivePage.Shapes("BhBp6").LeftX = ActivePage.Shapes("BhBp6").LeftX - tbStep.Value

    ActivePage.Shapes("BhBp2").LeftX = ActivePage.Shapes("BhBp2").LeftX + tbStep.Value
    ActivePage.Shapes("BhBp3").LeftX = ActivePage.Shapes("BhBp3").LeftX + tbStep.Value
    ActivePage.Shapes("BhBp5").LeftX = ActivePage.Shapes("BhBp5").LeftX + tbStep.Value
    ActivePage.Shapes("BhBp4").LeftX = ActivePage.Shapes("BhBp4").LeftX + tbStep.Value
    End Sub
    Private Sub CommandButton17_Click()
    'VERT AROWS OUT
    ActivePage.Shapes("BhBp1").topy = ActivePage.Shapes("BhBp1").topy + tbStep.Value
    ActivePage.Shapes("BhBp8").topy = ActivePage.Shapes("BhBp8").topy + tbStep.Value
    ActivePage.Shapes("BhBp2").topy = ActivePage.Shapes("BhBp2").topy + tbStep.Value
    ActivePage.Shapes("BhBp3").topy = ActivePage.Shapes("BhBp3").topy + tbStep.Value

    ActivePage.Shapes("BhBp7").BottomY = ActivePage.Shapes("BhBp7").BottomY - tbStep.Value
    ActivePage.Shapes("BhBp6").BottomY = ActivePage.Shapes("BhBp6").BottomY - tbStep.Value
    ActivePage.Shapes("BhBp5").BottomY = ActivePage.Shapes("BhBp5").BottomY - tbStep.Value
    ActivePage.Shapes("BhBp4").BottomY = ActivePage.Shapes("BhBp4").BottomY - tbStep.Value
    End Sub

    Private Sub CommandButton18_Click()
    'VERT ARROWS IN
    ActivePage.Shapes("BhBp1").topy = ActivePage.Shapes("BhBp1").topy - tbStep.Value
    ActivePage.Shapes("BhBp8").topy = ActivePage.Shapes("BhBp8").topy - tbStep.Value
    ActivePage.Shapes("BhBp2").topy = ActivePage.Shapes("BhBp2").topy - tbStep.Value
    ActivePage.Shapes("BhBp3").topy = ActivePage.Shapes("BhBp3").topy - tbStep.Value

    ActivePage.Shapes("BhBp7").BottomY = ActivePage.Shapes("BhBp7").BottomY + tbStep.Value
    ActivePage.Shapes("BhBp6").BottomY = ActivePage.Shapes("BhBp6").BottomY + tbStep.Value
    ActivePage.Shapes("BhBp5").BottomY = ActivePage.Shapes("BhBp5").BottomY + tbStep.Value
    ActivePage.Shapes("BhBp4").BottomY = ActivePage.Shapes("BhBp4").BottomY + tbStep.Value
    End Sub

    Greetings!

Children

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.