示例：Overlay 对象的 Visible 属性

以下代码所示为如何在运行时的图表上显示叠加。
Private Sub ToggleOverlayVisibility()
Dim Overlay1 As Overlay
Dim Ol As Overlays 
Set Ol = Trendx1.Overlays
' Get pen 1 from the Pens Collection
Set Overlay1 = Ol.Item(1)
' Toggle Overlay1 visibility
If Overlay1.Visible = True Then
Overlay1.Visible = False
Else
Overlay1.Visible = True
End If 
End Sub
提供反馈
对本文档有问题或反馈吗？ 请在这里提交您的反馈 。
Normal