使用VSTO获取PowerPoint中指定形状前后重叠的形状列表

场景说明 #

• 幻灯片内形状按绘制从底到顶顺序为：矩形（最底层）、椭圆、平行四边形、三角形、五边形
• 需求：以最底层矩形为目标，高效获取所有位于目标上层、与目标部分重叠或完全落在目标边界内的形状，示例预期返回椭圆、平行四边形、三角形
• 约束：避免逐一两两比对形状的低性能方案，适配存在大量形状的幻灯片场景
  

核心实现思路 #

采用两层剪枝+原生能力判断的方案，性能远高于全量两两比对：

1. Z序剪枝：直接排除所有位于目标对象下层的形状，仅上层形状进入后续判断
2. 边界框快速预筛：通过数值比对计算形状外接矩形的位置关系，直接过滤外接矩形完全不与目标外接矩形相交的形状（比如示例中的五边形），这一步是纯内存数值运算，速度极快
3. 精确重叠判断：对预筛后剩下的少量候选形状，复用PowerPoint原生的形状相交合并能力判断是否存在重叠区域，无需自行实现复杂的矢量几何相交算法，判断完成后一次性撤销所有临时操作，不影响原文档内容

实现代码 #

需要提前在VSTO项目中引用Microsoft.Office.Interop.PowerPoint互操作程序集，代码如下：

using System.Collections.Generic;
using System.Runtime.InteropServices;
using MSPoint = Microsoft.Office.Interop.PowerPoint;

public List<MSPoint.Shape> GetUpperOverlappedShapes(MSPoint.Slide targetSlide, MSPoint.Shape targetShape)
{
    List<MSPoint.Shape> matchResult = new List<MSPoint.Shape>();
    List<MSPoint.Shape> candidateShapes = new List<MSPoint.Shape>();
    MSPoint.Application pptApp = targetSlide.Application;
    // 关闭屏幕更新提升执行速度
    bool originalScreenState = pptApp.ScreenUpdating;
    pptApp.ScreenUpdating = false;
    // 记录撤销起始点，所有临时操作最后一次性撤销
    int undoMark = pptApp.StartNewUndoEntry();

    try
    {
        // 计算目标形状的外接矩形边界
        float targetL = targetShape.Left;
        float targetT = targetShape.Top;
        float targetR = targetL + targetShape.Width;
        float targetB = targetT + targetShape.Height;
        int targetZIndex = targetShape.ZOrderPosition;

        // 第一轮：Z序剪枝+外接矩形预筛
        foreach (MSPoint.Shape shp in targetSlide.Shapes)
        {
            // 跳过自身和所有下层形状
            if (shp.ZOrderPosition <= targetZIndex)
            {
                Marshal.ReleaseComObject(shp);
                continue;
            }
            // 计算当前形状外接矩形，完全不相交则直接排除
            float shpL = shp.Left;
            float shpT = shp.Top;
            float shpR = shpL + shp.Width;
            float shpB = shpT + shp.Height;
            if (shpR < targetL || shpL > targetR || shpB < targetT || shpT > targetB)
            {
                Marshal.ReleaseComObject(shp);
                continue;
            }
            candidateShapes.Add(shp);
        }

        // 第二轮：精确判断候选形状是否和目标存在重叠
        foreach (MSPoint.Shape candidate in candidateShapes)
        {
            // 临时复制两个形状用于相交测试
            MSPoint.Shape tempTarget = targetShape.Duplicate()[1];
            MSPoint.Shape tempCandidate = candidate.Duplicate()[1];
            bool hasOverlap = false;

            try
            {
                tempTarget.Select(false);
                tempCandidate.Select(true);
                // 执行相交合并，能生成有效形状即说明存在重叠
                MSPoint.ShapeRange mergeResult = pptApp.ActiveWindow.Selection.ShapeRange.MergeShapes(
                    MSPoint.MsoMergeCmd.msoMergeIntersect, false);
                if (mergeResult.Count > 0)
                {
                    hasOverlap = true;
                    Marshal.ReleaseComObject(mergeResult);
                }
            }
            catch
            {
                // 合并抛出异常说明无重叠区域
                hasOverlap = false;
            }

            // 释放临时COM对象
            Marshal.ReleaseComObject(tempTarget);
            Marshal.ReleaseComObject(tempCandidate);

            if (hasOverlap)
            {
                matchResult.Add(candidate);
            }
        }
    }
    finally
    {
        // 撤销所有临时操作，恢复文档原始状态
        pptApp.UndoUntil(undoMark);
        pptApp.ScreenUpdating = originalScreenState;
        // 释放候选对象COM引用
        foreach (var shp in candidateShapes)
        {
            Marshal.ReleaseComObject(shp);
        }
    }
    return matchResult;
}

调用方式 #

针对示例场景（最底层为目标矩形），直接按如下方式调用即可：

// 获取当前活动演示文稿第一张幻灯片
MSPoint.Slide slide = Globals.ThisAddIn.Application.ActivePresentation.Slides[1];
// ZOrderPosition为1的形状是幻灯片最底层对象，即示例中的矩形
MSPoint.Shape targetRect = slide.Shapes.Item(1);
// 执行查询，返回结果即为椭圆、平行四边形、三角形三个形状
List<MSPoint.Shape> result = GetUpperOverlappedShapes(slide, targetRect);

注意事项 #

• 上述代码中用到的MergeShapes方法支持PowerPoint 2013及以上版本，若需要兼容更老版本，可将精确判断逻辑替换为GDI+图形路径相交判断，预筛逻辑保持不变即可
• 所有临时操作都会通过撤销机制完全回滚，不会对原幻灯片内容造成任何修改
• 两层剪枝逻辑可以过滤掉90%以上不需要参与精确判断的形状，在形状数量较多的幻灯片上性能优势非常明显

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