excelperfect标签：VBA与Excel相似，咱们也不错使用VBA来操控PPT。如底下的代码：Sub AddShapeToPPT() Dim myShape As Shape Set myShape = ActiveWindow.View.Slide.Shapes.AddShape(msoShapeRectangle， 50， 50， 50， 50) With myShape.Fill .Visible = msoTrue .ForeColor.RGB = RGB(255， 0， 0) .Transparency = 0 .Solid End WithEnd Sub在PowerPoint中开动后，将会在现时幻灯片中生成一个红色的矩形（正方形）。研究词，与Excel不同的是，在PowerPoint中莫得宏录制器，因而弗成将操作录制成代码。但咱们不错借助于Excel的宏录制器，在Excel中录制研究操作的代码，然后稍作修改，将其移植到PowerPoint中。举例，在Excel中使用宏录制器录制的画图红色矩形的代码如下：

ActiveSheet.Shapes.AddShape(msoShapeRectangle， 50， 50， 50， 50).Select With Selection.ShapeRange.Fill   .Visible = msoTrue   .ForeColor.RGB = RGB(255， 0， 0)   .Transparency = 0   .Solid End With

与在PowerPoint中创建红色矩形的代码相对，险些疏浚。仅仅，在Excel中使用ActiveSheet代表援用了现时责任表，而在PowerPoint中使用ActiveWindow.View.Slide代表援用现时幻灯片。这为咱们提供了一种智力，也即是在Excel中录制研究的操作代码，稍作修改后利用到PowerPoint中。其实，咱们不错平直在Excel的VBE中修改代码，用来生成PPT。与上文在PPT中画图红色矩形相似，底下的示例代码从Excel中绽放PPT并在现时幻灯片中画图一个红　色矩形：Sub AddShapeToPPT() Dim pptApp As PowerPoint.Application Set pptApp = New PowerPoint.Application Dim pptPres As Object Set pptPres = pptApp.Presentations.Add(msoTrue) Dim pptSlide As Object Set pptSlide = pptPres.Slides.Add(1， ppLayoutTitleOnly) Dim myShape As Object Set myShape = pptApp.ActiveWindow.View.Slide.Shapes. _ AddShape(msoShapeRectangle， 50， 50， 50， 50) With myShape.Fill .Visible = msoTrue .ForeColor.RGB = RGB(255， 0， 0) .Transparency = 0 .Solid End WithEnd Sub不错看出，代码段除了声明部分要援用幻灯片用来惩处外，底下的大部分代码王人疏浚。留神，在开动上头的代码前，要先援用相应的对象库，即在VBE中，单击菜单“用具——援用”，在“援用”对话框中，找到“Microsoft PowerPoint 16.0 Object Library”并中式其前边的复选框，如下图1所示。

图片吉吉影院

东京热种子图1接待鄙人面留言，完善本文实质，让更多的东说念主学到更完好的常识。接待到常识星球：完好Excel社群，进行技能交流和发问，赢得更多电子贵府，并通过社群加入有利的微信筹算群，更浮浅交流。 本站仅提供存储工作，扫数实质均由用户发布，如发现存害或侵权实质，请点击举报。