|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 hhjjpp 于 2016-12-5 14:23 编辑
想修改ppt当中文本框中的文字, 单独运行Macro1代码是没问题的。
但在CommandButton1_Click事件中,ActiveWindow出错;ActivePresentation.Slides(1).SlideRange.Shapes("副标题 2").Text = "幸运大抽奖活动"都被制止,究竟ppt当中shapes的父对象是什么?
- Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '参数是长整形(毫秒数)。Lib “kernel32”标明这个函数是引用kernel32.dll提供的函数。Kernel32.dll是windows的四个核心库之一。是用来延时n毫秒的?
- Dim f As Boolean '将循环控制变量f定义为共享变量很重要!否则停止按钮将失效!
- Private Sub CommandButton1_Click()
- ActivePresentation.Slides(1).SlideRange.Shapes("副标题 2").Text = "幸运大抽奖活动" '显示方法和数据成员未找到'.TextRange
- f = False
- If Me.CommandButton1.Caption = "停止" Then
- Me.CommandButton1.Caption = "开始"
- f = True
- Else
- Me.CommandButton1.Caption = "停止"
- TextBox2.Text = ""
- Do
- If f Then Exit Do
- TextBox2.Text = Int(Rnd * 50) + 1
- Sleep 30
- DoEvents
- Loop
- ActiveWindow.Selection.SlideRange.Shapes("副标题 2").Select '显示错误there is no currently active document window.
- ActiveWindow.Selection.TextRange.Text = "幸运大抽奖活动"
- End If
- End Sub
- Sub Macro1()
- ActiveWindow.Selection.SlideRange.Shapes("副标题 2").Select
- ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Text = "幸运大抽奖活动"
- End Sub
复制代码
|
|