本文目录一览：

如何用vba做ppt

首先，新建一个PPT文档，并复制这段代码。点击“开发工具”→Visual Basic或查看代码

Sub一键EMF()

ActiveWindow.View.PasteSpecial (ppPasteEnhancedMetafile)

ActiveWindow.Selection.ShapeRange.Ungroup.Ungroup.Select

ActiveWindow.Selection.ShapeRange(msoAutoShape).Delete

ActiveWindow.Selection.ShapeRange.Regroup

End Sub

请点击输入图片描述

如果没有开发工具选项卡，请点击文件→选项→自定义功能区→主选项卡→勾选“开发工具”→确定。然后根据第一步继续。如果已经有开发工具选项卡，跳过此步。

请点击输入图片描述

进入VBA界面后，点击插入→模块→在新建的空白区域按Ctrl+V粘贴复制好的代码→关闭窗口，返回PPT界面。

请点击输入图片描述

请点击输入图片描述

先记得复制元素（无论是AI还是PPT都记得先复制元素）→Alt+F8打开宏→点击“一键EMF”运行。PS：图中左侧矩形组合是PPT中制作的，右侧的是经过一键处理后的。

请点击输入图片描述

请点击输入图片描述

我们也可以把宏放到快速访问工具栏中，方法是：文件→选项→“从下列位置选择命令”下面选择“宏”→将一键EMF添加到对话框右侧的快速访问工具栏里。此时宏就出现在了快速访问工具栏上。复制素材后点击此按钮，就做到了一键导入。经常从AI往PPT导素材的朋友，不妨试试。

PS：

1.建议将做好的宏处理文档单独保存为pptm格式，使用时打开导入素材，然后把处理后的素材再复制到需要的ppt里，此pptm只作为中转。

2.使用一键前，请注意先复制元素，否则VBA会报错。

3.代码在PPT2010、2013中测试无误。

请点击输入图片描述

在PPT页面中，怎么用VBA插入一个PPT附件，求大神指导？

使用VBA 操作PPT是比较少见的，工作中也会有将不同PPT文件合并为同一文件，网上查到的都是使用软件或者使用重用PPT功能, 但是如果文件超多，还是比较麻烦，可以使用VBA  一步就实现这个功能，完成后，可以一下处理成千上万份PPT（有点夸张，时间也会长，但是还是省事）

1. 新建两个PPT文件，一个名为Test文件，另一个名为Sumppt,  都另存为TEST.pptm 文件（启动宏的PPT）

2. →ALT+F11，点插入模块，将下此文末的代码拷入到所插入模块中后保存

然后将多个PPT放入到跟SumPPT相同文件夹下的位置

3  开始操作：打开SumPPT→ALT+F11点一下 F5 键，出现下面的，然后点“运行”即可

以上内容来自百度文库

VBA PPT 文本框设置

Sub Change_WhiteText_toBlack()

On Error Resume Next

Dim i, j As Single

For i = 2 To ActivePresentation.Slides.Count

For j = 1 To ActivePresentation.Slides(i).Shapes.Count

With ActivePresentation.Slides(i).Shapes(j)

If .Fill.BackColor = vbWhite And .TextFrame.TextRange.Font.Color = vbWhite Then

.TextFrame.TextRange.Font.Color = vbBlack

End If

End With

Next

Next

End Sub

插入模块，复制代码到其中。

什么是PPT中的VBA?怎么才能打开VBA?

ppt中想要实现编程效果，可以使用vba实现。

1、首先，我们点击开发工具选项卡。

2、然后我们便可以看到VBA命令按钮。

3、此时，页面将会成功弹出窗口，然后我们便可以在这里加入各种类型。

4、然后我们便可以开始运行测试。

如何使用VBA程序制作随机播放PPT幻灯片

1、启动PowerPoint 2013并打开演示文稿，该演示文稿已经完成了标题页的制作和题目的添加。使用技巧429介绍的方法在幻灯片中添加一个按钮控件，并在“属性”面板中更改控件的“Caption”属性值。

2、右击幻灯片中的按钮控件，选择快捷菜单中的“查看代码”命令，在打开的Visual Basic编辑器的代码窗口中输入程序代码。具体的程序代码如下。

01 Private Sub CommandButton1_Click()

02 Dim i As Integer,n As Integer'定义变量

03 i=Int((6*Rnd)+1)'获取1～6间的随机数

04 Randomize'初始化随机数

05 i=Int((6*Rnd)+1)'初始化后再次生成1～6间的随机数

06 n=i+1'向变量n赋值，该值为幻灯片的编号

07 With SlideShowWindows(1)

08.View.GotoSlide n'跳转到指定编号的幻灯片

09 End With

10 End Sub

3、复制标题页中的按钮，将其粘贴到第二张幻灯片中，然后在“属性”面板中更改控件的“Caption”属性值。

4、右击幻灯片中的按钮控件，选择快捷菜单中的选择“查看代码”命令。在打开的Visual Basic编辑器的代码窗口中为按钮添加Click事件响应程序。具体的程序代码如下。

01 Private Sub CommandButton1_Click()

02 With SlideShowWindows(1)

03 .View.GotoSlide 1'跳转到第一张幻灯片

04 End With

05 End Sub

5、将第二张幻灯片中的按钮复制到其后的幻灯片中，使用与步骤④相同的方法为这些按钮添加事件响应程序后，按“F5”键播放幻灯片，在标题页中单击“出题”按钮，PowerPoint将随机跳转到其后的一张幻灯片显示题目;单击题目页中的“回到首页”按钮，如图6所示，将跳转回出题页。

希望通过以上方法步骤大家可以学会制作随机播放PPT幻灯片的方法。

在ppt中vba都有哪些属性，类，方法

1.Application对象

该对象代表PowerPoint应用程序，通过该对象可访问PowerPoint中的其他所有对象。

(1)Active属性：返回指定窗格是否被激活。

(2)ActivePresentation属性：返回Presentation对象，代表活动窗口中打开的演示文稿。

(3)ActiveWindow属性：返回DocumentWindow对象，代表当前文档窗口。

(4)Presentations属性：返回Presentations集合，代表所有打开的演示文稿。

(5)SlideShowWindows属性：返回 SlideShowWindows集合，代表所有打开的幻灯片放映窗口。

(6)Quit方法：用于退出PowerPoint程序。

2.DocumentWindow对象

该对象代表文档窗口。使用“Windows(index) ”语法可返回DocumentWindow对象。

(1)ActivePane属性：返回Pane对象，代表文档窗口中的活动窗格。

(2)Panes属性：返回Panes集合，代表文档窗口中的所有窗格。

(3)ViewType属性：返回指定的文档窗口内的视图类型。[NextPage]

3.Presentation对象

该对象代表演示文稿，通过“Presentations(index)”语法可返回Presentation对象。

(1)BuiltInDocumentProperties属性：返回DocumentProperties集合，代表演示文稿的所有文档属性。

(2)ColorSchemes属性：返回ColorSchemes 集合，代表演示文稿的配色方案。

(3)PageSetup属性：返回PageSetup对象，用于控制演示文稿的幻灯片页面设置属性。

(4)SlideMaster属性：返回幻灯片母版对象。

(5)SlideShowSettings属性：返回SlideShowSettings对象，代表演示文稿的幻灯片放映设置。

(6)SlideShowWindow属性：返回幻灯片放映窗口对象。

(7)AddTitleMaster方法：为演示文稿添加标题母版。

(8)ApplyTemplate方法：对演示文稿应用设计模板。

4.SlideShowWindow对象

该对象代表幻灯片放映窗口。

IsFullScreen属性：用于设置是否全屏显示幻灯片放映窗口。[NextPage]

5.Master对象

该对象代表幻灯片母版、标题母版、讲义母版或备注母版。

TextStyles属性：为幻灯片母版返回TextStyles 集合，代表标题文本、正文文本和默认文本。

6.Slide对象

该对象代表幻灯片。

(1)SlideID属性：返回幻灯片的唯一标识符。

(2)SlideIndex属性：返回幻灯片在Slides集合中的索引号。

7.SlideShowView对象

该对象代表幻灯片放映窗口中的视图。

(1)AcceleratorsEnabled属性：用于设置是否允许在幻灯片放映时使用快捷键。

(2)CurrentShowPosition属性：返回当前幻灯片在放映中的位置。

(3)DrawLine方法：在指定幻灯片放映视图中绘制直线。

(4)EraseDrawing方法：用于清除通过DrawLine方法或绘图笔工具在放映中绘制的直线。

(5)GotoSlide方法：用于切换指定幻灯片。[NextPage]