Excel催化剂开源第43波-Excel选择对象Selection在.Net开发中的使用

Sub test()
Dim sel
Set sel = Selection

If TypeOf sel Is Range Then

Debug.Print 1

End If


End Sub

 public static Dictionary<Excel.Shape, Excel.Range> GetShpInfos()
        {
            Excel.Range selRange = Common.ExcelApp.Selection as Excel.Range;
            Dictionary<Excel.Shape, Excel.Range> dicShpInfo = new Dictionary<Excel.Shape, Excel.Range>();
            if (selRange != null)
            {
                dicShpInfo = GetShpInfoBySelectRange(selRange);
            }
            else
            {
                Excel.DrawingObjects drawingObjects = Common.ExcelApp.Selection as Excel.DrawingObjects;
                if (drawingObjects != null)
                {
                    int shpCount = drawingObjects.ShapeRange.Count;
                    for (int i = 1; i <= shpCount; i++)
                    {
                        Excel.Shape shp = drawingObjects.ShapeRange.Item(i);
                        dicShpInfo.Add(shp, shp.TopLeftCell.MergeArea);
                    }
                }
                else
                {
                    Excel.Worksheet actSht = Common.ExcelApp.ActiveSheet;

                    var selShp = Common.ExcelApp.Selection;
                    foreach (Excel.Shape shp in actSht.Shapes)
                    {
                        if (shp.Name == selShp.Name && shp.TopLeftCell.Address == selShp.TopLeftCell.Address && shp.BottomRightCell.Address == selShp.BottomRightCell.Address)
                        {
                            dicShpInfo.Add(shp, shp.TopLeftCell.MergeArea);
                        }
                    }
                }
            }

            return dicShpInfo;
        }

              private static Dictionary<Excel.Shape, Excel.Range> GetShpInfoBySelectRange(Excel.Range selRange)
        {
            Excel.Worksheet actSht = selRange.Parent;
            Dictionary<Excel.Shape, Excel.Range> dicShpInfo = new Dictionary<Excel.Shape, Excel.Range>();
            if (selRange.Cells.Count > 1)
            {
                foreach (Excel.Shape shp in actSht.Shapes)
                {
                    Excel.Range topLeftCell = shp.TopLeftCell;
                    Excel.Range bottomRightCell = shp.BottomRightCell;
                    Excel.Range shpRange = actSht.Range[topLeftCell, bottomRightCell];

                    if (Common.ExcelApp.Intersect(shpRange, selRange) != null)
                    {
                        dicShpInfo.Add(shp, shp.TopLeftCell.MergeArea);
                    }
                }
            }
            else
            {
                foreach (Excel.Shape shp in actSht.Shapes)
                {
                    dicShpInfo.Add(shp, shp.TopLeftCell.MergeArea);
                }
            }

            return dicShpInfo;
        }