Khai báo kích cỡ Calendar1 trong bảng tính ?

[TrungChinhs]

Tôi đang dùng code này sử dụng Calendar1 trong bảng tính

Private Sub worksheet_selectionchange(ByVal Target As Range)
        With Target
           Calendar1.Visible = (Not Intersect([F6:G100,I6:I100], Target) Is Nothing)
           Calendar1.Top = .Top: Calendar1.Left = .Offset(, 1).Left
        End With
      End If
End Sub

Nhưng mỗi lần mở file thì kích cỡ của Calendar1 lại nhỏ đi. Vậy làm thế nào để giữ nguyên kích cỡ của nó như khi khởi tạo ?.
Tôi đã xem Properties của nó nhưng không thấy và đã thử dùng Macro để lấy kích thước của nó khi khởi tạo nhưng không được (chỉ lấy được vị trí khởi tạo nó) tôi không biết cách khai báo kích cỡ của nó trong code như thế nào? nhờ các bạn giúp đỡ. Thank!

 

[ptm0412]

Khai báo kích cỡ là dùng Property Width và Height. vậy thêm vô là được:

Calendar1.Width = 85: Calendar1.Height = 15

 

[ndu96081631]

Tôi đang dùng code này sử dụng Calendar1 trong bảng tính

Private Sub worksheet_selectionchange(ByVal Target As Range)
        With Target
           Calendar1.Visible = (Not Intersect([F6:G100,I6:I100], Target) Is Nothing)
           Calendar1.Top = .Top: Calendar1.Left = .Offset(, 1).Left
        End With
      End If
End Sub

Nhưng mỗi lần mở file thì kích cỡ của Calendar1 lại nhỏ đi. Vậy làm thế nào để giữ nguyên kích cỡ của nó như khi khởi tạo ?.
Tôi đã xem Properties của nó nhưng không thấy và đã thử dùng Macro để lấy kích thước của nó khi khởi tạo nhưng không được (chỉ lấy được vị trí khởi tạo nó) tôi không biết cách khai báo kích cỡ của nó trong code như thế nào? nhờ các bạn giúp đỡ. Thank!

Thêm 2 món nữa:
Calendar1.Width = ???
và
Calendar1.Height = ???
là xong!
Bạn có thể xác định kích thước Calendar = với 1 cell nào đó (hoặc 1 số chỉ định trước)

 

[TrungChinhs]

Cảm ơn ptm0412 và ndu96081631 ! theo chỉ dẫn của các bạn mình đã làm được rồi. Nhưng cho mình hỏi thêm câu nữa: khi mình copy sub này sang máy khác thì không chạy được lỗi là do máy đó không có Calendar control 11.0 vậy có cách nào bổ sung control này vào máy không hay phải cài lại Offise khác ? Thank !

 

[ptm0412]

Office cài đầy đủ thường là có sẵn cái này. Hoặc là cài bổ sung Office cho đầy đủ (không phải là cài lại), hoặc là tìm chép file C:\Program Files\Microsoft officee\Office10\mscal.ocx vào máy bị thiếu
Ghi chú:
file trên là của Office 2003, control là Calendar control 10.0. Nếu Office 2007 thì không biết tên file .ocx có khác hay không.