自选图形的艺术组合——圆形
2011-01-02 23:23
162 查看
PowerPoint借助VBA绘图是件轻松愉快的事。当你用几行简单代码绘出超酷图形在你玩其它高级语言的哥们儿面前炫耀时,他们定会对你刮目相看。
相对其它高级语言,VBA的绘图优势在于它不需要大量的绘图函数,你要做只是对PPT的各种图形对象进行摆放。简单的,手工完成;繁琐的,交VBA完成。
实例:圆环的艺术组合
最终效果图
实例描述
将一个半径为R的圆周等分成 n 份,再以每个等分点为圆心以R为半径画n个圆。
算法介绍
计算等分点其实就是根据圆的参数方程求出等分点的坐标,即:
X=RCos(θ)
Y=RSin(θ)
该参数方程经常用于绘图及动画轨迹的计算。例如地球、月球的公转等。
操作步骤:
1.新建一空白幻灯片。插入一个正圆,大小任意,无填充。
2.按Alt+F11,打开VBA编程器,插入模块,加入下列代码:
Sub CirqueArt()
Dim i As Integer
Dim sName As String
Dim rRadius As Single, rAngle As Double
Dim x As Double, y As Double
With ActivePresentation.Slides(1)
rRadius = .Shapes("m").Width / 2
For i = 1 To 44
rAngle = i
x = .Shapes("m").Left + rRadius * Cos(rAngle) - .Shapes("m").Width / 2
y = .Shapes("m").Top - rRadius * Sin(rAngle) - .Shapes("m").Width / 2
sName = i
.Shapes("m").Duplicate.Name = sName
.Shapes(sName).Left = rRadius + x
.Shapes(sName).Top = rRadius + y
Next
.Shapes("m").Visible = msoFalse
End With
End Sub
' 运行前将宏案例级别设为“低”
3.按Alt+F8,运行 CirqueArt
举一反三
用圆可以组合出各种艺术图形,有些看似复杂,其实简单。一个程序有时只要改变一下参数就可能收到意想不到的艺术效果。
相对其它高级语言,VBA的绘图优势在于它不需要大量的绘图函数,你要做只是对PPT的各种图形对象进行摆放。简单的,手工完成;繁琐的,交VBA完成。
实例:圆环的艺术组合
最终效果图
实例描述
将一个半径为R的圆周等分成 n 份,再以每个等分点为圆心以R为半径画n个圆。
算法介绍
计算等分点其实就是根据圆的参数方程求出等分点的坐标,即:
X=RCos(θ)
Y=RSin(θ)
该参数方程经常用于绘图及动画轨迹的计算。例如地球、月球的公转等。
操作步骤:
1.新建一空白幻灯片。插入一个正圆,大小任意,无填充。
2.按Alt+F11,打开VBA编程器,插入模块,加入下列代码:
Sub CirqueArt()
Dim i As Integer
Dim sName As String
Dim rRadius As Single, rAngle As Double
Dim x As Double, y As Double
With ActivePresentation.Slides(1)
rRadius = .Shapes("m").Width / 2
For i = 1 To 44
rAngle = i
x = .Shapes("m").Left + rRadius * Cos(rAngle) - .Shapes("m").Width / 2
y = .Shapes("m").Top - rRadius * Sin(rAngle) - .Shapes("m").Width / 2
sName = i
.Shapes("m").Duplicate.Name = sName
.Shapes(sName).Left = rRadius + x
.Shapes(sName).Top = rRadius + y
Next
.Shapes("m").Visible = msoFalse
End With
End Sub
' 运行前将宏案例级别设为“低”
3.按Alt+F8,运行 CirqueArt
举一反三
用圆可以组合出各种艺术图形,有些看似复杂,其实简单。一个程序有时只要改变一下参数就可能收到意想不到的艺术效果。
相关文章推荐
- word的图片和自选图形组合问题
- QT中QPainter的使用及矩形、圆形等常见图形的画法
- C#实现图形区域组合操作的方法
- 3.第二单元任务五实训:通过程序设计几何图形接口(Shape),实现类矩形(Rectangle)、圆形(Circle)、正方形(Square)几种类型,能够利用接口和多态性计算几何图形的面积和周长并显
- 关于 “自选图形”
- 纯CSS画的基本图形(矩形、圆形、三角形、多边形、爱心、八卦等)
- 汇编语言的艺术(组合语言的艺术):第二节 工作环境
- QT画图教程5:QT中QPainter的使用及矩形、圆形等常见图形的画法
- 纯CSS画的基本图形(矩形、圆形、三角形、多边形、爱心、八卦等),里面很多涉及到CSS3的一些属性。
- html5绘制基本图形-圆形
- 程序设计几何图形、矩形、圆形、正方形几种类型, 能够利用接口和多态性计算几何图形的面积和周长并显示。
- 纯CSS画的基本图形(矩形、圆形、三角形、多边形、爱心、八卦等)
- 第七周项目2-自选图形用户界面程序开发
- ANDROID实现圆形图形不断旋转的动画
- Oak先生-SurfaceView模拟游戏组合图形移动动画
- C++ 递归艺术----求任意集合的幂集组合和子集合的总个数
- 求N选M的组合和求全排列的巧妙算法 - 算法艺术 - Hello, busycai!
- 【转】纯CSS画的基本图形(矩形、圆形、三角形、多边形、爱心、八卦等),NB么
- 【转】纯CSS画的基本图形(矩形、圆形、三角形、多边形、爱心、八卦等)
- 汇编语言的艺术(组合语言的艺术):第三节 处理对象