Appendix G Excel Macro
G-8
' "Text 9"
With ActiveChart.TextBoxes.Add(290, 24, 54, 15)
.Select
.AutoSize = True
.Text = OptATT_Sw
End With
' "Text 10"
With ActiveChart.TextBoxes.Add(410, 24, 54, 15)
.Select
.AutoSize = True
.Text = D_Range_SW
End With
' "Text 11"
With ActiveChart.TextBoxes.Add(530, 24, 56, 15)
.Select
.AutoSize = True
.Text = Ext_trg
End With
' "Text 12"
With ActiveChart.TextBoxes.Add(620, 24, 54, 15)
.Select
.AutoSize = True
.Text = Interval_t
End With
' "Text 13"
With ActiveChart.TextBoxes.Add(635, 220, 55, 15)
.Select
.AutoSize = True
.Text = Trc_Type
End With
' "Text 14"
With ActiveChart.TextBoxes.Add(635, 260, 80, 30)
.Select
.AutoSize = False
.Text = Trc_Mode
End With
If Trc_Type = "Trace Type Calculate" Then
' "Text 15"