示例：PenCaptionStyle

Private Sub SetPenCaption()
' Show the Pen description for each pen in the Line Legend
Trend1.PenCaptionStyle = rstPenCaptionStyleDescription 
End Sub