I am trying to change the color of the 4 ellipses I have created in the code you see below to black. Can anyone help me out with this? thanks
Sub regmarks()
Dim sr As ShapeRange Dim x As Double, y As Double, w As Double, h As Double
Set sr = ActiveSelectionRange sr.GetBoundingBox x, y, w, h
ActiveLayer.CreateEllipse2 x + (0.5 * w), y - 0.375, 0.125 ActiveLayer.CreateEllipse2 x - 0.375, y + (0.5 * h), 0.125 ActiveLayer.CreateEllipse2 x + w + 0.375, y + (0.5 * h), 0.125 ActiveLayer.CreateEllipse2 x + (0.5 * w), y + h + 0.375, 0.125 End Sub
or mabey it might be easier to change the default fill color to black then back to no fill at the end of the code.