如何完成按某键后，使某图片变化？

zgr0123 · 发表于 2004-4-28 15:14

有一幻灯片，其上有一图片：1.jpg。

要求：按一次Shift键，（也可以是其它键，如：Caps Lock Ctrl Alt 等），1.jpg换成 2.jpg，

再按一次Shift键，2.jg 又换成 1.jpg。达到来回切换的目的。

请给出代码为感！！！！ :)

[em06]

[此贴子已经被作者于2004-4-28 15:14:15编辑过]

wenz · 发表于 2004-4-28 19:58

这段代码在Excel 中通过,但Powerpoint中不行,原因我一直没有彻底弄清. Dim i As Integer Private Sub Image1_Click() i = i + 1 Image1.Picture = LoadPicture("e:\myweb\" & i & ".gif") End Sub 可以这么折衷: 每个片子上放一个图片,可以不放别的东西,在图片上做链接到下一张图片,依次做完,取消"单击鼠标换页"(在幻灯片放映\幻灯片切换中)播放时,只要点击图片或按空格键,就会按你定的顺序打开下一张,

zgr0123 · 发表于 2004-4-29 09:37

谢了！我去414。:)

星梦天使 · 发表于 2004-4-29 20:41

我以前从来没想过,excl,word,PP,还有这么大的用处,呵呵.

好好学习,天天向上,呵呵

aaaaabbbbb · 发表于 2004-5-29 22:48

以下是引用zgr0123在2004-4-28 15:14:00的发言：

有一幻灯片，其上有一图片：1.jpg。

要求：按一次Shift键，（也可以是其它键，如：Caps Lock Ctrl Alt 等），1.jpg换成 2.jpg，

再按一次Shift键，2.jg 又换成 1.jpg。达到来回切换的目的。

请给出代码为感！！！！ :)

[em06]

简单的事情还是用简单的方法解决,最好不要人为地想复杂了.

吃好饭 · 发表于 2004-5-31 23:05

根本用不到代码，使用触发器就完全可以实现。

其实只要先按一下，出现A，不消失；再按一下，出现B，覆盖于A上，再按一下，消失（也就是出现A）

		自动登录	找回密码
密码			免费注册