自选图形的艺术组合——圆形

        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


        举一反三
       用圆可以组合出各种艺术图形，有些看似复杂，其实简单。一个程序有时只要改变一下参数就可能收到意想不到的艺术效果。