【OneKeyTools源代码分享4】二等分线

只为设计

有时候我们需要在PPT中自定义一些固定的参考线。比如二等分线、黄金分割线、三等分线等。借助编程可以很容易实现。
下面的代码是OneKeyTools中“分割线”→“二等分线”的源代码。

【基本代码】↓

1. PowerPoint.Slide slide = app.ActiveWindow.View.Slide;
   
2. PowerPoint.Selection sel = app.ActiveWindow.Selection;
   
3. if (sel.Type == PowerPoint.PpSelectionType.ppSelectionNone)
   
4. {
   
5. float swidth = app.ActivePresentation.PageSetup.SlideWidth;
   
6. float sheight = app.ActivePresentation.PageSetup.SlideHeight;
   
7. PowerPoint.Shape line1 = slide.Shapes.AddLine(swidth * 0.5f, 0, swidth * 0.5f, sheight);
   
8. PowerPoint.Shape line2 = slide.Shapes.AddLine(0, sheight * 0.5f, swidth, sheight * 0.5f);
   
9. line1.Visible = Office.MsoTriState.msoTrue;
   
10. line2.Visible = Office.MsoTriState.msoTrue;
    
11. line1.Name = "line01";
    
12. line2.Name = "line01";
    
13. if (slide.Background.Fill.ForeColor.RGB > 255 + 200 * 256 + 200 * 256 * 256)
    
14. {
    
15. line1.Line.ForeColor.RGB = 0;
    
16. line2.Line.ForeColor.RGB = 0;
    
17. }
    
18. else
    
19. {
    
20. line1.Line.ForeColor.RGB = 255 + 255 * 256 + 255 * 256 * 256;
    
21. line2.Line.ForeColor.RGB = 255 + 255 * 256 + 255 * 256 * 256;
    
22. }
    
23. line1.Line.DashStyle = Office.MsoLineDashStyle.msoLineDash;
    
24. line2.Line.DashStyle = Office.MsoLineDashStyle.msoLineDash;
    
25. }
    

复制代码

【代码分析】↓

1. PowerPoint.Slide slide = app.ActiveWindow.View.Slide;
   
2. float swidth = app.ActivePresentation.PageSetup.SlideWidth;
   
3. float sheight = app.ActivePresentation.PageSetup.SlideHeight;

复制代码

↑这段代码是获取PPT幻灯片页面的宽度和高度，用于算二等分线的具体坐标。

1. PowerPoint.Shape line1 = slide.Shapes.AddLine(swidth * 0.5f, 0, swidth * 0.5f, sheight);
   
2. PowerPoint.Shape line2 = slide.Shapes.AddLine(0, sheight * 0.5f, swidth, sheight * 0.5f);

复制代码

↑这段代码是往页面中添加二等分线。其中AddLine(起始x坐标，起始y坐标，终止x坐标，终止y坐标)。

1. if (slide.Background.Fill.ForeColor.RGB > 255 + 200 * 256 + 200 * 256 * 256)

复制代码

↑这个判断，是判断幻灯片背景的颜色，如果深色就用白色线；如果背景浅，就用黑色线

1. line1.Name = "line01";
   
2. line2.Name = "line01";

复制代码

↑这是对横竖两条二等分线进行命名，方便后面做删除功能。

上一篇：【PPT纹理】磨砂+牛仔布料+纸质纹理      下一篇：PPT裁图变形1

Xy平面坐标系

来顶顶~

tmtony

谢谢分享！