[Help] Vấn đề viết lệnh điều khiển cho Menu tự tạo trong Excel (2 người xem)

[hoangtrong_vbnd]

Chào các bác,
Sau khi tìm hiểu 2 chủ đề
[h=1]Vấn đề hiển thị Menu tự tạo trong Excel 2007 và Add-Ins Tạo Menu RibbonTiếng Việt Có Dấu Cho Office[/h]thì cũng tạo được Menu Ribbon phục vụ cho cv của mình, tuy nhiên có 1 số vấn đề gặp phải nhờ các giúp đỡ
1- Để thực hiện được các button trên Menu thì e xây dựng lệnh trong VBA, tuy nhiên nhiều button - nhiều lệnh quá khiến file mỗi lần mở lên mất 1 khoảng thời gian (chắc do nặng). Vậy thì ngoài khung lập trình VBA e có thể xây dựng nguồn riêng cho nó từ VB6 hay ... rồi chuyển sang xla sau đó add vào Reference được không. Cái này e nghĩ thế chứ e cũng chưa biết làm, nhờ các bác chỉ giúp để tìm hiểu ?
Ví dụ lệnh này e dùng trong VBA thì chuyển sang VB6 hay ... thì chuyển thế nào

[h=1]Sub Menu(control As IRibbonControl)
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim sh As Worksheet
Dim a As Boolean
For Each sh In Sheets
If Left(sh.Name, 2) = "ME" Then
a = True
sh.Visible = xlSheetVisible
Exit For
End If
Next
If a Then
For Each sh In Sheets
If Left(sh.Name, 2) = "ME" Then sh.Visible = xlSheetVisible Else sh.Visible = xlSheetHidden
Next
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

[/h]2- Để sử dụng lại 1 số mục có sẵn trong excel (ví dụ: font - cỡ chữ ... ) thì làm thế nào ?
Mong được các bác giúp đỡ !