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
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 INActivePage.Shapes("BhBp1").LeftX = ActivePage.Shapes("BhBp1").LeftX + tbStep.ValueActivePage.Shapes("BhBp8").LeftX = ActivePage.Shapes("BhBp8").LeftX + tbStep.ValueActivePage.Shapes("BhBp7").LeftX = ActivePage.Shapes("BhBp7").LeftX + tbStep.ValueActivePage.Shapes("BhBp6").LeftX = ActivePage.Shapes("BhBp6").LeftX + tbStep.Value
ActivePage.Shapes("BhBp2").LeftX = ActivePage.Shapes("BhBp2").LeftX - tbStep.ValueActivePage.Shapes("BhBp3").LeftX = ActivePage.Shapes("BhBp3").LeftX - tbStep.ValueActivePage.Shapes("BhBp5").LeftX = ActivePage.Shapes("BhBp5").LeftX - tbStep.ValueActivePage.Shapes("BhBp4").LeftX = ActivePage.Shapes("BhBp4").LeftX - tbStep.ValueEnd SubPrivate Sub CommandButton16_Click()'HOR ARROWS OUTActivePage.Shapes("BhBp1").LeftX = ActivePage.Shapes("BhBp1").LeftX - tbStep.ValueActivePage.Shapes("BhBp8").LeftX = ActivePage.Shapes("BhBp8").LeftX - tbStep.ValueActivePage.Shapes("BhBp7").LeftX = ActivePage.Shapes("BhBp7").LeftX - tbStep.ValueActivePage.Shapes("BhBp6").LeftX = ActivePage.Shapes("BhBp6").LeftX - tbStep.Value
ActivePage.Shapes("BhBp2").LeftX = ActivePage.Shapes("BhBp2").LeftX + tbStep.ValueActivePage.Shapes("BhBp3").LeftX = ActivePage.Shapes("BhBp3").LeftX + tbStep.ValueActivePage.Shapes("BhBp5").LeftX = ActivePage.Shapes("BhBp5").LeftX + tbStep.ValueActivePage.Shapes("BhBp4").LeftX = ActivePage.Shapes("BhBp4").LeftX + tbStep.ValueEnd SubPrivate Sub CommandButton17_Click()'VERT AROWS OUTActivePage.Shapes("BhBp1").topy = ActivePage.Shapes("BhBp1").topy + tbStep.ValueActivePage.Shapes("BhBp8").topy = ActivePage.Shapes("BhBp8").topy + tbStep.ValueActivePage.Shapes("BhBp2").topy = ActivePage.Shapes("BhBp2").topy + tbStep.ValueActivePage.Shapes("BhBp3").topy = ActivePage.Shapes("BhBp3").topy + tbStep.Value
ActivePage.Shapes("BhBp7").BottomY = ActivePage.Shapes("BhBp7").BottomY - tbStep.ValueActivePage.Shapes("BhBp6").BottomY = ActivePage.Shapes("BhBp6").BottomY - tbStep.ValueActivePage.Shapes("BhBp5").BottomY = ActivePage.Shapes("BhBp5").BottomY - tbStep.ValueActivePage.Shapes("BhBp4").BottomY = ActivePage.Shapes("BhBp4").BottomY - tbStep.ValueEnd Sub
Private Sub CommandButton18_Click()'VERT ARROWS INActivePage.Shapes("BhBp1").topy = ActivePage.Shapes("BhBp1").topy - tbStep.ValueActivePage.Shapes("BhBp8").topy = ActivePage.Shapes("BhBp8").topy - tbStep.ValueActivePage.Shapes("BhBp2").topy = ActivePage.Shapes("BhBp2").topy - tbStep.ValueActivePage.Shapes("BhBp3").topy = ActivePage.Shapes("BhBp3").topy - tbStep.Value
ActivePage.Shapes("BhBp7").BottomY = ActivePage.Shapes("BhBp7").BottomY + tbStep.ValueActivePage.Shapes("BhBp6").BottomY = ActivePage.Shapes("BhBp6").BottomY + tbStep.ValueActivePage.Shapes("BhBp5").BottomY = ActivePage.Shapes("BhBp5").BottomY + tbStep.ValueActivePage.Shapes("BhBp4").BottomY = ActivePage.Shapes("BhBp4").BottomY + tbStep.ValueEnd SubGreetings!
i was saying i figure this out with code of my own and i wanted to post my code here but when i do it rejects it and tells me its spam of abusive. i can copy and paste my code here. can someone tell me how to do this?
Ok… I’m kind of learning as I go. My code runs fine but now I would now like to make a user’s form for picking crop mark offset and crop mark size. My dilemma is I don’t know how to take the variables from my form to the variables in my macro.
So the name of my form is “frmCrop” and the 2 text boxes that I want to get the variables from are called “txtOffset” & “ txtSize”. Can you how to pass these variables to my macro? i would appreciate any help with this. thanx
see snippet below.
now i have figured out how to pass the variable but it is not exactly the size that i entered into my text box. also my users form appears on my other monitor. i wish i could post all my code for help but as i stated before i get a spam warning. any suggestions. thanx
Hello,Please send code to bhbp(at)abv(dot)bgI recommend You to place all the code at a single not modal user form. Greetings!
what does "single not modal user form" mean.
1. All code must be in 1 form. More then 1 open forms are difficult to drive. More then - calls from form to macros or calls from macros to forms are difficult to drive to. When all code is in 1 form export/copy/move the form with code is possible
2. Property modal of form set to false is important if You want to work and the form remains open. Heigh recomendet
Greetings!