关于EXCEL单元格绘图边框如何实线化

ymcui2005

关于lisp输出EXCEL单元格绘图边框如何实线化

qqqincccken

这挺高深的期待高人作答

st788796

2. 
   
3. (setq app (vlax-get-or-create-object "excel.application"))
   
4. (setq acSht (vlax-get app 'ActiveSheet))
   
5. (setq range (vlax-get acSht 'Usedrange))
   
6. (setq borders (vlax-get range 'Borders))
   
7. 
   
8. (vlax-put-property
   
9.   (vlax-get-property borders 'Item 1);_竖线
   
10.   'Linestyle
    
11.   1
    
12. )
    
13. (vlax-put-property
    
14.   (vlax-get-property borders 'Item 2);_Right边线
    
15.   'Linestyle
    
16.   1
    
17. )
    
18. 
    
19. (vlax-put-property
    
20.   (vlax-get-property borders 'Item 3);_横线
    
21.   'Linestyle
    
22.   1
    
23. )
    
24. 
    
25. (vlax-put-property
    
26.   (vlax-get-property borders 'Item 4);_底部边线
    
27.   'Linestyle
    
28.   0
    
29. )
    
30. 
    
31. (vlax-put-property
    
32.   (vlax-get-property borders 'Item 5);_右斜线
    
33.   'Linestyle
    
34.   0
    
35. )
    
36. 
    
37. (vlax-put-property
    
38.   (vlax-get-property borders 'Item 6);_左斜线
    
39.   'Linestyle
    
40.   0
    
41. )
    
42. (vlax-put-property
    
43.   (vlax-get-property borders 'Item 7);_Left边线
    
44.   'Linestyle
    
45.   1
    
46. )
    
47. 
    
48. (vlax-put-property
    
49.   (vlax-get-property borders 'Item 8);_Top边线
    
50.   'Linestyle
    
51.   1
    
52. )

<br /> (setq app (vlax-get-or-create-object "excel.application"))<br /> (setq acSht (vlax-get app 'ActiveSheet))<br /> (setq range (vlax-get acSht 'Usedrange))<br /> (setq borders (vlax-get range 'Borders))<br /> <br /> (vlax-put-property<br />   (vlax-get-property borders 'Item 1);_竖线<br />   'Linestyle<br />   1<br /> )<br /> (vlax-put-property<br />   (vlax-get-property borders 'Item 2);_Right边线<br />   'Linestyle<br />   1<br /> )<br /> <br /> (vlax-put-property<br />   (vlax-get-property borders 'Item 3);_横线<br />   'Linestyle<br />   1<br /> )<br /> <br /> (vlax-put-property<br />   (vlax-get-property borders 'Item 4);_底部边线<br />   'Linestyle<br />   0<br /> )<br /> <br /> (vlax-put-property<br />   (vlax-get-property borders 'Item 5);_右斜线<br />   'Linestyle<br />   0<br /> )<br /> <br /> (vlax-put-property<br />   (vlax-get-property borders 'Item 6);_左斜线<br />   'Linestyle<br />   0<br /> )<br /> (vlax-put-property<br />   (vlax-get-property borders 'Item 7);_Left边线<br />   'Linestyle<br />   1<br /> )<br /> <br /> (vlax-put-property<br />   (vlax-get-property borders 'Item 8);_Top边线<br />   'Linestyle<br />   1<br /> )

st788796

XlBordersIndex can be one of these XlBordersIndex constants.

xlDiagonalDown 5

xlDiagonalUp 6

xlEdgeBottom 4

xlEdgeLeft 7

xlEdgeRight 2

xlEdgeTop 8

xlInsideHorizontal 3

xlInsideVertical 1