务求大侠帮忙了。特别是VBA高手。

daibi520 发表于: 2010-4-25 20:52 来源: 扑奔PPT网

我是一个数学教师，经常用PPT做课件，但以下几点目前困惑中。务求大侠帮忙了。特别是VBA高手。务求公布代码哦。

以下效果如何实现？
1.如何实现单击某个图形或文本框，自动处于顶层。（便于拖移时看到，不至于遮挡）
2.单击某个几何图形，每单击一次顺或逆时针旋转一定角度，比如15度。旋转到理想角度后可以拖移到其他位置。（做拼图游戏很需要啊）。拜求！！
3.似乎组合后的元件不好动作设置里运行宏。我只好把组合另存为图片再导入，但有些包含透明图形的组合另存为后背景成了黑色，没有完美解决。

[ 本帖最后由 daibi520 于 2010-4-25 20:55 编辑 ]

大家对务求大侠帮忙了。特别是VBA高手。的评论

daibi520 发表于 2010-4-28 19:36:38: 郁闷中，等了几天了，没有一个人回复哦。
wang-way 发表于 2010-9-03 13:10:21: 不是很明白的意思
1、插入模块，写进代码
sub  topshp（byval shp as shape）
   shp.top=0
   end shp
然后图形的动作设置运行这个过程就OK了。
wang-way 发表于 2010-9-03 13:14:47: 2 关于旋转角度的跟1差不多在模块里写入代码
Sub turnshp(ByVal shp As Shape)
shp.Rotation = shp.Rotation - 15 '每单击一次逆时针转15度，顺时针的话就改为+多少度
End Sub
wang-way 发表于 2010-9-03 13:15:54: 3.至于旋转到某一角度就可以拖动就比较复杂一点
等有空了再回复下午还有课
w12345678 发表于 2010-9-04 21:47:25: 存图片时，存为png格式