Add Formatting Code in Macro
 

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

Add Formatting Code in Macro
 

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