Appendix G Excel Macro
G-7
With ActiveChart.TextBoxes.Add(10, 420, 56, 15)
.Select
.AutoSize = True
.Text = RBW
End With
' "Text 3"
With ActiveChart.TextBoxes.Add(140, 420, 56, 15)
.Select
.AutoSize = True
.Text = Act_RBW
End With
' "Text 4"
With ActiveChart.TextBoxes.Add(480, 420, 55, 15)
.Select
.AutoSize = True
.Text = Value_Sw
End With
' "Text 5"
With ActiveChart.TextBoxes.Add(630, 420, 55, 15)
.Select
.AutoSize = True
.Text = VBW
End With
' "Text 6"
With ActiveChart.TextBoxes.Add(10, 24, 54, 15)
.Select
.AutoSize = True
.Text = Smpl_Num
End With
' "Text 7"
With ActiveChart.TextBoxes.Add(90, 24, 56, 15)
.Select
.AutoSize = True
.Text = Avr_Sw
End With
' "Text 8"
With ActiveChart.TextBoxes.Add(190, 24, 55, 15)
.Select
.AutoSize = True
.Text = Smooth_Sw
End With