You are not the first to ask about this feature, which has been removed, and you will not be the first nor the last to regret its absence.

Is it possible to change dots position of a curve with a mouse drag on the chart in Excel 2007, like in Excel 2003 ?

Many thanks
Pierre

The first thing I do when I need a routine like this, is make a dummy chart, turn on the macro recorder, and do what I want the macro to do (see How To: Record Your Own Macro). Here’s what it recorded (in 2003; 2007 doesn’t record a lot of formatting steps):

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 10/23/2009 by Jon Peltier
'

'
    With Selection.Border
        .ColorIndex = 15
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = xlAutomatic
        .MarkerForegroundColorIndex = xlAutomatic
        .MarkerStyle = xlNone
        .Smooth = False
        .MarkerSize = 5
        .Shadow = False
    End With
End Sub
 

So this tells me the syntax, I just need to clean it up (see How To: Fix a Recorded Macro). Remove the default stuff that is not needed, and stick it into a For-Next loop:

Sub AllSeriesGray()
  Dim srs As Series
  For Each srs In ActiveChart.SeriesCollection
    With srs.Border
      .ColorIndex = 15
      .Weight = xlThin
      .LineStyle = xlContinuous
    End With
    With srs
      .MarkerStyle = xlNone
      .Smooth = False
    End With
  Next
End Sub
 

I noticed after the fact that Chris posted his own recorded and punched-up macro two minutes before I posted this.

Sub FormatAllSeriesInOneColor()
  Dim mySrs As Series 

    For Each mySrs In ActiveChart.SeriesCollection
      With mySrs
        'mySrs.Border.Color = RGB(242, 242, 242)
        mySrs.Border.ColorIndex = 15
        mySrs.Border.Weight = xlThin  'xlHairline,xlThin,xlMedium,xlThick
        mySrs.Border.LineStyle = xlContinuous 'xlContinuous,xlDash,xlDashDot,xlDashDotDot,xlDot,xlDouble,xlSlantDashDot,xlLineStyleNone
        'mySrs.MarkerBackgroundColorIndex = xlNone
        'mySrs.MarkerForegroundColorIndex = st
        mySrs.MarkerStyle = xlMarkerStyleNone 'xlMarkerStyleCircle.Circular,xlMarkerStyleDiamond, xlMarkerStyleNone,xlMarkerStylePlus,xlMarkerStyleStar,xlMarkerStyleX,xlMarkerStyleAutomatic,xlMarkerStyleDash,xlMarkerStyleDot,xlMarkerStyleSquare,xlMarkerStyleTriangle.Triangular,
        'mySrs.Smooth = False
        'mySrs.MarkerSize = 2
        'mySrs.Shadow = False
       End With
     Next
End Sub
 

Maybe I didn’t get your post entirely, but is there an easy way to format all series to use a light gray line with one click or by any chance some VBA-Code?

I’d forgotten about the posts you mentioned – much better way of doing it.

The paramlink code is also tempting in that users don’t have to select/activate the chart first.

Thanks Jon

I showed in Easier Interactive Multiple Line Chart and in Gas Prices – Interactive Time Series how to use a listbox to highlight a particular series. This keeps its alignment, but also won’t work on a chart sheet.

I showed in Chart Event to Highlight a Series and in Chart Event Class Module to Highlight a Series how to click on or mouse over a legend to highlight a series. This works on chart sheets and on embedded charts, depending on which of these approaches you use.

I thought I have even demonstrated how to capture a click on a series to highlight that series, but I can’t find such an article. So I guess that’s what I’ll blog about one day this week.

Stay tuned.

Instead of Andreas’ paramlink formula, but here’s a way to accomplish nearly the same thing without it.

I’ve got a row of form optionbuttons sitting over each of the last plotted points in a bumps chart – one for each series. All the series are formatted gray as in your post above, with nice big round line markers about the same size as my optionbuttons.

Then I’ve got a red series that points to a dynamic range courtesy of the optionbutton value being used in an offset function as you detailed above. The result is that the user clicks on the last datapoint of a particular series of interest, and that series turns red on account of the dynamic graph series range. Almost exactly the same as what Andreas’ paramlink function does, but without the additional addin.

Only problem is that my optionbuttons are visible, which only slightly spoils the ‘magic’ of this effect. What’s more of a problem in this partitular case is that they get in the way when I collapse a grouping that this chart is sitting in. The chart is snapped to a cell so that it completely dissapears courtesy of a ‘group and outline’ group (which is a handy way to get rid of a chart from a dashboard report when you don’t want to see it) but the option buttons seem to behave differently…they don’t dissapear along with the chart even though they are snapped to the same cell. Instead they obscure some text.

So I either need to find out how to make the optionbuttons transparent, or I need a macro that will ron a ActiveSheet.Shapes(”Option Button 33″).Visible = False routine when I collapse the particular row that the graph is in, and that will also make them visible when I expand that particular grouping.

Any help greatly appreciated.

Love your posts…I’m learning a lot from them.

regards

Jeff