如何在PowerPoint中用VBA实现总是在最后面新建一张幻灯片，并且在新建的幻灯片中粘贴剪切板中的内容？

如何在PowerPoint中用VBA实现总是在最后面新建一张幻灯片，并且在新建的幻灯片中粘贴剪切板中的内容？很多朋友对这方面很关心，效率ppt整理了相关文章，供大家参考，一起来看一下吧！

本文目录一览：

• 1、求教 请问在PPT中能否通过在VBA里写宏实现切换到某页幻灯片时，自动播放受触发器控制的动画？
• 2、如何在PowerPoint中用VBA实现总是在最后面新建一张幻灯片，并且在新建的幻灯片中粘贴剪切板中的内容？
• 3、在Ms office PPT2013中，用VBA实现点击图形按钮显示对应内容，且可以点击其他图形按钮切换内容？

求教 请问在PPT中能否通过在VBA里写宏实现切换到某页幻灯片时，自动播放受触发器控制的动画？

做了个演示文稿，中间做了一张幻灯片，用来播放一段电影。这个电影需要在好几个幻灯片中都要展示引用，又不想多做几张这个电影的幻灯片，就开始想能不能用这个一张幻灯片来解决所有问题呢？如果用ppt中默认的几种 超级链接 方式，都达不到预定的效果，那就是电影播放后，点一下这张幻灯片上唯一的一个按钮必须返回刚才的幻灯片。我也看到了，很多人在设计时，为了解决这个问题，在有电影的幻灯片下，竟然设置了多个按钮，以返回不同的上一个幻灯片。我通过研究，终于发现，用vba可以轻松解决这个问题，即使是50张幻灯片都来引用也没有问题。
放上制作好的图片：
[转载]巧用vba在ppt中灵活切换幻灯片X
步骤：1.制作好，多次引用的那张幻灯片。（我的是放电影的那张，就是第13张幻灯片）记住这张幻灯片的序号，在普通视图下看，即上图左边图圈1那部分序号。
2.利用控件箱，在这张幻灯片上放一个按钮，双击这个按钮，进入vba代码编辑窗口，把下面这段代码粘入其中：
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.GotoSlide m
End Sub
也就是上图中的3部分。这段代码的意思就是单击按钮时，切换到第m张幻灯片。m的值在其他引用的按钮中设置。
3.通过控件箱，分别在另外几张你需要引用这个电影的幻 灯片上，插入按钮。并双击按钮进入vba代码编辑窗口，给每个按钮分别写入代码。当然你可以把下面的代码粘入即可。
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.GotoSlide 13
m = 5
End Sub
这段代码的意思就是单击按钮时，切换到第13张幻灯片，同时m设置为5。第13张幻灯片就是我的有电影的那张。
在每个按钮的代码中，你需要改变的只是m后的数字。如何改动呢?很容易，这个按钮在第几张幻灯片上，这个数字就设置为几（这个数字在普通视图下很容易看到，如圈1中的数字）。目的是让放置电影的那个多次引用的幻灯片，一会能通过这个数字返回来。
另一个按钮的代码：
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.GotoSlide 13
m = 8
End Sub
4.插入一个类模块，在里面声明一个公共变量m，可以在各段代码中引用这个变量。
即上图中标6的地方。
你可以把下面这段代码复制使用。
Public m As Integer
好了，下面你就可以放映你的演示文稿了，尽情切换吧！好爽！哦，对了，为了不影响最后的美观，你可以把这个公共引用的幻灯片设置为隐藏。

当然，如果你不想用vba来操作，也可以在多次引用的这张幻灯片上，放一个图形，然后通过“动作”设置，来链接到“最近的幻灯片”上，就可以了。做了个演示文稿，中间做了一张幻灯片，用来播放一段电影。这个电影需要在好几个幻灯片中都要展示引用，又不想多做几张这个电影的幻灯片，就开始想能不能用这个一张幻灯片来解决所有问题呢？如果用ppt中默认的几种超级链接方式，都达不到预定的效果，那就是电影播放后，点一下这张幻灯片上唯一的一个按钮必须返回刚才的幻灯片。我也看到了，很多人在设计时，为了解决这个问题，在有电影的幻灯片下，竟然设置了多个按钮，以返回不同的上一个幻灯片。我通过研究，终于发现，用vba可以轻松解决这个问题，即使是50张幻灯片都来引用也没有问题。
放上制作好的图片：
[转载]巧用vba在ppt中灵活切换幻灯片X
步骤：1.制作好，多次引用的那张幻灯片。（我的是放电影的那张，就是第13张幻灯片）记住这张幻灯片的序号，在普通视图下看，即上图左边图圈1那部分序号。
2.利用控件箱，在这张幻灯片上放一个按钮，双击这个按钮，进入vba代码编辑窗口，把下面这段代码粘入其中：
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.GotoSlide m
End Sub
也就是上图中的3部分。这段代码的意思就是单击按钮时，切换到第m张幻灯片。m的值在其他引用的按钮中设置。
3.通过控件箱，分别在另外几张你需要引用这个电影的幻 灯片上，插入按钮。并双击按钮进入vba代码编辑窗口，给每个按钮分别写入代码。当然你可以把下面的代码粘入即可。
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.GotoSlide 13
m = 5
End Sub
这段代码的意思就是单击按钮时，切换到第13张幻灯片，同时m设置为5。第13张幻灯片就是我的有电影的那张。
在每个按钮的代码中，你需要改变的只是m后的数字。如何改动呢?很容易，这个按钮在第几张幻灯片上，这个数字就设置为几（这个数字在普通视图下很容易看到，如圈1中的数字）。目的是让放置电影的那个多次引用的幻灯片，一会能通过这个数字返回来。
另一个按钮的代码：
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.GotoSlide 13
m = 8
End Sub
4.插入一个类模块，在里面声明一个公共变量m，可以在各段代码中引用这个变量。
即上图中标6的地方。
你可以把下面这段代码复制使用。
Public m As Integer
好了，下面你就可以放映你的演示文稿了，尽情切换吧！好爽！哦，对了，为了不影响最后的美观，你可以把这个公共引用的幻灯片设置为隐藏。

当然，如果你不想用vba来操作，也可以在多次引用的这张幻灯片上，放一个图形，然后通过“动作”设置，来链接到“最近的幻灯片”上，就可以了。
VBA是非常流行的应用程序开发语言VISUAL BASIC的子集。在ppt中想要实现编程效果,我们可以使用vba实现。那么具体怎么操作呢?下面就是PPT使用VBA代码编程的教程，一起了解一下。

1、打开ppt，在上面的工具栏中找到【开发工具】并点击。

PPT使用VBA代码编程的教程 PPT使用VBA代码编程的方法

2、点击过后就可以看到VBA命令按钮了。(如图)

PPT使用VBA代码编程的教程 PPT使用VBA代码编程的方法

3、点击VBA命令按钮，会弹出一个窗口。(如图)

PPT使用VBA代码编程的教程 PPT使用VBA代码编程的方法

4、单击【演示文稿】找到【插入】中的【用户窗体】并点击，在这里就可以加入各种类型了。

PPT使用VBA代码编程的教程 PPT使用VBA代码编程的方法

5、完成后，我们就可以找到工具栏中的“||”图标进行运行测试。

PPT使用VBA代码编程的教程 PPT使用VBA代码编程的方法

6、测试过后，我们就可以在工具栏中找到各种命令了。

PPT使用VBA代码编程的教程 PPT使用VBA代码编程的方法

上面就是PPT使用VBA代码编程的教程

如何在PowerPoint中用VBA实现总是在最后面新建一张幻灯片，并且在新建的幻灯片中粘贴剪切板中的内容？

代码如下：
效率ppt

Sub Test()
Dim pptSlide As Slide
    Dim pptLayout As CustomLayout
    Set pptLayout = ActivePresentation.Slides(1).CustomLayout
    Set pptSlide = ActivePresentation.Slides.AddSlide(ActivePresentation.Slides.Count + 1, pptLayout)
    ActivePresentation.Slides(ActivePresentation.Slides.Count).Shapes.Paste
End Sub

在Ms office PPT2013中，用VBA实现点击图形按钮显示对应内容，且可以点击其他图形按钮切换内容？

效率ppt(https://www.xlppt.com)小编还为大家带来在Ms office PPT2013中，用VBA实现点击图形按钮显示对应内容，且可以点击其他图形按钮切换内容？的相关内容。

在Microsoft Office PowerPoint 2013中，您可以使用VBA（Visual Basic for Applications）编写代码来实现点击图形按钮显示对应内容并切换内容的功能。以下是一个示例代码，演示了如何实现这一功能：
首先，打开 PowerPoint 2013，并按下 ALT + F11 组合键打开 VBA 编辑器。在左侧的项目资源管理器窗口中，双击 "ThisPresentation" 以打开该演示文稿的代码窗口。
在代码窗口中，输入以下代码：
Option Explicit

Private Sub Shape_Click()
Dim clickedShape As Shape
Set clickedShape = ActiveWindow.Selection.ShapeRange(1)

' 根据点击的图形按钮的名称或其他属性，执行相应的操作
Select Case clickedShape.Name
Case "Button1" ' 第一个按钮
' 在此处添加显示对应内容的代码
MsgBox "点击了按钮1"

Case "Button2" ' 第二个按钮
' 在此处添加显示对应内容的代码
MsgBox "点击了按钮2"

' 添加更多按钮的处理逻辑

End Select
End Sub

在代码中，我们使用了 Shape_Click 事件处理程序来捕捉点击图形按钮的事件。在事件处理程序中，我们首先获取被点击的图形按钮，然后使用 Select Case 语句来根据按钮的名称或其他属性执行相应的操作。您可以根据实际情况修改 Select Case 语句的条件和操作，以实现您需要的功能。
请注意，您需要将代码中的 "Button1" 和 "Button2" 替换为您实际使用的图形按钮的名称或其他属性。
完成代码编写后，保存并关闭 VBA 编辑器。然后，在 PowerPoint 中插入您的图形按钮，并为每个按钮设置相应的名称或其他属性，以便在代码中进行识别。
当您在演示文稿中点击图形按钮时，对应的代码将执行，并根据按钮的名称或其他属性显示相应的内容。
希望这个示例能够帮助您实现您的需求。如果您有其他问题，请随时提问。

以上就是效率ppt为大家带来的如何在PowerPoint中用VBA实现总是在最后面新建一张幻灯片，并且在新建的幻灯片中粘贴剪切板中的内容？，希望能帮助到大家！更多相关文章关注效率ppt：www.xlppt.com

免责声明：文章内容来自网络，如有侵权请及时联系删除。