Thay đổi bề rộng của cột dựa theo độ phân giải màn hình

[DART2]

Giá sử vùng làm việc của mình là từ cột A cho đến cột J (10 cột). Mình muốn viết 1 code để lấy độ phân giải màn hình (pixel), sau đó set bề rộng của cột bằng kích thước độ phân giải màn hình chia cho 10 (kích thước của cột trong excel trong trường hợp này k phải là pixel, các bạn có thể tham khảo thêm tại đây ). Cách này dùng để tạo bảng tính có vùng làm việc áp dụng cho nhiều máy khác nhau. Mình đã thử làm nhưng kết quả không mong muốn (vẫn bị lồi ra 1 phần của cột 11) nên post lên đây mong mọi người giúp đỡ. Sau đây là code của mình (VSTO), các bạn nào có thể giúp mình bằng code VBA cũng được. Xin cảm ơn vì đã đọc bài viết của mình.

    Private Sub ThisWorkbook_Startup() Handles Me.Startup
 
        .......

        'Cài đặt hiển thị
        Dim intX As Integer = Screen.PrimaryScreen.Bounds.Width
        Const num_Col As Integer = 10
        Dim Col_width_char As Double = intX / num_Col * 8.43 / 64' Kích thước mặc định của cột là 8.43 character tương ứng với 64 pixel
        ActiveSheet.Columns("A:T").ColumnWidth = Col_width_char
        With (Application.ActiveWindow)
            .DisplayHorizontalScrollBar = False
            .DisplayHeadings = False
            .DisplayFormulas = False
        End With
    End Sub