Office中国论坛/Access中国论坛

标题: 【OneKeyTools源代码分享5】随机旋转 [打印本页]

---

作者: 只为设计    时间: 2016-6-16 09:46
标题: 【OneKeyTools源代码分享5】随机旋转

1. PowerPoint.Selection sel = app.ActiveWindow.Selection;
   
2.             if (sel.Type != PowerPoint.PpSelectionType.ppSelectionShapes)
   
3.             {
   
4.                 forms.MessageBox.Show("请选择至少1个形状");
   
5.             }
   
6.             else
   
7.             {
   
8.                 PowerPoint.ShapeRange range = sel.ShapeRange;
   
9.                 if (sel.HasChildShapeRange)
   
10.                 {
    
11.                     range = sel.ChildShapeRange;
    
12.                 }
    
13.                 else
    
14.                 {
    
15.                     range = sel.ShapeRange;
    
16.                 }
    
17.                 int count = range.Count;
    
18.                 if (count == 1)
    
19.                 {
    
20.                     if (range[1].Type == Office.MsoShapeType.msoGroup)
    
21.                     {
    
22.                         Random rand = new Random();
    
23.                         for (int i = 1; i <= range[1].GroupItems.Count; i++)
    
24.                         {
    
25.                             int ran1 = rand.Next(0, 360);
    
26.                             range[1].GroupItems[i].Rotation = (i - i + 1) * ran1;
    
27.                         }
    
28.                     }
    
29.                     else
    
30.                     {
    
31.                         Random rand = new Random();
    
32.                         int ran1 = rand.Next(0, 360);
    
33.                         range[1].Rotation = ran1;
    
34.                     }
    
35.                 }
    
36.                 else if (count >= 2)
    
37.                 {
    
38.                     Random rand = new Random();
    
39.                     for (int i = 1; i <= range.Count; i++)
    
40.                     {
    
41.                         int ran1 = rand.Next(0, 360);
    
42.                         range[i].Rotation = (i - i + 1) * ran1;
    
43.                     }
    
44.                 }
    
45.             }

复制代码

上一篇：OK插件综合运用之绚丽线条   下一篇：【OneKeyTools源代码分享6】删除备注

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3