精确设置列宽、行高 单元格适应图片，正方形单元格

chengfenglin

好难啊，楼主真是厉害啊

zblkf

确实是牛人。我辈只能仰视。

古龙

但请问楼主，如果要批量适合又应该如何呢

szhtct

云里雾里。。。

fgwei

好教程，谢谢

fanxp

这种钻研的精神值得学习！

Hugh_ZHU

en 楼主好文章

donghan

谢谢，斑竹的东西就是好

nicai888

深入浅出，经典讲座，谢谢了

linyancheng

看了樓主的理論，讓我重新設計出一個自訂函數：

Public Function 欄寬(欄寬公分數 As Variant) As Variant

    Application.Volatile
   
    If Application.CentimetersToPoints(欄寬公分數) >= 9.75 Then
        欄寬 = Round((Application.CentimetersToPoints(欄寬公分數) * 4 / 3 - 5) / 8, 2)
    Else 'Application.CentimetersToPoints(欄寬公分數) < 9.75
        欄寬 = Round(Application.CentimetersToPoints(欄寬公分數) * 4 / 3 / 13, 2)
    End If

End Function

之前設計過一個同作用的自訂函數：

Public Function 欄寬(欄寬公分數 As Variant) As Variant

    Application.Volatile
   
    If Application.CentimetersToPoints(欄寬公分數) >= 9.75 Then
        欄寬 = Round((Application.CentimetersToPoints(欄寬公分數) - 9.75) / 6 + 1, 2)
    Else 'Application.CentimetersToPoints(欄寬公分數) < 9.75
        欄寬 = Round(Application.CentimetersToPoints(欄寬公分數) / 9.75, 2)
    End If

End Function

效果幾乎相同，不過依據的原理及推算方法不同。

[ 本帖最后由 linyancheng 于 2010-2-4 23:03 编辑 ]