Cần tạo ToolsBar mà Button có Icon ở trên và Caption ở dưới

[thinh18tt]

Chào các bạn;

Mình muốn tạo ToolsBar mà Button có Icon ở trên và Caption ở dưới nên đã làm như sau nhưng khi chạy thì nó vẫn trên 1 hàng, nhìn rất xấu và tốn diện tích chiều rộng.
Mình thắc mắc là "cbc.Style = msoButtonIconAndWrapCaptionBelow" mà vẫn trên 1 dòng?

Function CreatToolBar()    Dim cmb As Office.CommandBar
    Dim cbc As Office.CommandBarButton


    Set cmb = Application.CommandBars.Add("MyToolBar")
    cmb.Visible = True
    Set cbc = cmb.Controls.Add(msoControlButton)
    cbc.Caption = "Save Document"
    cbc.FaceId = 3
    cbc.Style = msoButtonIconAndWrapCaptionBelow
End Function

 

[ndu96081631]

Chào các bạn;

Mình muốn tạo ToolsBar mà Button có Icon ở trên và Caption ở dưới nên đã làm như sau nhưng khi chạy thì nó vẫn trên 1 hàng, nhìn rất xấu và tốn diện tích chiều rộng.
Mình thắc mắc là "cbc.Style = msoButtonIconAndWrapCaptionBelow" mà vẫn trên 1 dòng?

Function CreatToolBar()    Dim cmb As Office.CommandBar
    Dim cbc As Office.CommandBarButton


    Set cmb = Application.CommandBars.Add("MyToolBar")
    cmb.Visible = True
    Set cbc = cmb.Controls.Add(msoControlButton)
    cbc.Caption = "Save Document"
    cbc.FaceId = 3
    cbc.Style = msoButtonIconAndWrapCaptionBelow
End Function

Code này chạy trên Excel 2003 sẽ có tác dụng. Bạn thử xem

 

[thinh18tt]

Cảm ơn bạn đã test thử, mình chưa thử trên office 2003 vì bây giờ hầu như dùng 2007 trở lên. Chắc phải tìm hiểu thêm mới được.

 

[Hai Lúa Miền Tây]

Cảm ơn bạn đã test thử, mình chưa thử trên office 2003 vì bây giờ hầu như dùng 2007 trở lên. Chắc phải tìm hiểu thêm mới được.

Vậy thì tập tạo Ribbon đi:Hướng dẫn sử dụng Ribbon trong Excel 2007 (2010)

 

[M@trixs]

Dùng RIBBON là hay nhất, hỗ trợ UNICODE, lại đẹp nữa. Ủng hộ 2 tay cho RIBBON !

 

[thinh18tt]

Vậy thì tập tạo Ribbon đi:Hướng dẫn sử dụng Ribbon trong Excel 2007 (2010)

Cảm ơn bạn;

Có nghĩa là từ 2007 trở lên nó không msoButtonIconAndWrapCaptionBelow được đúng không? Lạ nhỉ? Vậy sao nó vẫn có thuộc tính ấy.

 

[ndu96081631]

Cảm ơn bạn;

Có nghĩa là từ 2007 trở lên nó không msoButtonIconAndWrapCaptionBelow được đúng không? Lạ nhỉ? Vậy sao nó vẫn có thuộc tính ấy.

Không phải là không có. Vấn đề là khi dùng trên Excel 2007 nó hiển thị không giống như trên Excel 2003 thôi
(chứ nếu không thì code đã bị lỗi rồi)

 

[thinh18tt]

Cảm ơn tất cả các bạn đã giúp đỡ, mình đã làm theo hướng dẫn vào tạo được Ribbon rồi, đúng là rất đẹp.