如何调整VBA宏实现3D饼图并显示百分比？

没问题，我帮你调整代码来实现3D饼图并显示百分比标签。这里是修改后的完整代码，我会在后面解释关键改动：

Option Explicit ' 强制变量声明，避免潜在错误
Sub Pie_Chart()
    Dim Sh As Worksheet
    Dim chrt As Chart
    Dim i As Integer ' 定义原代码中未声明的i变量，避免运行报错
    
    Set chrt = Nothing
    Set Sh = ActiveWorkbook.Worksheets("Graphs")
    Set chrt = Sh.Shapes.AddChart.Chart
    
    With chrt
        ' 切换为3D饼图类型
        .ChartType = xl3DPie
        
        ' 设置图表标题（注意：要确保i变量在调用宏前已被正确赋值）
        .HasTitle = True
        .ChartTitle.Characters.Text = Sh.Cells(i + 12, 2).Value ' 加上工作表限定，避免跨表引用错误
        
        ' 配置数据标签：仅显示百分比
        With .SeriesCollection(1)
            .HasDataLabels = True
            With .DataLabels
                .ShowPercentage = True ' 开启百分比显示
                .ShowValue = False ' 隐藏原始数值（如需同时显示可改为True）
                .Position = xlLabelPositionOutsideEnd ' 把标签放在饼图外侧，更易阅读
                .Font.Size = 10 ' 可选：调整标签字体大小
            End With
        End With
        
        ' 保留图例（不需要的话可以设为False）
        .HasLegend = True
    End With
End Sub

关键改动说明： #

• 3D样式切换：把.ChartType = xlPie替换为xl3DPie，直接将饼图转为3D样式。
• 百分比标签配置：通过.SeriesCollection(1)访问饼图的数据系列，开启数据标签并设置仅显示百分比，同时调整标签位置提升可读性。
• 变量与引用优化：添加Option Explicit强制变量声明，补全了原代码中缺失的i变量定义；同时给单元格引用加上工作表限定，避免当前活动表变化时出现引用错误。
• 无效代码清理：移除了原代码中无效的.Hasvalues = True语句，改为通过数据标签配置控制显示内容。

如果需要同时显示数值和百分比，只需把.ShowValue = False改成True即可。

内容的提问来源于stack exchange，提问作者Jordan