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?
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!
Hi bhbp.bg2. i just sent you my code but i not sure if i got the email address right. thanx
Yes,
I recive e-mail...
Here is my crop mark code. I have most of this figured out now. The only thing I don’t know is how to share this with someone else. .....
I reply soon