请教：想要对幻灯片进行循环操作的代码怎么写？

user_eukyh

＝＝。我正在吃饭

user_ckargefe

真不好意思，打扰您了！
过些时间，再向您请教，祝您快乐！！！

ωo兠兠洧溏

再试试这个：
Sub onSlideShowPageChange(wn As SlideShowWindow)
    Dim i As Integer
    For i = 1 To wn.View.Slide.Shapes.Count
        wn.View.Slide.Shapes(TextBox & i).OLEFormat.Object.Text = Chr(64 + i)
    Next   
End Sub

user_oyyzq

我这里试用有些困难，版主可否以附件赐教，谢谢！

user_iimyx

我在你源文件测试时成功的啊

user_jmpic

６＃的代码是每张幻灯片上仅有ＴＥＸＴＢＯＸ控件时好使，１３＃的代码每张幻灯片多种对象时也好使！！你的怎么回事？？

ueiee001

版主请看看，我这再发附件给您，我是从工具菜单－－宏　进入，怎么在对话框中看不到您那个宏的名字？谢谢。
如果您那里没问题，请从您那里再把附件发还给我看看，行吗？有劳您了！

help3.rar (22.07 KB, 下载次数: 48)

2016-4-11 08:18 上传

点击文件名下载附件

gubingo

我这里运行很正常啊，不用手工运行宏的，我给你的代码是自动化宏！

user_fnnff

我这里可能是没法用自动化宏了，我想是我自己太菜了...
版主，您可否提供一个手动的代码，当我把它做成菜单上的按钮后，可以被执行达成想要的效果。谢谢!!!

262479710

估计不是自动化的问题，可能是控件问题。