P
Phil Hageman
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
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