Vba 制作三维饼图并显示百分比

我创建这个简单的宏是为了从一些数据中形成一个饼图，但我希望它能显示百分比，最好是3D。有人知道如何调整吗

Sub Pie_Chart()

Dim Sh As Worksheet
Dim chrt As Chart

Set chrt = Nothing
Set Sh = ActiveWorkbook.Worksheets("Graphs")
Set chrt = Sh.Shapes.AddChart.Chart
With chrt

        'Data
        .ChartType = xlPie

        'Titles
        .HasTitle = True
        .ChartTitle.Characters.Text = Cells(i + 12, 2).Value
        .Hasvalues = True

        'legend
        .HasLegend = True

    End With


    End Sub

试试这个：

Sub Pie_Chart()

Dim Sh As Worksheet
Dim chrt As Chart

Set chrt = Nothing
Set Sh = ActiveWorkbook.Worksheets("Graphs")
Set chrt = Sh.Shapes.AddChart.Chart
With chrt

        'Data
        .ChartType = xl3DPie

        'Titles
        .HasTitle = True
        .ChartTitle.Characters.Text = Cells(i + 12, 2).Value
        .Hasvalues = True

        'Legend
        .HasLegend = True

        'Style
        .ChartStyle = 264
End With

End Sub

或

---

唯一比饼图更糟糕的是3D饼图…；）哈哈，评论不错。这是给我的公司做的演示，他们使用了一些我同意Rory的东西，但是你试过录制宏吗？这两个都很好！关于QHarr的版本还有一个问题。是否有办法删除值但保留百分比？.DataLabels.ShowValue=false是的。非常感谢各位！

Option Explicit

Public Sub Pie_Chart()

    Dim Sh As Worksheet, chrt As Chart

    Set Sh = ActiveWorkbook.Worksheets("Graphs")
    Set chrt = Sh.Shapes.AddChart2(262, xl3DPie).Chart
    With chrt
        .SetSourceData Source:=Range("Graphs!$A$1:$A$4") 'add some data
        .HasTitle = True
       ' .ChartTitle.Characters.Text = Cells(i + 12, 2).Value 'what is i?
        .HasLegend = True
        With .SeriesCollection(1)
            .ApplyDataLabels
            .DataLabels.ShowPercentage = True
            .DataLabels.ShowValue = False   
        End With
    End With
End Sub