user_eukyh 发表于 2010-1-27 14:23:49

＝＝。我正在吃饭

user_ckargefe 发表于 2010-1-27 14:59:58

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

ωo兠兠洧溏 发表于 2010-1-27 15:06:40

再试试这个：
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 发表于 2010-1-27 15:24:07

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

user_iimyx 发表于 2010-1-27 15:48:49

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

user_jmpic 发表于 2010-1-27 16:00:11

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

ueiee001 发表于 2010-1-27 16:02:21

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

gubingo 发表于 2010-1-27 16:07:12

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

user_fnnff 发表于 2010-1-27 16:07:14

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

262479710 发表于 2010-1-27 16:11:10

估计不是自动化的问题，可能是控件问题。
页: 1 [2] 3
查看完整版本: 请教：想要对幻灯片进行循环操作的代码怎么写？