Lấy label của item trong gallery

giaiphap

Thành viên gạo cội
Tham gia ngày
12 Tháng ba 2007
Bài viết
4,815
Được thích
4,063
Điểm
860
Tôi muốn lấy đoạn text (label) của item trong gallery thì dùng đoạn code như thế nào vậy mọi người.
Hinh.jpg
Trên hình tôi muốn lấy dòng chữ "Tôi muốn lấy đoạn text nhìn thấy ở đây" thì không biết sử dụng code ra sao, chỉ lấy được ID của item thôi, bác nào có kinh nghiệm chỉ giúp cảm ơn mọi người trước.
 

File đính kèm

HeSanbi

Thành viên tích cực
Tham gia ngày
24 Tháng hai 2013
Bài viết
1,100
Được thích
942
Điểm
560
Với Ribbon thì Lớp CommandBars của Application sẽ hỗ trợ để tương tác và lấy thông tin từ
Ribbon.

Tôi có hướng dẫn cho Bác giaiphap tại đây rồi

Để hiểu rõ hơn lớp CommandBars Bác vào VBA mở Object Browser gõ vào mục tìm kiếm "CommandBars"

Mọi phương thức sẽ có trong lớp này.

Dựa vào bài này tôi ví dụ thêm cho Bác hiểu ở Trên hình của Bác:

1. Mục GPE sẽ có style là Menu
Set ctrlMenu = Application.CommandBars.FindControl(ID hoặc Tag của Menu )
Hoặc dùng vòng lặp để tìm Menu GPE trong mọi CommandBar.
2. Tập con của GPE có "chào mọi người" có style cũng là Menu
ctrlMenu.Controls.Item(1).Caption
3. Tập con của "chào mọi người" có "..."
ctrlMenu.Controls.Item(1).Controls.Item(1).Caption

Ta cũng có thể dùng vòng lặp để đến tập con của tập con và của tập con.
 

giaiphap

Thành viên gạo cội
Tham gia ngày
12 Tháng ba 2007
Bài viết
4,815
Được thích
4,063
Điểm
860
Với Ribbon thì Lớp CommandBars của Application sẽ hỗ trợ để tương tác và lấy thông tin từ
Ribbon.

Tôi có hướng dẫn cho Bác giaiphap tại đây rồi

Để hiểu rõ hơn lớp CommandBars Bác vào VBA mở Object Browser gõ vào mục tìm kiếm "CommandBars"

Mọi phương thức sẽ có trong lớp này.

Dựa vào bài này tôi ví dụ thêm cho Bác hiểu ở Trên hình của Bác:

1. Mục GPE sẽ có style là Menu
Set ctrlMenu = Application.CommandBars.FindControl(ID hoặc Tag của Menu )
Hoặc dùng vòng lặp để tìm Menu GPE trong mọi CommandBar.
2. Tập con của GPE có "chào mọi người" có style cũng là Menu
ctrlMenu.Controls.Item(1).Caption
3. Tập con của "chào mọi người" có "..."
ctrlMenu.Controls.Item(1).Controls.Item(1).Caption

Ta cũng có thể dùng vòng lặp để đến tập con của tập con và của tập con.
Bài hướng dẫn lần trước của bạn @HeSanbi không đúng yêu cầu của mình, mình có thử nhưng không được. Bạn thử viết giúp code vào file ở #1 thử xem. Ví dụ khi tôi click vào nút "Chào mọi người" thì dùng cái msgbox để hiện lên dòng chữ "Chào mọi người", khi tôi click vào nút "Tôi muốn lấy đoạn text nhìn thấy ở đây" thì nó hiển thị lên "Tôi muốn lấy đoạn text nhìn thấy ở đây". Nói tóm lại là click vào nút có label là gì thì nó hiện lên cái label của nút đó.
 
Top Bottom