VSTO Office二次开发PPTRibbonX命令操作及对象添加

本篇分享对于Power Point中一些命令的操作和对于一些比较常用对象、特殊对象的添加功能。

对于Power Point命令操作：
有了前一篇《[转]VSTO Office二次开发RibbonX代码结构》的了解，就可以尝试现实自己的RibbonX的相关元素的操作了，这里提供简单的小示例：
1.创建外接程序。
创建一个PPT的外接程序，在《VSTO Office二次开发对PowerPoint功能简单测试》随笔中有介绍，如何创建一个简单的PPT外接程序。
2.创建功能区(XML)。
在项目右键单击添加，弹出“添加新项”，添加“功能区(XML)”,以XML的形式创建功能区。
在Ribbon1.xml添加如下代码，定义三个回调事件"MyCopy"\"MyCut"\"GetInfo"：

<?xml version="1.0" encoding="UTF-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="Ribbon_Load">
    <commands>
        <!--PPT中的文件保存功能不能使用-->
        <command idMso="FileSave" enabled="false"/>
        <!--"MyCut"扩展PPT中"剪切"命令的响应事件-->
        <command idMso="Cut" enabled="true" onAction="MyCut"/>
        <command idMso="Copy" enabled="true"  onAction="MyCopy"/>
    </commands>
    <ribbon>
        <tabs>
            <tab idMso="TabAddIns">
                <group id="MyGroup"
                       label="My Group">
                    <button id="MyButton" label="MyButton" onAction="GetInfo"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

3.回调函数编写。
在Ribbon1.cs文件中添加对于回调函数的处理代码:

/// <summary>
        /// MyButton的回调方法
        /// </summary>
        /// <param name="control"></param>
        public void GetInfo(Office.IRibbonControl control)
        {
            MessageBox.Show("Released");
        }

        /// <summary>
        /// MyCopy的回调方法
        /// </summary>
        /// <param name="control">触发控件</param>
        /// <param name="cancelDefault">是否取消功能</param>
        public void MyCopy(Office.IRibbonControl control, ref bool cancelDefault)
        {
            bool isSuccess = IsSuccess();
            //如果cancelDefault返回false,则取消该操作
            cancelDefault = isSuccess;
        }

        /// <summary>
        /// 要处理的业务
        /// </summary>
        /// <returns></returns>
        private bool IsSuccess()
        {
            return false;
        }

4.关联外接程序。
前几步把Ribbon设计完毕，现在与Power Point外接程序进行关联：(重写RequestService方法)

private Ribbon1 ribbon;//重新定义Ribbon1
        /// <summary>
        /// 重写RequestService方法
        /// </summary>
        /// <param name="serviceGuid"></param>
        /// <returns></returns>
        protected override object RequestService(Guid serviceGuid)
        {
            if (serviceGuid == typeof(Office.IRibbonExtensibility).GUID)
            {
                if (ribbon == null)
                    ribbon = new Ribbon1();
                return ribbon;
            }
            return base.RequestService(serviceGuid);
        }

5.功能测试。
F5运行程序，简单测试。对于“文件保存”、“剪切”、“复制”操作的测试。

对于操作的RibbonX的Office 2010所有命令(Office2010ControlIDs.exe也有对于2007支持的命令)：
参见：http://social.msdn.microsoft.com/Forums/pl/worddev/thread/337946b2-edc4-4f40-bb45-1babf58a5e7e
下载：http://www.microsoft.com/download/en/details.aspx?id=6627

对于RibbonX进行对Office程序的XML编程很不错。几个可参考资源：
使用 Open XML 文件格式自定义 Office Fluent 功能区
利用您自己的功能区选项卡和控件扩展 2007 Office System
细品RibbonX(12)：使用XML Notepad自定义功能区
http://www.360doc.com/content/09/1110/11/406571_8725398.shtml

对于PowerPoint添加对象：
微软也提供了一些调用接口：
《Shapes.AddPicture 方法 》http://msdn.microsoft.com/zh-cn/library/office/jj735114.aspx
《OLE 程序标识符 （PowerPoint）》http://msdn.microsoft.com/zh-cn/library/office/ff746158.aspx
常用对象添加调用代码：

        /// <summary>
        /// 添加常用对象
        /// 通过OLE添加对象,支持网络文件访问
        /// 添加公式：Equation.3
        /// 添加图表：MSGraph.Chart
        /// </summary>
        /// <param name="slide">幻灯片</param>
        /// <param name="filePath">文件路径</param>
        /// <param name="left">居左位置</param>
        /// <param name="top">居右位置</param>
        /// <param name="width">宽度</param>
        /// <param name="height">高度</param>
        #region 添加对象操作     
        //添加图片
        private void AddADPicture(PowerPoint.Slide slide, string filePath, float left, float top, float width, float height)
        {
            PowerPoint.Shape pic;
            pic = slide.Shapes.AddPicture(filePath, Office.MsoTriState.msoFalse, Office.MsoTriState.msoTrue,left,top,width,height);
            pic.Name = "Picture";
            pic.Tags.Add("Name", "Value");//或用tag标签携带数据
        }
        //添加媒体文件
        private void AddMedia(PowerPoint.Slide slide, string filePath, float left, float top, float width, float height)
        {
            PowerPoint.Shape media;
            media = slide.Shapes.AddMediaObject(filePath,left,top,width,height);
            media.Name = "Media";
        }
        //添加任意对象,但需要激活操作
        private void AddOLEDPath(PowerPoint.Slide slide, string filePath, float left, float top, float width, float height)
        {
            PowerPoint.Shape oledFile;
            oledFile = slide.Shapes.AddOLEObject(left,top,height,width,FileName: filePath, DisplayAsIcon: Office.MsoTriState.msoTrue);//, DisplayAsIcon: Office.MsoTriState.msoTrue
            oledFile.Name = filePath;            
        }
        //添加Flash播放器,需要本机上安装Flash播放插件
        private void AddFlashObj(PowerPoint.Slide slide, string fileName, float left, float top, float width, float height)
        {
            object oleControl = slide.Shapes.AddOLEObject(left, top, width, height, "ShockwaveFlash.ShockwaveFlash", "",
                Office.MsoTriState.msoFalse, "", 0, "", Office.MsoTriState.msoFalse).OLEFormat.Object;
            Type oleControlType = oleControl.GetType();              /* 设置flash播放属性 */
            oleControlType.InvokeMember("EmbedMovie", BindingFlags.SetProperty, null, oleControl, new object[] { true });
            oleControlType.InvokeMember("Playing", BindingFlags.SetProperty, null, oleControl, new object[] { true });
            oleControlType.InvokeMember("Movie", BindingFlags.SetProperty, null, oleControl, new object[] { fileName });// 设置Flash文件路径          
            oleControlType.InvokeMember("Scale", BindingFlags.SetProperty, null, oleControl, new object[] { "ExactFit" });//设置显示比例为：严格匹配        
            oleControlType.InvokeMember("ScaleMode", BindingFlags.SetProperty, null, oleControl, new object[] { 2 });
        }
        //添加3D模型播放器,需要本机上安装BS Contact插件
        private void AddBSContactObj(PowerPoint.Slide slide, string fileName, float left, float top, float width, float height)
        {
            object oleControl = slide.Shapes.AddOLEObject(left, top, width, height, "BSContact.BSContact", "",
                Office.MsoTriState.msoFalse, "", 0, "", Office.MsoTriState.msoFalse).OLEFormat.Object;
            Type oleControlType = oleControl.GetType();              /* 设置BSContact播放属性 */
            oleControlType.InvokeMember("Enabled", BindingFlags.SetProperty, null, oleControl, new object[] { true });
            oleControlType.InvokeMember("url", BindingFlags.SetProperty, null, oleControl, new object[] { fileName });// 设置BSContact文件路径          
            oleControlType.InvokeMember("walkSpeed", BindingFlags.SetProperty, null, oleControl, new object[] { 0 });
            oleControlType.InvokeMember("animateAllViewpoints", BindingFlags.SetProperty, null, oleControl, new object[] { false });
        }
        //添加图片,以OLE对象形式
        private void AddOlePicture(PowerPoint.Slide slide, string fileName, float left, float top, float width, float height)
        {
            object oleControl = slide.Shapes.AddOLEObject(left, top, width, height, "Forms.Image.1", "",
                Office.MsoTriState.msoFalse, "", 0, "", Office.MsoTriState.msoFalse).OLEFormat.Object;
            Type oleControlType = oleControl.GetType();
            oleControlType.InvokeMember("Enabled", BindingFlags.SetProperty, null, oleControl, new object[] { true });

            Bitmap bitmap = new Bitmap(fileName);
            stdole.StdPicture pic = (stdole.StdPicture)ImageConverter2.ImageToIpicture(bitmap);
            oleControlType.InvokeMember("Picture", BindingFlags.SetProperty, null, oleControl, new object[] { pic });
        }
        //添加Windows Media Player播放器,本机安装Windows Media Player(插件)
        private void AddOleMedia(PowerPoint.Slide slide, string fileName, float left, float top, float width, float height)
        {
            //MediaPlayer.MediaPlayer.1或WMPlayer.OCX.7
            object oleControl = slide.Shapes.AddOLEObject(left, top, width, height, "WMPlayer.OCX.7", "",
                Office.MsoTriState.msoFalse, "", 0, "", Office.MsoTriState.msoFalse).OLEFormat.Object;
            Type oleControlType = oleControl.GetType();
            oleControlType.InvokeMember("Enabled", BindingFlags.SetProperty, null, oleControl, new object[] { true });
            oleControlType.InvokeMember("Url", BindingFlags.SetProperty, null, oleControl, new object[] {fileName });
        }
        //添加Form窗体,窗体中添加Image控件,单击弹出"PPT"信息提示
　　　　 //命名引用：using MF = Microsoft.Vbe.Interop.Forms;
        private void AddOleForm(PowerPoint.Slide slide, string fileName, float left, float top, float width, float height)
        {
            var oleControl = slide.Shapes.AddOLEObject(left, top, width, height, "Forms.Frame.1", "",
                Office.MsoTriState.msoFalse, "", 0, "", Office.MsoTriState.msoFalse);
            var obj = oleControl.OLEFormat.Object;
            oleControl.Name = "Frame";

            PowerPoint.OLEFormat oleF = slide.Shapes.Range("Frame").OLEFormat;
            MF.Frame frm1 = (MF.Frame)oleF.Object;

            frm1.Caption = "PP";
            MF.Image image = (MF.Image)frm1.Controls.Add("Forms.Image.1");

            image.Click += new MF.ImageEvents_ClickEventHandler(image_Click);

            Bitmap bitmap = new Bitmap(fileName);
            image.Picture = (stdole.StdPicture)ImageConverter2.ImageToIpicture(bitmap);
        }

        void image_Click()
        {
            MessageBox.Show("PPT");
        }
        #endregion

其中，图片转化类,将StdPicture转换为Bitmap:

 public class ImageConverter2 : System.Windows.Forms.AxHost
    {
        public ImageConverter2()
            : base("59EE46BA-677D-4d20-BF10-8D8067CB8B33")
        {
        }

        public static stdole.IPictureDisp ImageToIpicture(System.Drawing.Image image)
        {
            return (stdole.IPictureDisp)ImageConverter2.GetIPictureDispFromPicture(image);
        }

        public static System.Drawing.Image IPictureToImage(stdole.StdPicture picture)
        {
            return ImageConverter2.GetPictureFromIPicture(picture);
        }
    }

 也可以添加Word\Excel\PPT《VSTO Office二次开发对PPT自定义任务窗格测试》，发现通过添加OLE对象使用ClassName标识的形式，可以添加本机安装的很多Com组件，在PPT中插入的ActiveX组件基本都可以通过OLE对象通过程序添加到PPT中。