ppt vba编程代码大全,请编一个在Powerpoint上运行的宏命令（VBA）代码，解决批量替换或删除多个PPT文件中指定字符的问题。

ppt vba编程代码大全,请编一个在Powerpoint上运行的宏命令（VBA）代码，解决批量替换或删除多个PPT文件中指定字符的问题。详细介绍

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

Sub ShowContent()
Dim i As Integer
Dim btn As Shape
' 循环遍历所有形状，找到其中的按钮
For Each btn In ActivePresentation.Slides(1).Shapes
If TypeName(btn) = "Button" Then
' 如果当前按钮是被选中的按钮，则显示其对应的内容
If btn.Selected Then
Set content = ActivePresentation.Slides(1).Shapes("Content")
content.Visible = True
End If
ElseIf TypeName(btn) = "GroupBox" Then
' 如果当前按钮是包含内容的组框，则显示其对应的内容
If btn.GroupItems.Count > 0 Then
Set content = btn.GroupItems(1).Placement.TopLeftCell.Offset(0, btn.Height + btn.Width / 2 - content.Height / 2).Shapes("Content")
content.Visible = True
End If
End If
Next btn
End Sub
在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 中插入您的图形按钮，并为每个按钮设置相应的名称或其他属性，以便在代码中进行识别。
当您在演示文稿中点击图形按钮时，对应的代码将执行，并根据按钮的名称或其他属性显示相应的内容。
希望这个示例能够帮助您实现您的需求。如果您有其他问题，请随时提问。

请编一个在Powerpoint上运行的宏命令（VBA）代码，解决批量替换或删除多个PPT文件中指定字符的问题。

这个只能靠自己。自己录制宏。首先打开一个ppt，开始录制，此后的每一步都会被宏记录进行查找替换或删除等工作后，停止录制。找另一个ppt验证一下。如果没问题了，就把宏放在文件打开时运行，这样没打开一个ppt，就自动运行然后关闭。也可以用宏关闭，这样只是打开一下就行了。不行就hi我。我尽力帮你
复制下面宏，使用时点击宏中的“批量替换”即可：
注意：使用前请把要替换的PPT文件复制到同一目录下，以便集中替换。
Sub 批量替换()
Dim ChangedCount As Integer
Dim FileName As String, Mask As String
Dim FindCount As Long
Dim CurPresentation As Presentation
Dim Path As String, FindString As String, ReplaceString As String
Dim oSld As Slide
Dim oShp As Shape
Dim oTxtRng As TextRange
Dim oTmpRng As TextRange

Path = InputBox("请输入路径名称：", "参数输入(1/3)")
FindString = InputBox("请输入查找文本：", "参数输入(2/3)")
ReplaceString = InputBox("请输入替换文本：", "参数输入(3/3)")
If Path = "" Or FindString = "" Or ReplaceString = "" Then
MsgBox "每个参数均不能为空！", vbCritical, "出错"
Exit Sub
End If
ChangedCount = 0
FindCount = 0
Mask = "*.ppt"
If Right(Path, 1) <> "\" Then Path = Path & "\"
FileName = Dir(Path & Mask)
On Error Resume Next
Err.Clear
Do Until FileName = ""
DoEvents
Set CurPresentation = Presentations.Open(FileName:=Path & FileName, ReadOnly:=msoFalse, WithWindow:=msoFalse)
For Each oSld In CurPresentation.Slides
For Each oShp In oSld.Shapes
Err.Clear
Set oTxtRng = oShp.TextFrame.TextRange
If Err.Number = 0 Then
Set oTmpRng = oTxtRng.Replace(FindWhat:=FindString, _
Replacewhat:=ReplaceString, MatchCase:=False, _
WholeWords:=True)
If oTmpRng Is Nothing Then oTxtRng = Replace(oTxtRng, FindString, ReplaceString, , , vbTextCompare)'解决中文无法替换问题（下同）
Do While Not oTmpRng Is Nothing
FindCount = FindCount + 1
Set oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, _
oTxtRng.Length)
Set oTmpRng = oTxtRng.Replace(FindWhat:=FindString, _
Replacewhat:=ReplaceString, MatchCase:=False, _
WholeWords:=True)
If oTmpRng Is Nothing Then oTxtRng = Replace(oTxtRng, FindString, ReplaceString, , , vbTextCompare)
Loop
End If
Next oShp
Next oSld
CurPresentation.Save
CurPresentation.Close
FileName = Dir
Loop
MsgBox "替换完毕！"
Close
End Sub

ppt宏里vb跳转代码

VBA宏代码,仅供参考:
sub ptxt()
pt = InputBox("输入:") '输入文字
With ActivePresentation.SlideShowSettings '播放幻灯片设置
.Run
End With
If pt = "王和感" Then '输入的内容,对应特定幻灯片
SlideShowWindows(Index:=1).View.GotoSlide Index:=115 '跳转到特定幻灯片115张
Else
end if
End sub

如何使用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幻灯片的方法。

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

代码如下：
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.PasteEnd Sub

幻灯片中如何使用VBA实现计时器功能

先计时，然后在用开始工作
外观自定义（比如做成C4的形状）:不懂这是什么意思
只做了下面这个要求,仅作参考吧:
随着触发某个事件的同时开始倒计时一定的秒数（比如5分钟）；能够在vba中调整其实际速度，譬如每显示跳了1秒而实际过了1100毫秒。
在窗体上放一个label1,一个commandbutton1
然后复制粘贴(要倒计时的话,改一下就可以了):
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Const InterVal = 100 '自定义的时间间隔
Private Sub CommandButton1_Click()
Static State As Boolean, myStop As Boolean
Dim preT As Long, curT As Long, myTime As Long
If State Then myStop = True: Exit Sub
CommandButton1.Caption = "停止"
State = True
preT = GetTickCount
Label = 0
Do
curT = GetTickCount
If curT - preT >= InterVal * (myTime + 1) Then
myTime = myTime + 1
Label1 = myTime
DoEvents
End If
Sleep (20)
Label2 = Time
DoEvents
If myStop Then
State = False
myStop = False
CommandButton1.Caption = "开始"
Exit Sub
End If
Loop
End Sub
最后在一个模块里加入一个宏:
Sub ShowForm()
'
' 宏由 XOoo 记录，日期: 2007-11-26
'
UserForm1.Show 0
End Sub

用VBA如何实现在PPT的幻灯片上制作功能键

用 shape 对象的集合对象的 EntryEffect 属性只能添加进入效果，如果要添加强调效果需要利用 slide 对象的 TimeLine 子对象的子对象的 AddEffect 方法，示例：
Dim shp2 As Shape'定义一个形状对象
Set shp2 = .Slides(2).Shapes("标题 1")'将要添加效果的形状对象赋值给定义的 shp2，幻灯片编号要自己改，形状的名称要自己改！
.Slides(2).TimeLine..AddEffect(shp2, )'在幻灯片 2 的动画序列中添加一个 Effect，针对 shp2 添加 Effect 且类型为 （波浪形），幻灯片编号要自己改！

在PPT中，用VBA编一个能让命令按纽变色的源代码。

背景色为灰色，字体为黑色 文字“播放”按钮A
背景色红色 字体为黑色 文字“播放”按钮B
在A的单击事件中设为A.visible=false B为TRUE
在PPT里插入一个CommandButton1的命令按钮，双击它，复制粘贴如下代码，放映时点击按钮会自动变颜色。（按钮字体颜色本来就是黑色吧）
Private Sub CommandButton1_Click()
If CommandButton1.BackColor = RGB(236, 233, 216) Then
CommandButton1.BackColor = vbRed
ElseIf CommandButton1.BackColor = vbRed Then
CommandButton1.BackColor = RGB(236, 233, 216)
End If
End Sub

PPT图表怎么用VBA控制修改数据源

以下是通过VBA修改PPT图表数据源源代码，原理就是获取图表后台Link的Excel对象，再操作该对象。
Visual Basic code?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

Sub PPT_ChangeChart()
With ActivePresentation.Slides(1)
Dim oChart As Chart
Dim oChartData As ChartData
Dim gWorkBook As Excel.Workbook
Dim gWorkSheet As Excel.Worksheet

''Chart对象
Set oChart = ActivePresentation.Slides(1).Shapes(1).Chart
Set oChartData = oChart.ChartData
oChartData.Activate
Set gWorkBook = oChartData.Workbook
Set gWorkSheet = gWorkBook.Worksheets("Sheet1")

gWorkSheet.Cells(2, 1).Value = "Product A"
gWorkSheet.Cells(3, 1).Value = "Product B"
gWorkSheet.Cells(4, 1).Value = "Product C"
gWorkSheet.Cells(5, 1).Value = "Product D"
gWorkSheet.Cells(6, 1).Value = "Product E"
gWorkSheet.ListObjects("Table1").Resize gWorkSheet.Range("A1:D6") '设置图标数据源区域

gWorkBook.Application.Quit
oChart.Refresh

Set gWorkSheet = Nothing
Set gWorkBook = Nothing
Set oChartData = Nothing
Set oChart = Nothing
End With
End Sub