代码解析:MynzMoveShape过程实现移动、旋转工作表中的图片并不断改变其填充的前景色。
通过代码分别给三个图形:
① 设置图片的Top属性值,应用于Shape对象的Top属性设置图形的顶端到工作表顶端的距离。在循环的过程中使用Sin函数将Top属性值设置为一个圆形的弧度值。
② 设置图片的Left属性值,应用于Shape对象的Left属性设置图形从左边界至 A 列左边界(在工作表中)或图表区左边界(在图表工作表中)的距离。在循环的过程中使用Cos函数将Left属性值设置为一个圆形的弧度值。
③ 代码设置图片填充的前景色随着循环的过程不断的变化。使用Fill属性返回一个FillFormat对象,FillFormat对象代表图形的填充格式,其ForeColor 属性设置对象填充的前景色。
其中使用DoEvents函数转让控制权,否则达不到预计的视觉效果。
运行MynzMoveShape过程过程,工作表的图形在自身进行逆时针方向旋转的同时沿着一个圆形的弧度进行移动,并不断改变其填充的颜色。
运行前:
运行1:
运行2:
这样就是实现了我们的目的,由于上面的旋转角度和移动的速度我没有做特别的计算,只是给出了数值,实现我移动旋转即可,读者在实际的应用中可以根据实际的需要来设定这些参数。
今日内容回向:
1 如何实现图形的移动?
2 如何实现图形的旋转?