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
Please try additional buttons to change mark color too!
Code for buttons to change color of marksPrivate Sub CommandButton9_Click()'RED MARKSFor X = 1 To 8ActivePage.Shapes("BhBp" & X).Outline.Color.RGBAssign 255, 0, 0NextEnd SubPrivate Sub CommandButton10_Click()'WHITE MARKSFor X = 1 To 8ActivePage.Shapes("BhBp" & X).Outline.Color.RGBAssign 255, 255, 255NextEnd SubPrivate Sub CommandButton11_Click()'BLACK MARKSFor X = 1 To 8ActivePage.Shapes("BhBp" & X).Outline.Color.RGBAssign 0, 0, 0NextEnd SubPrivate Sub CommandButton12_Click()'GREEN MARKSFor X = 1 To 8ActivePage.Shapes("BhBp" & X).Outline.Color.RGBAssign 0, 255, 0NextEnd SubPrivate Sub CommandButton13_Click()'BLUE MARKSFor X = 1 To 8ActivePage.Shapes("BhBp" & X).Outline.Color.RGBAssign 0, 0, 255NextEnd SubGreetings!
i finally figured this out but need help with checking to see if the user picked a shape. when i post my code is says this is "spam or abuse" is there a way to post code without getting this message
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!
Excuse, me, but I don't understand:1. if the user picked a shape2. when i post my codePlease clarify! More details will be helpful to understand problem and to solve problem.Greetings!
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?