In the below code I need to format one of six series,
named "Metric One":
Line: Color, black; Weight, medium
Labels: Show value, Font: color, black; Size, 16
Marker: Style, dot; Foreground, black, Background,
black; Position, Above

Sub GoToMetric1()
Application.ScreenUpdating = False
Sheets("Metrics").Select
Range("A1").Select
With ActiveSheet.ChartObjects("Chart 13")
.Height = 660
.Width = 780
.Top = 10
.Left = 125
.BringToFront
End With
Application.ScreenUpdating = True
End Sub

The easiest way would be to turn on the Macro recorder and do the formatting
manually. That will give you the basic code you need.

--
Regards,
Tom Ogilvy


"Phil Hageman" wrote in message
...
In the below code I need to format one of six series,
named "Metric One":
Line: Color, black; Weight, medium
Labels: Show value, Font: color, black; Size, 16
Marker: Style, dot; Foreground, black, Background,
black; Position, Above

Sub GoToMetric1()
Application.ScreenUpdating = False
Sheets("Metrics").Select
Range("A1").Select
With ActiveSheet.ChartObjects("Chart 13")
.Height = 660
.Width = 780
.Top = 10
.Left = 125
.BringToFront
End With
Application.ScreenUpdating = True
End Sub