AddPen(PenName)

Este método adiciona uma nova Pena ao E3Chart, retornando a Pena criada. Consulte a propriedade geral Name para mais informações sobre os caracteres permitidos nos nomes de objetos. O script a seguir contém um exemplo de uso deste método.

Sub CommandButton1_Click()
  ' Cria uma pena sem nome.
  Set Pen = Screen.Item("E3Chart1").Pens.AddPen("")
  MsgBox Pen.Name
End Sub
 
SubCommandButton1_DblClick()
  ' Cria uma pena com o nome "Pen1".
  ' Se o nome existir, a pena é incrementada.
 
  Set Pen = Screen.Item("E3Chart1").Pens.AddPen("Pen1")
  MsgBox Pen.Name
End Sub
 
Sub CommandButton2_Click()
  ' Cria uma pena e associa a TagDemo1.
  Set Chart = Screen.Item("E3Chart1")
  Set Pen = Chart.Pens.AddPen("")
  MsgBox Pen.Name
  Pen.UsetimeStamp = True
  Pen.YLink = "Dados.TagDemo1"
  Pen.Connect()
End Sub