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