字元轉點數（point）：CharacterToPoint_PMingLiU(fontSize As Single) | by Oscar Sun on SnipSave | Web-based code snippet manager for developers

字元轉點數（point）：CharacterToPoint_PMingLiU(fontSize As Single) vbscript

                  Function CharacterToPoint_PMingLiU(fontSize As Single)   '新細明體(PMingLiU)'https://zh.wikipedia.org/wiki/%E6%96%B0%E7%B4%B0%E6%98%8E%E9%AB%94
        'https://www.mrexcel.com/board/threads/converting-characters-to-points.548210/
        'https://social.msdn.microsoft.com/Forums/office/en-US/7f461fac-5b41-4049-b3c9-bb3c2ab8cbbc/spreadsheet-ml-setting-column-width-in-pixel?forum=exceldev
        CharacterToPoint_PMingLiU = fontSize '((2 + 5) * 7 - 0.5) * (fontSize / 12)  'Characters = (Pixels - 5) / 7#
         '(2 + 5) * 7 / 2 - 0.5=24=12*12 '原來12號字即12點字，點和此點單位同也！
End Function

Function CharacterToPoint_PMingLiU(fontSize As Single)   '新細明體(PMingLiU)'https://zh.wikipedia.org/wiki/%E6%96%B0%E7%B4%B0%E6%98%8E%E9%AB%94
        'https://www.mrexcel.com/board/threads/converting-characters-to-points.548210/
        'https://social.msdn.microsoft.com/Forums/office/en-US/7f461fac-5b41-4049-b3c9-bb3c2ab8cbbc/spreadsheet-ml-setting-column-width-in-pixel?forum=exceldev
        CharacterToPoint_PMingLiU = fontSize '((2 + 5) * 7 - 0.5) * (fontSize / 12)  'Characters = (Pixels - 5) / 7#
         '(2 + 5) * 7 / 2 - 0.5=24=12*12 '原來12號字即12點字，點和此點單位同也！
End Function

View Oscar's Profile