演示代码:
Sub AddLineInChart()ActiveSheet.ChartObjects(1).Chart.Shapes.AddLine 10, 25, 210, 25
End Sub
演示效果(点击“添加直线到第一张图表”):
详细用法请参考:
http://msdn.microsoft.com/zh-cn/library/office/ff840820
欢迎分享,转载请注明来源:内存溢出
演示代码:
Sub AddLineInChart()ActiveSheet.ChartObjects(1).Chart.Shapes.AddLine 10, 25, 210, 25
End Sub
演示效果(点击“添加直线到第一张图表”):
详细用法请参考:
http://msdn.microsoft.com/zh-cn/library/office/ff840820
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)