需用VBA宏实现点击饼图扇区自动突出显示：通过Chart_MouseDown事件捕获点击，用HitTest定位扇区，设置其爆炸效果和金色填充，并将其他扇区置灰。
如果您在Excel中创建了动态饼图，但希望用户点击某个扇区时该扇区自动突出显示以增强可视化效果和交互性，则需借助图表元素控制与VBA宏配合实现。以下是实现此效果的步骤：
一、设置基础动态饼图并启用数据标签
动态饼图的基础是确保数据源可更新且图表已绑定至该区域；突出显示依赖于对单个扇区格式的手动或程序化干预，因此需先确保各扇区具备独立可选性。数据标签有助于用户识别当前高亮对象，也为后续VBA逻辑提供参照依据。
1、选中数据区域（如A1:B5），插入→饼图→二维饼图。
2、右键饼图→“添加数据标签”→再右键任一标签→“设置数据标签格式”→勾选“类别名称”和“值”，取消勾选“百分比”。
3、确保每个扇区在图表中可单独点击：单击一次选中整个图表，再单击某扇区，若该扇区边框加粗并出现小圆点锚点，说明其处于可编辑状态。
二、使用VBA实现点击扇区高亮（主方案）
VBA可通过ChartObjects的MouseDown事件捕获用户点击位置，并结合HitTest方法定位被点击的扇区，进而修改其填充色、分离距离等属性以实现视觉突出。该方法无需额外控件，响应直接，适用于Excel桌面版（启用宏的工作簿）。
1、按Alt+F11打开VBA编辑器，双击左侧工程中对应工作表（如Sheet1）。
2、粘贴以下代码：
Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Dim ElementID As Long, SeriesIndex As Long, PointIndex As Long
Me.ChartObjects(1).Chart.HitTest x, y, ElementID, SeriesIndex, PointIndex
If ElementID = 3 Then '3代表DataPoint
With Me.ChartObjects(1).Chart.SeriesCollection(1)
.Points(PointIndex).Explosion = 15
.Points(PointIndex).Format.Fill.ForeColor.RGB = RGB(255, 215, 0)
For i = 1 To .Points.Count
If i PointIndex Then
.Points(i).Explosion = 0
.Points(i).Format.Fill.ForeColor.RGB = RGB(200, 200, 200)
End If
Next i
End With
End If
End Sub
3、关闭VBA编辑器，返回Excel，**确保工作簿另存为启用宏的格式（.xlsm）**，并启用内容。
三、使用切片器+辅助列模拟点击高亮（无VBA方案）
当环境禁用宏时，可利用切片器联动数据透视表与饼图，通过筛选触发图表重绘，使被选项目始终位于首位并应用预设高亮格式。该方式不支持实时点击反馈，但具备兼容性优势，且可通过条件格式间接强化视觉区分。
1、将原始数据转为表格（Ctrl+T），插入→数据透视表→将分类字段拖入“行”，数值字段拖入“值”（求和）。
2、基于透视表插入饼图；右键图表→“选择数据”→编辑图例项，确保顺序与透视表行一致。
3、在数据旁新增辅助列“高亮标识”，公式为：=IF([@类别]=SlicerValue,1,0)，其中SlicerValue为切片器所选值（需通过GETPIVOTDATA或命名区域获取）。
4、为饼图添加数据系列：右键→“选择数据”→“添加”，系列值指向辅助列；设置该系列为次坐标轴、无填充、0%透明度，仅保留轮廓线并将轮廓设为金色、2.5磅粗细，形成环绕效果。
四、手动高亮+形状覆盖法（静态美化方案）
适用于演示场景或导出静态图像，通过叠加半透明椭圆与箭头图形模拟点击后聚焦效果，完全规避代码依赖，所有操作在Excel界面内完成，适合快速交付初稿。
1、复制原始饼图（Ctrl+C），粘贴为图片（选择性粘贴→图片）并置于原图上方。
2、插入→形状→椭圆，绘制一个略大于目标扇区的椭圆，填充色设为RGB(255,255,204)，透明度50%，无线条。
3、插入→形状→弧形箭头，起点对准扇区中心，终点延伸至扇区外侧空白处，线条设为金色，3磅，箭头实心端。
4、全选椭圆与箭头→右键→组合；拖动组合体精确覆盖目标扇区；按Ctrl+G再次组合饼图与该图形组，便于整体移动。
