Hỏi về IRibbonControl (2 người xem)

vova2209 · 27/6/18

Mã:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
   <ribbon>
    <tabs>
       <!-- Nêu' dê? insertAfterMso="TabView" “My Tab” se~ chèn o? vi trí cuôi' cùng” -->
       <tab id="YourCustomTabOnTheRibbon" label="*Vô Va*" insertAfterMso="TabView">

       </tab>
    </tabs>
   </ribbon>
</customUI>

Em có tạo được 1 IRibbonControl mới! giờ em muốn add biểu tượng và code vào phải làm như nào ạ. mong được giúp đỡ (cho em xin tên danh sách các biểu tượng)

♫ђöล♥ßล†♥†µ♫ · 27/6/18

vova2209 đã viết:
Mã:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon> <tabs>  <tab id="YourCustomTabOnTheRibbon" label="*Vô Va*" insertAfterMso="TabView"> </tab> </tabs> </ribbon> </customUI>

Em có tạo được 1 IRibbonControl mới! giờ em muốn add biểu tượng và code vào phải làm như nào ạ. mong được giúp đỡ (cho em xin tên danh sách các biểu tượng)

Nhảy vào CustomUI làm chi cho cực vậy trời

Bạn qua đây tham khảo: https://www.giaiphapexcel.com/diendan/threads/chia-sẻ-công-cụ-tạo-ribbon-cho-file-excel.118488/

vova2209 · 27/6/18

♫ђöล♥ßล†♥†µ♫ đã viết:
Nhảy vào CustomUI làm chi cho cực vậy trời
Bạn qua đây tham khảo: https://www.giaiphapexcel.com/diendan/threads/chia-sẻ-công-cụ-tạo-ribbon-cho-file-excel.118488/

thanks kiu! chị nhiều

truongvu317 · 27/6/18

Muốn dùng icon động á, vụ nay hay nghen, cố lên cưng ơi!

vova2209 · 27/6/18

♫ђöล♥ßล†♥†µ♫ đã viết:
Nhảy vào CustomUI làm chi cho cực vậy trời
Bạn qua đây tham khảo: https://www.giaiphapexcel.com/diendan/threads/chia-sẻ-công-cụ-tạo-ribbon-cho-file-excel.118488/

Chị ơi! lỗi này sử lý như nào ạ, kích vào biểu tượng thì gặp lỗi này

giaiphap · 27/6/18

vova2209 đã viết:
Chị ơi! lỗi này sử lý như nào ạ, kích vào biểu tượng thì gặp lỗi này

View attachment 198301

Là do trong module của bạn dùng Sub không đúng chuẩn của ribbon, để khắc phục phải có file và xem code mới biết.

vova2209 · 27/6/18

giaiphap đã viết:
Là do trong module của bạn dùng Sub không đúng chuẩn của ribbon, để khắc phục phải có file và xem code mới biết.

file Book1 là file em đã xuất ra. Hiện tại đang có code In biên Bản và Fix Ảnh
Phiền anh xem và hướng dẫn add code với ạ!

giaiphap · 27/6/18

vova2209 đã viết:
file Book1 là file em đã xuất ra. Hiện tại đang có code In biên Bản và Fix Ảnh
Phiền anh xem và hướng dẫn add code với ạ!

Nút in bài của bạn có tên In_BBall trong khi trong module của bạn chỉ có sub InBienBan, vậy bạn sửa code của nút InBienBan như sau:

Mã:

Private Sub In_BBall(Ctrl As IRibbonControl)
    In_BB_All.Show
End Sub

vova2209 · 27/6/18

giaiphap đã viết:
Nút in bài của bạn có tên In_BBall trong khi trong module của bạn chỉ có sub InBienBan, vậy bạn sửa code của nút InBienBan như sau:

Mã:

Private Sub In_BBall(Ctrl As IRibbonControl) In_BB_All.Show End Sub

Khi mở file muốn tab mở ở tab QLCL CTGT *Vô Va* thì phải làm như nào ạ. Chỉ em với

giaiphap · 27/6/18

vova2209 đã viết:
Khi mở file muốn tab mở ở tab QLCL CTGT *Vô Va* thì phải làm như nào ạ. Chỉ em với

Cái vụ này thì mình chưa biết, nhưng thay vì đặt tab phía sau thì mình đặt Tab phía trước là được. Bạn xem thử file.

batman1 · 27/6/18

vova2209 đã viết:
Khi mở file muốn tab mở ở tab QLCL CTGT *Vô Va* thì phải làm như nào ạ. Chỉ em với

Những macro trong module Ribbon không ăn nhập gì với tập tin. Bạn thử mở tập tin trong custom UI Editor thì thấy. Vd. làm gì có FixImage? Tức làm gì có đoạn gán macro FixImage cho nút "fix ảnh" (onAction)?

Trong tập tin hiện thời thẻ của bạn có id = "Tab1".

Tôi chỉ hướng dẫn mở thẻ của bạn.

Trong module Ribbon phải có

Mã:

Public rb As IRibbonUI

'Callback for customUI.onLoad
Private Sub OnLoad(ribbon As IRibbonUI)
    Set rb = ribbon
    rb.ActivateTab "Tab1"
End Sub

vova2209 · 28/6/18

giaiphap đã viết:
Cái vụ này thì mình chưa biết, nhưng thay vì đặt tab phía sau thì mình đặt Tab phía trước là được. Bạn xem thử file.

Cách này cũng ổn! mình cảm ơn nhiều

Bài đã được tự động gộp: 28/6/18

batman1 đã viết:
Những macro trong module Ribbon không ăn nhập gì với tập tin. Bạn thử mở tập tin trong custom UI Editor thì thấy. Vd. làm gì có FixImage? Tức làm gì có đoạn gán macro FixImage cho nút "fix ảnh" (onAction)?

Trong tập tin hiện thời thẻ của bạn có id = "Tab1".

Tôi chỉ hướng dẫn mở thẻ của bạn.

Trong module Ribbon phải có

Mã:

Public rb As IRibbonUI 'Callback for customUI.onLoad Private Sub OnLoad(ribbon As IRibbonUI) Set rb = ribbon rb.ActivateTab "Tab1" End Sub

mình không hiểu! bạn nói rõ thêm cho mình hiểu.. cảm ơn nhiều

batman1 · 28/6/18

vova2209 đã viết:
mình không hiểu! bạn nói rõ thêm cho mình hiểu.. cảm ơn nhiều

Có gì mà không hiểu?

Bạn mở tập tin của mình và trong module Ribbon bạn thấy có nhiều thứ trong đó có

Mã:

Private Sub OnLoad(ribbon As IRibbonUI)
    
End Sub

Tôi đề nghị

Mã:

Public rb As IRibbonUI

'Callback for customUI.onLoad
Private Sub OnLoad(ribbon As IRibbonUI)
    Set rb = ribbon
    rb.ActivateTab "Tab1"
End Sub

Tức xóa

Mã:

Private Sub OnLoad(ribbon As IRibbonUI)
    
End Sub

của mình và "dán" cái của tôi vào? Sau đó lưu lại rồi đóng rồi mở lại để xem kết quả.

Bạn có thử như thế không hay bạn chỉ đọc và nghĩ nó chả giải quyết được gì?

Còn những macro còn lại là "rác" thì bản thân bạn có thể không hiểu nhưng bạn hoàn toàn có thể kiểm tra: thử click vào nút "Fix ảnh" thì thấy chả có gì sảy ra. Tức macro "FixImage" không được thực hiện.

Thậm chí không cần hiểu có thể kiểm tra. Nhưng chắc là bạn không thèm kiểm tra.

vova2209 · 28/6/18

batman1 đã viết:
Có gì mà không hiểu?

Bạn mở tập tin của mình và trong module Ribbon bạn thấy có nhiều thứ trong đó có

Mã:

Private Sub OnLoad(ribbon As IRibbonUI) End Sub

Tôi đề nghị

Mã:

Public rb As IRibbonUI 'Callback for customUI.onLoad Private Sub OnLoad(ribbon As IRibbonUI) Set rb = ribbon rb.ActivateTab "Tab1" End Sub

Tức xóa

Mã:

Private Sub OnLoad(ribbon As IRibbonUI) End Sub

của mình và "dán" cái của tôi vào? Sau đó lưu lại rồi đóng rồi mở lại để xem kết quả.

Bạn có thử như thế không hay bạn chỉ đọc và nghĩ nó chả giải quyết được gì?

Còn những macro còn lại là "rác" thì bản thân bạn có thể không hiểu nhưng bạn hoàn toàn có thể kiểm tra: thử click vào nút "Fix ảnh" thì thấy chả có gì sảy ra. Tức macro "FixImage" không được thực hiện.

Thậm chí không cần hiểu có thể kiểm tra. Nhưng chắc là bạn không thèm kiểm tra.

Báo lỗi chỗ code này anh à: xem hộ e với ạ
rb.ActivateTab "Tab1"

LamNA · 28/6/18

vova2209 đã viết:
Khi mở file muốn tab mở ở tab QLCL CTGT *Vô Va* thì phải làm như nào ạ. Chỉ em với

Bạn muốn nằm trước Tab Home bạn có thể tự chỉnh trong file Design Example là được
- Nhập vào ô B2 thay OnLoad thành RibbonOnLoad
- Nhập vào ô X5 TabHome

batman1 · 28/6/18

vova2209 đã viết:
Báo lỗi chỗ code này anh à: xem hộ e với ạ
rb.ActivateTab "Tab1"

Tôi chỉ thêm code tôi đề nghị vào tập tin, ngoài ra không làm gì thêm.

Hỏi về IRibbonControl (2 người xem)

Người dùng đang xem chủ đề này

Thành viên tích cực

Thành viên tiêu biểu

Thành viên tích cực

Thành viên tích cực

Thành viên tích cực

==(^o^)==

Thành viên tích cực

File đính kèm

==(^o^)==

Thành viên tích cực

==(^o^)==

File đính kèm

Thành viên gạo cội

Thành viên tích cực

Thành viên gạo cội

Thành viên tích cực

Thành viên tích cực

Thành viên gạo cội

File đính kèm

Đếm ngược thời gian