ppt控件问题（求助，谢谢）--以解决

dianchao

当单击一个button 按钮时，）执行关闭ppt，退出ppt程序的命令，请问如何实现，谢谢大侠指教


(谢谢7#的老师，以解决)

[ 本帖最后由 dianchao 于 2010-6-27 23:09 编辑 ]

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

dianchao

学习一下再发贴

chuhaiou

录制宏试试

dianchao

谢谢你的建议，我试了不行，可能我水平很菜吧，那个宏在ppt中不好录制

qianlan

Private Sub CommandButton1_Click()
    Dim app As Object
     Set app = CreateObject("Powerpoint.Application")
      app.Quit  
    Set app = Nothing
End Sub

dianchao

我的天那，简直就是高手，中了， 太谢谢您了

dianchao

请问一下您的那段代码什么意思，为什么要那样写，可不可以教一下？谢谢了
下面是我写的代码，为什么不能运行，问题出哪了，请指教一下

  ActiveWindow.Selection.SlideRange.Shapes("CommandButton1").Select
    ActivePresentation.Save

Sub Macro2()
'
'

    ActiveWindow.Selection.SlideRange.Shapes("CommandButton1").Select
    With ActivePresentation.SlideShowSettings
        .ShowType = ppShowTypeSpeaker
        .LoopUntilStopped = msoFalse
        .ShowWithNarration = msoTrue
        .ShowWithAnimation = msoTrue
        .RangeType = ppShowAll
        .AdvanceMode = ppSlideShowUseSlideTimings
        .PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
        .Run
    End With
    SlideShowWindows(Index:=1).View.Exit
End Sub

Private Sub command1click()
Close
End Sub

这些代码为什么不能运行，我也想好好学习一下vba，请不吝赐教