Anritsu MS9740B - Page 322

Appendix G Excel Macro
G-6
.MajorUnit = .MaximumScale / 2
.Crosses = xlCustom
.CrossesAt = 0
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
ActiveChart.Axes(xlCategory).Select
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Interior.ColorIndex = xlNone
Application.CalculateFull
ActiveChart.Axes(xlValue).MinorGridlines.Select
With Selection.Border
.ColorIndex = 57
.Weight = xlHairline
.LineStyle = xlDot
End With
ActiveChart.Axes(xlCategory).MinorGridlines.Select
With Selection.Border
.ColorIndex = 57
.Weight = xlHairline
.LineStyle = xlDot
End With
'
' Insert Conditions of measurement
'
ActiveChart.ChartArea.Select
' "Text 1"
With ActiveChart.TextBoxes.Add(610, 10, 56, 15)
.Select
.AutoSize = True
.Text = Date_time
End With
' "Text 2"