使用Add-in向选中的Slide插入文字
这是一个在PowerPoint中创建一个Ribbon按钮,当点击这个按钮时会向当前Slide插入一段文字。
using System; using System.Collections.Generic; using System.Linq; using System.Text; using Microsoft.Office.Tools.Ribbon; using PowerPoint = Microsoft.Office.Interop.PowerPoint; using System.Windows.Forms; using Office = Microsoft.Office.Core; namespace PowerPointAddIn2 { public partial class Ribbon1 { private void Ribbon1_Load(object sender, RibbonUIEventArgs e) { } private void button1_Click(object sender, RibbonControlEventArgs e) { PowerPoint.Application ppApp = Globals.ThisAddIn.Application; PowerPoint.SlideRange ppSR = ppApp.ActiveWindow.Selection .SlideRange; PowerPoint.Shape ppShap = ppSR.Shapes .AddLabel(Office.MsoTextOrientation .msoTextOrientationHorizontal, 0, 0, 200, 25); ppShap.TextEffect.Text = "Hello World!"; } } }
征诛志异,三让两家王朝;功同开辟,一桮万古江南。