<<< 返回 access911.net 编程静态资料库索引页

如何在Excel2003的工作表中加入标尺功能,以厘米为单位?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2011-12-12  浏览人次:1119


专题地址:http://access911.net/fixhtm/72FABF1E17DCE6F3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


问题:

如何在Excel2003的工作表中加入标尺功能,以厘米为单位?
Excel 2010 中本身就有标尺功能,EXCEL 2003 中如何加入呢?

 

回答:

Sub MakeRuler_cm()
'以厘米为单位,在sheet中创建一个标尺,而且该标尺不是图片,是形状组合。    
    Const Ruler_Width As Double = 17    'Width 17 cm
    Const Ruler_Height As Double = 17   'Height 17 cm
    
    Dim i As Long
    Dim l As Long
    Dim x As Long
    Dim y As Long
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim ws2 As Worksheet
    Dim x2 As Double
    Dim y2 As Double
    Dim s1 As Object
    Dim s2 As Object
    Dim dblCentimetersToPointsRate As Double
   .....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FABF1E17DCE6F3.htm

 


上一篇:Excel中如何返回差集

下一篇:如何让EXCEL中对象的OnAction可以直接调用ComAddIn Dll文件中指定类的指定函数?

2017年2月22日生成静态资料