ChartObjects | ExcelOffice【微信公众号：水星Excel】

用vba在工作表中新建图表的方法有很多种。

一、用Shapes对象的AddChart方法（该方法已经被作废，但是仍然可以使用）

代码如下：

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice
    Dim oChart As Chart
    Dim oSP As Shape
    Dim oWK As Worksheet
    Set oWK = Excel.ActiveSheet
    With oWK
        If .ChartObjects.Count > 0 Then
            '先删除所有图表
            .ChartObjects.Delete
        End If
        Set oSP = .Shapes.AddChart(xlColumnClustered, 0, 0, 300, 300)
        Set oChart = oSP.Chart
        With oChart
            .SetSourceData oWK.Range("A1").CurrentRegion
        End With
    End With
End Sub

Sub exceloffice()

'作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice

Dim oChart As Chart

Dim oSP As Shape

Dim oWK As Worksheet

Set oWK = Excel.ActiveSheet

With oWK

If .ChartObjects.Count > 0 Then

'先删除所有图表

.ChartObjects.Delete

End If

Set oSP = .Shapes.AddChart(xlColumnClustered, 0, 0, 300, 300)

Set oChart = oSP.Chart

With oChart

.SetSourceData oWK.Range("A1").CurrentRegion

End With

End Sub

阅读全文>>>

如何用vba在工作表中新建图表？

一、用Shapes对象的AddChart方法（该方法已经被作废，但是仍然可以使用）

如何用vba删除工作表中的所有图表？

一、通过遍历[……]

感谢你的支持，我将持续地写出更好的文章。

热门文章

最近文章

微信公众号