Excel催化剂开源第43波-Excel选择对象Selection在.Net开发中的使用
Excel的二次开发有一极大的优势所在，可以结合用户的交互进行程序的运行，大量用户的交互，都是从选择对象开始，用户选择了单元格区域、图形、图表等对象，之后再进行程序代码的加工处理，生成用户所需的最终结果。
所以熟练处理选择对象，尤其关键，而在VBA里的使用方法，来到.Net中特别是C#语言下，就需要另外的代码处理，希望此篇的分享给VBA转VSTO的朋友们带来一些帮助指引。
在VBA中，判断一个Selection对象是什么类型的方法如下：
Sub test()
Dim sel
Set sel = Selection
If TypeOf sel Is Range Then
Debug.Print 1
End If
End Sub
在C#中，想引用TypeOf方法，就要引用VisualBasic的Dll，麻烦，其实在C#里，可以直接用 is 和 as 的语句来实现此类的判断。
结合Excel催化剂开发的判断选中Selection是区域还是形状来做图形调整的功能，给大家分享下源代码。
此代码中，用户选定的Selection对象，有三类
- 单元格区域，类型为：Range,只获取单元格区域下的形状。
- 多个形状，类型为：DrawingObjects,获取选中的多个形状。
- 单个形状，类型为单个形状下的类型，可能是Picture,自选图形、图表等，只获取此图形。
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;
}
结语
不积跬步无以至千里，Excel催化剂的大量功能，都是一点一滴地开发出来的，但愿这些开发过程中遇到的小细节，小坑小洼的分享，能够带给广大后来学习者一些指引。
技术交流QQ群
QQ群名：Excel催化剂开源讨论群， QQ群号：788145319
关于Excel催化剂
Excel催化剂先是一微信公众号的名称，后来顺其名称，正式推出了Excel插件，插件将持续性地更新，更新的周期视本人的时间而定争取一周能够上线一个大功能模块。Excel催化剂插件承诺个人用户永久性免费使用！
Excel催化剂插件使用最新的布署技术，实现一次安装，日后所有更新自动更新完成，无需重复关注更新动态，手动下载安装包重新安装，只需一次安装即可随时保持最新版本！
Excel催化剂插件下载链接：https://pan.baidu.com/s/1Iz2_NZJ8v7C9eqhNjdnP3Q
取名催化剂，因Excel本身的强大，并非所有人能够立马享受到，大部分人还是在被Excel软件所虐的阶段，就是头脑里很清晰想达到的效果，而且高手们也已经实现出来，就是自己怎么弄都弄不出来，或者更糟的是还不知道Excel能够做什么而停留在不断地重复、机械、手工地在做着数据，耗费着无数的青春年华岁月。所以催生了是否可以作为一种媒介，让广大的Excel用户们可以瞬间点燃Excel的爆点，无需苦苦地挣扎地没日没夜的技巧学习、高级复杂函数的烧脑，最终走向了从入门到放弃的道路。
最后Excel功能强大，其实还需树立一个观点，不是所有事情都要交给Excel去完成，也不是所有事情Excel都是十分胜任的，外面的世界仍然是一个广阔的世界，Excel只是其中一枚耀眼的明星，还有其他更多同样精彩强大的技术、工具等。*Excel催化剂也将借力这些其他技术，让Excel能够发挥更强大的爆发！
关于Excel催化剂作者
姓名：李伟坚，从事数据分析工作多年（BI方向），一名同样在路上的学习者。
服务过行业：零售特别是鞋服类的零售行业，电商（淘宝、天猫、京东、唯品会）
技术路线从一名普通用户，通过Excel软件的学习，从此走向数据世界，非科班IT专业人士。
历经重重难关，终于在数据的道路上达到技术平原期，学习众多的知识不再太吃力，同时也形成了自己的一套数据解决方案（数据采集、数据加工清洗、数据多维建模、数据报表展示等）。
擅长技术领域：Excel等Office家族软件、VBA&VSTO的二次开发、Sqlserver数据库技术、Sqlserver的商业智能BI技术、Powerbi技术、云服务器布署技术等等。
2018年开始职业生涯作了重大调整，从原来的正职工作，转为自由职业者，暂无固定收入，暂对前面道路不太明朗，苦重新回到正职工作，对Excel催化剂的运营和开发必定受到很大的影响（正职工作时间内不可能维护也不可能随便把工作时间内的成果公布于外，工作外的时间也十分有限，因已而立之年，家庭责任重大）。
和广大拥护者一同期盼：Excel催化剂一直能运行下去，我所惠及的群体们能够给予支持（多留言鼓励下、转发下朋友圈推荐、小额打赏下和最重点的可以和所在公司及同行推荐推荐，让我的技术可以在贵司发挥价值，实现双赢（初步设想可以数据顾问的方式或一些小型项目开发的方式合作）。
