INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Member Login

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips now!

Talk With Other Members
Be Notified Of Responses
To Your Posts
Keyword Search
One-Click Access To Your
Favorite Forums
Automated Signatures
On Your Posts
Best Of All, It's Free!

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

LINK TO THIS FORUM!

Eng-Tips LinkedIn^® Group

Join our
LinkedIn^® Group!

Hook up with past and present colleagues and classmates quickly.

Partner With Us!

"Best Of Breed" Forums Add Stickiness To Your Site

(Download This Button Today!)

Feedback

"...your web site's great! I've been using this system for almost a year now and find it really, really helpful. The people have been helpful in answering just about any question you post in the forums..."

More...

Geography

Where in the world do Eng-Tips members come from?

Click Here To Find Out!

Eng-Tips Shirts!

Get your
Eng-Tips Forums
SWAG here!

Home > Forums > Engineering Computer Programs > General Engineering Programs > -Engineering spreadsheets Forum

Change marker color in excel

CODE

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 12/9/2010 by Eden Mei
'

'
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Points(8).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    With Selection
        .MarkerBackgroundColorIndex = xlNone
        .MarkerForegroundColorIndex = 41
        .MarkerStyle = xlSquare
        .MarkerSize = 3
        .Shadow = False
    End With
End Sub

so, the above selected the 8th point and only changed that one point's color to a shade of blue

TTFN

FAQ731-376: Eng-Tips.com Forum Policies
Chinese prisoner wins Nobel Peace Prize

vtmike (Mechanical)

9 Dec 10 16:38

Well but how do I incorporate an If statement for marker color? Take following code for example for returning the text "PASS", "FAIL" or "NA" based on entries in column 3:

Sub Example4()
    For x = 2 To 7
       If Cells(x, 3).Value = "P" Then
       Cells(x, 4) = "PASS"
       Else
       If Cells(x, 3).Value = "F" Then
       Cells(x, 4) = "FAIL"
       Else
       If Cells(x, 3).Value = "" Then
       Cells(x, 4) = "NA"
       End If
       End If
       End If
       Next x
    End Sub

How do I apply this concept to a XY plot to change color of marker based on the text input in column 3?

IRstuff (Aerospace)

9 Dec 10 17:51

Well, wouldn't you try to call the macro with the point number and a color index?

TTFN

FAQ731-376: Eng-Tips.com Forum Policies
Chinese prisoner wins Nobel Peace Prize

zelgar (Civil/Environmental)

13 Dec 10 12:05

Couldn't you just use Conditional Formatting in the cells to highlight them?

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!

Back To Forum

Back To -Engineering spreadsheets