示例：Width 属性

Private Sub SetPenWide()
Dim s, t As String
t = Trend1.Pens.Item(1).Description
s = "The line was " & Trend1.Pens.Item(1).Width & " wide."
MsgBox s, vbOKOnly, t
Trend1.Pens.Item(1).Width = 5
End Sub

Pen 对象

提供反馈

对本文档有问题或反馈吗？请在这里提交您的反馈。