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.
ActiveLayer.CreateEllipse2 x + (0.5 * w), y - 0.375, 0.125 ActiveSelection.Fill.UniformColor.RGBAssign 0, 0, 0 ActiveSelection.Outline.SetNoOutlineActiveLayer.CreateEllipse2 x - 0.375, y + (0.5 * h), 0.125ActiveSelection.Fill.UniformColor.RGBAssign 0, 0, 0 ActiveSelection.Outline.SetNoOutlineActiveLayer.CreateEllipse2 x + w + 0.375, y + (0.5 * h), 0.125ActiveSelection.Fill.UniformColor.RGBAssign 0, 0, 0 ActiveSelection.Outline.SetNoOutlineActiveLayer.CreateEllipse2 x + (0.5 * w), y + h + 0.375, 0.125ActiveSelection.Fill.UniformColor.RGBAssign 0, 0, 0 ActiveSelection.Outline.SetNoOutline
thanks for that Myron. I have been away from my computer for a long time.