不怎么熟悉VSTO的Powerpoint开发,只是突然需要用一下,但是网上相关太少了,所以这里简单记录一下。
VSTO(Visual Studio Tools for Office )是VBA的替代,是一套用于创建自定义Office应用程序的Visual Studio工具包。VSTO使你可以用Visual Basic 或者Visual C#扩展Office应用程序(例如Word、Excel、InfoPath和Outlook)。你可以使用强大的Visual Studio开发环境来创建你的定制程序,而不是使用Visual Basic for Application(VBA)和Office里的Visual Basic Editor(VBE)。无论你是创建简单的数据录入应用程序还是复杂的企业解决方案,VSTO都使之变得容易。
开发自定义的Office插件的解决方案,总共有如下三种:
VBA是微软提出的第一种Office开发解决方案,太老了,落后了;后来微软发布了.net平台,并推出了新语言:C#,并适时推出了VSTO,也是一直在广泛使用的Office开发套件;而Office add-ins创建的插件,插件界面都是通过Http请求到服务器上获取的(Web技术实现),不能实现一些离线功能。
Windows 10 以及Visual Studio 2019。VS内已经有VSTO的相关开发组件,进入VS Installer里可以添加和查看。
新建项目,模板为PowerPoint VSTO外接程序。
框架就选择最新的.NET 框架,我这里用的 4.7.2。
创建完毕后,可以直接点运行,它会自启动Office,可以看到加载项里会有该项目。
这个时候进PPT是什么都没有的,因为还没有添加TAB功能页。
当然,没有功能页,也是可以开发的,自动生成的代码里,就给你表明了加载项启动和结束的生命周期函数。
为了更容易理解,这里我们需要添加一个TAB功能区。项目-》添加组件-》功能区
我们可以看到功能区的样子。
当然在启动看看之前,看一下tab的属性,将Controlld属性改成Custom,才能修改Tab名,进行自定义。
名字改成了Test,添加了一个Button,运行可以看到下图。
我实现了一些基础功能,因为没有找到VSTO的细节文档,经过摸索我发现,VSTO的对象命名和类结构和VBA相差不大,所以参考文档为微软PowerPointVBA参考文档。以下不熟悉的对象,可以在该参考文档内搜索。
双击按钮可以自动创建响应事件,所以这里我只贴功能实现代码。
using PowerPoint = Microsoft.Office.Interop.PowerPoint;
using Office = Microsoft.Office.Core;
using Forms = System.Windows.Forms;
private void Ribbon1_Load(object sender, RibbonUIEventArgs e)
{
app = Globals.ThisAddIn.Application;
}
这里直接用的系统的模式对话框,具体参数百度。
private void Button_clicktest_Click(object sender, RibbonControlEventArgs e)
{
Forms.MessageBox.Show("你点击了按钮");
}
同Tab功能区创建过程一致,添加一个 Windows 窗体(Windows.Forms)。
窗体类名为 Form1
按钮触发对话框:
private void button_clickedit_Click(object sender, RibbonControlEventArgs e)
{
Form1 objForm = new Form1();
objForm.Show();
}
具体参数及其函数可以参考类Windows.Forms的说明,我指出了类名就可以自行查找具体用法。
我发现每次切换都需要选中幻灯片,但是如何获取当前正在显示的幻灯片我还没有摸索到。
// 上一张幻灯片
private void button_pre_Click(object sender, RibbonControlEventArgs e)
{
if (app.ActiveWindow.Selection.Type != PowerPoint.PpSelectionType.ppSelectionNone)
{
PowerPoint.Slide MySlide = app.ActiveWindow.View.Slide; //获取当前选中的幻灯片
var index = MySlide.SlideIndex;
if (index > 1)
app.ActiveWindow.View.GotoSlide(index - 1);
}
else
Forms.MessageBox.Show("未选中幻灯片");
}
// 下一张幻灯片
private void button_next_Click(object sender, RibbonControlEventArgs e)
{
if (app.ActiveWindow.Selection.Type != PowerPoint.PpSelectionType.ppSelectionNone)
{
PowerPoint.Slide MySlide = app.ActiveWindow.View.Slide; //获取当前选中的幻灯片
PowerPoint.Slides AllSlide = app.ActiveWindow.Presentation.Slides; //获取当前所有幻灯片
var index = MySlide.SlideIndex;
if (index < AllSlide.Count)
app.ActiveWindow.View.GotoSlide(index + 1);
}
else
Forms.MessageBox.Show("未选中幻灯片");
}
从当前还是从头只是调节播放参数,主要是PowerPoint.SlideShowSettings类的设置,注意EndingSlide 不能小于StartingSlide,不然会无响应 。
private void button_start_Click(object sender, RibbonControlEventArgs e)
{
PowerPoint.Slides AllSlide = app.ActiveWindow.Presentation.Slides; //获取当前所有幻灯片
PowerPoint.Presentations objPresSets = null;
objPresSets = app.Presentations;
PowerPoint.SlideShowSettings MySSS;
MySSS = objPresSets[1].SlideShowSettings;
MySSS.StartingSlide = 1;
MySSS.EndingSlide = AllSlide.Count;
MySSS.Run();
// 开始播放
}
private void button_startnow_Click(object sender, RibbonControlEventArgs e)
{
if (app.ActiveWindow.Selection.Type != PowerPoint.PpSelectionType.ppSelectionNone)
{
PowerPoint.Slide MySlide = app.ActiveWindow.View.Slide; //获取当前选中的幻灯片
PowerPoint.Slides AllSlide = app.ActiveWindow.Presentation.Slides; //获取当前所有幻灯片
PowerPoint.Presentations objPresSets = null;
objPresSets = app.Presentations;
PowerPoint.SlideShowSettings MySSS;
MySSS = objPresSets[1].SlideShowSettings;
MySSS.StartingSlide = MySlide.SlideIndex;//起始页
MySSS.EndingSlide = AllSlide.Count;// 结束页
MySSS.RangeType = PowerPoint.PpSlideShowRangeType.ppShowSlideRange;
MySSS.Run();
// 开始播放
}
else
Forms.MessageBox.Show("未选中幻灯片");
}
新建和删除就是对 PowerPoint.Slide 和 PowerPoint.Slides 的操作。
private void button_deleteslide_Click(object sender, RibbonControlEventArgs e)
{
PowerPoint.Slides MySlides = app.ActivePresentation.Slides;
PowerPoint.Slide MySlide = null;//幻灯片对象
if (app.ActiveWindow.Selection.Type != PowerPoint.PpSelectionType.ppSelectionNone)
{
MySlide = app.ActiveWindow.View.Slide; //获取当前选中的幻灯片
MySlide.Delete();
}
else
Forms.MessageBox.Show("未选中幻灯片");
}
private void button_newslide_Click(object sender, RibbonControlEventArgs e)
{
PowerPoint.Slides MySlides = app.ActivePresentation.Slides;
PowerPoint.Slide MySlide = null;//幻灯片对象
if (app.ActiveWindow.Selection.Type != PowerPoint.PpSelectionType.ppSelectionNone)
{
MySlide = app.ActiveWindow.View.Slide; //获取当前选中的幻灯片
MySlides.Add(MySlide.SlideIndex + 1, PowerPoint.PpSlideLayout.ppLayoutCustom);
}
else
MySlides.Add(MySlides.Count + 1, PowerPoint.PpSlideLayout.ppLayoutCustom);
}
微软VBA PowerPoint 参考文档
博客 https://blog.csdn.net/m0_37684310/article/details/104518584
文章浏览阅读467次。计算机毕业设计Java疫情防控医用品管理(系统+源码+mysql数据库+Lw文档)springboot基于SpringBoot的婚庆策划系统的设计与实现。JSP健身俱乐部网站设计与实现sqlserver和mysql。JSP网上测试系统的研究与设计sqlserver。ssm基于SpringMvC的流浪狗领养系统。ssm基于Vue.js的音乐播放器设计与实现。ssm校园流浪猫图鉴管理系统的设计与实现。_疫情防护用品销售管理系统 论文
文章浏览阅读988次,点赞28次,收藏28次。最后小编想说:不论以后选择什么方向发展,目前重要的是把Android方面的技术学好,毕竟其实对于程序员来说,要学习的知识内容、技术有太多太多,要想不被环境淘汰就只有不断提升自己,从来都是我们去适应环境,而不是环境来适应我们!这里附上我整理的几十套腾讯、字节跳动,京东,小米,头条、阿里、美团等公司19年的Android面试题。把技术点整理成了视频和PDF(实际上比预期多花了不少精力),包含知识脉络 + 诸多细节。由于篇幅有限,这里以图片的形式给大家展示一小部分。
文章浏览阅读600次,点赞11次,收藏6次。*单片机设计介绍,基于单片机数码管秒表控制系统设计。
文章浏览阅读235次。python小程序之验证码图片的生成定义随机字母的生成函数定义随机颜色生成函数,采用RGB格式,生成一个元组调用Image,生成画布,填充底色为白色调用画笔函数Draw,传入画布对象填充画布的每一个色块,作为背景在画布上控制间距,填上每一个字在最后的图上进行模糊操作代码# 生成一个随机的二维码小程序from PIL import Image,ImageDraw,ImageF..._小程序图片验证码后端生成
文章浏览阅读2.2k次。 1. 用户需求分析客户规模:客户有一个总部,具有一定规模的园区网络; 一个分支机构,约有20-50名员工; 用户有很多移动办公用户 客户需求:组建安全可靠的总部和分支LAN和WAN; 总部和分支的终端需要提供安全防护,并实现网络准入控制,未来实现对VPN用户的网络准入检查; 需要提供IPSEC/SSLVPN接入; 在内部各主要部门间,及内外网络间进_思科设备怎么ranga)服务器区域独立防护;
文章浏览阅读445次。4、转移账号生成的 p8 文件(证书文件)1、转移苹果账号的 teamID。2、接受苹果账号的 teamID。5、接受账号生成的 p8 文件。3、转移应用的 AppID。_apple 账号迁移
文章浏览阅读1k次。https://blog.csdn.net/u012328159/article/details/80311892_momentum seg
文章浏览阅读816次。主要的原理就是替换模板里的特殊字符。 1、静态模板页面 template.html,主要是定义了一些特殊字符,用来被替换。 HTML code DOCTYPE HT_监听数据变更自动生成静态html
文章浏览阅读494次。 今日在做一个新闻系统的评论时. 想到了预防"提交"按钮的多次点击的问提 (prevent multiple clicks of a submit button in ASP.NET). 以前碰到此类问提总是用重定位页面来解决. 这次我想找到一个一劳永逸的办法. 通过查讯Google,找到了一些代码,挑选一些较好的修改了一下。public void pa
文章浏览阅读4.7k次。近来公司业务有需要做socks5代理的需求,研究了一下,主要的开源实现有2个:dante http://www.inet.no/dante/ss5 http://ss5.sourceforge.net/比较了一下,还是比较倾向于dante,因为看到有人这样评价ss5:Project has an incredibly poor source code quality. Th_dante 代理 配置pam用户名密码 模式
文章浏览阅读809次。在excel vba 中用到countifs 函数,但用来统计带有特殊符号* 时总是统计chu_vba countifs 源码
文章浏览阅读2.6k次。当两个效果之间变换时,可以使用transition过渡属性,但是有多个效果来回变换时,就需要使用动画效果,且动画过程可控(重复播放,画面暂停,最终画面等)文章目录1、简介2、实现步骤3、复合属性animation4、动画属性1、简介动画的本质是快速切换大量图片在人脑中形成的具有连续性的画面构成动画的最小单元:帧或者动画帧2、实现步骤定义动画@keyframes 动画名称{ from{} to{}}@keyframes 动画名称{ 0%{} 10%{} 20%{} 50._web前端实现图片动画效果