如何在EXCEL中批量导入饼状图?

发布网友

我来回答

1个回答

热心网友

灞曞紑鍏ㄩ儴

Sub test()

Dim i%, nm$, r%, a$

 r = Cells(Rows.Count, 1).End(3).Row

 For i = 2 To r

  a = Cells(i, 1).Resize(1, 4).Address

    Range("Sheet1!$A$1:$D$1," & a).Select

    ActiveSheet.Shapes.AddChart2(254, xlPie).Select

    ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$D$1," & a)

    ActiveChart.Parent.Cut

    Cells(i, 5).Select

    ActiveSheet.Paste

    ActiveChart.SetElement (msoElementLegendNone)

    ActiveChart.SetElement (msoElementChartTitleNone)

    nm = Application.Substitute(ActiveChart.Name, ActiveSheet.Name & " ", "")

    ActiveSheet.Shapes(nm).LockAspectRatio = msoTrue

    ActiveSheet.Shapes(nm).Height = Cells(i, 1).Height

    Next

    [a1].Select

End Sub


声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com