I am trying to run a macro for insets at specified sizes, which in my line of work happens often. Inset from backer 1", inset from face panel,.5" and inset from face vinyl border. .25". I have recorded the macro which i will then create custom buttons for on the task bar. But how do I get the macro to run at the current scale set in the document instead of 1:1? Thanks in advance, still cutting my teeth on VBA....
Code..
Sub Contour_One_Inch() ' Contour_One_Inch_Inside Dim srSelection As ShapeRange Set srSelection = ActiveSelectionRange Dim eff1 As Effect Set eff1 = srSelection(1).CreateContour(0, 1#, 1, 0, CreateRGBColor(0, 0, 0), CreateSpotColor("afb87675-254f-4ecb-8904-04c7eba19c23", 906, 25), CreateRGBColor(0, 0, 0), 0, 0, 2, 4, 15#) eff1.Contour.ContourGroup.AddToSelection ActiveSelection.Separate
End Sub
Sub Contour_Half_Inch() ' Contour_Half_Inch_Inside Dim srSelection As ShapeRange Set srSelection = ActiveSelectionRange Dim eff1 As Effect Set eff1 = srSelection(1).CreateContour(0, 0.5, 1, 0, CreateRGBColor(0, 0, 0), CreateSpotColor("afb87675-254f-4ecb-8904-04c7eba19c23", 906, 25), CreateRGBColor(0, 0, 0), 0, 0, 2, 4, 15#) eff1.Contour.ContourGroup.AddToSelection ActiveSelection.Separate
End SubSub Contour_Quarter_Inch() ' Contour_Quarter_Inch_Inside Dim srSelection As ShapeRange Set srSelection = ActiveSelectionRange Dim eff1 As Effect Set eff1 = srSelection(1).CreateContour(0, 0.25, 1, 0, CreateRGBColor(0, 0, 0), CreateSpotColor("afb87675-254f-4ecb-8904-04c7eba19c23", 906, 25), CreateRGBColor(0, 0, 0), 0, 0, 2, 4, 15#) eff1.Contour.ContourGroup.AddToSelection ActiveSelection.Separate
ActiveDocument.Unit = cdrMillimeter or any other unit available in the application.