91porn download 谈谈使用VBA阻挡PPT

台灣 拳交 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所示。

图片91porn download91porn download

图1海涵鄙人面留言，完善本文本体，让更多的东谈主学到更竣工的学问。海涵到学问星球：竣工Excel社群，进行本领交流和发问，得回更多电子贵府，并通过社群加入荒芜的微信说合群，更便捷交流。 本站仅提供存储工作，所有这个词本体均由用户发布，如发现存害或侵权本体，请点击举报。