puyoujie 发表于 2010-4-25 20:52:00

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

我是一个数学教师，经常用PPT做课件，但以下几点目前困惑中。务求大侠帮忙了。特别是VBA高手。务求公布代码哦。
以下效果如何实现？
1.如何实现单击某个图形或文本框，自动处于顶层。（便于拖移时看到，不至于遮挡）
2.单击某个几何图形，每单击一次顺或逆时针旋转一定角度，比如15度。旋转到理想角度后可以拖移到其他位置。（做拼图游戏很需要啊）。拜求！！
3.似乎组合后的元件不好动作设置里运行宏。我只好把组合另存为图片再导入，但有些包含透明图形的组合另存为后背景成了黑色，没有完美解决。

半支烟 发表于 2010-4-25 22:12:44

郁闷中，等了几天了，没有一个人回复哦。

smander 发表于 2010-4-25 23:40:19

不是很明白的意思
1、插入模块，写进代码
subtopshp（byval shp as shape）
      shp.top=0
      end shp
然后图形的动作设置 运行这个过程就OK了。

末世颓唐 发表于 2010-4-25 23:41:06

2 关于旋转角度的 跟1差不多 在模块里写入代码
Sub turnshp(ByVal shp As Shape)
shp.Rotation = shp.Rotation - 15   '每单击一次逆时针转15度，顺时针的话就改为+多少度
End Sub

ywz19840703 发表于 2010-4-25 23:52:06

3.至于旋转到某一角度 就可以拖动就比较复杂一点
等有空了再回复 下午还有课

pengshu 发表于 2010-4-26 00:03:19

存图片时，存为png格式
页: [1]
查看完整版本: 务求大侠帮忙了。特别是VBA高手。