Làm sao chèn biểu tượng (Icon) cho Menu Popup! (1 người xem)

[Hong.Van]

Em chào thầy cô & anh chị!
Em có gắn thêm 1 Macro trên Menu Popup, bây giờ em muốn chèn Icon cho Macro này. Icon này sẽ lấy từ Bộ Icon của Excel.
Em cảm ơn!

 

[huuthang_bd]

Em chào thầy cô & anh chị!
Em có gắn thêm 1 Macro trên Menu Popup, bây giờ em muốn chèn Icon cho Macro này. Icon này sẽ lấy từ Bộ Icon của Excel.
Em cảm ơn!

Bạn dùng thuộc tính FaceID. Ví dụ code như thế này:

Sub VD()
With Application.CommandBars("Cell").Controls.Add(1, , , 1)
    .Caption = "Vi du GPE"
    .FaceId = 3
End With
End Sub

 

[Hong.Van]

Bạn dùng thuộc tính FaceID. Ví dụ code như thế này:

Sub VD()
With Application.CommandBars("Cell").Controls.Add(1, , , 1)
    .Caption = "Vi du GPE"
    .FaceId = 3
End With
End Sub

Cho em hỏi thêm
Có cái bảng tra nào cho biết nhanh FaceId = số mấy để cho hình tương ứng không anh?
Em cảm ơn!

 

[nghiaphuc]

Cho em hỏi thêm
Có cái bảng tra nào cho biết nhanh FaceId = số mấy để cho hình tương ứng không anh?
Em cảm ơn!

Bạn tham khảo topic sau nhé: Add in Faceid

 

[ndu96081631]

Cho em hỏi thêm
Có cái bảng tra nào cho biết nhanh FaceId = số mấy để cho hình tương ứng không anh?
Em cảm ơn!

Thí nghiệm sẽ biết:

Sub Test()
  Dim faceIDNumber As Long
  On Error Resume Next
  [COLOR=#ff0000][B]faceIDNumber = 6[/B][/COLOR]
  ActiveSheet.Pictures.Delete
  Application.CommandBars("tmpToolbar").Delete
  With Application.CommandBars.Add("tmpToolbar")
    With .Controls.Add(1)
      .FaceId = faceIDNumber
      .CopyFace
    End With
  End With
  ActiveSheet.Paste
  Application.CommandBars("tmpToolbar").Delete
End Sub

Thay faceIDNumber = bi nhiêu tuỳ ý rồi chạy code, nó sẽ paste FaceID Picture vào ActiveSheet

 

[huuthang_bd]

Cho em hỏi thêm
Có cái bảng tra nào cho biết nhanh FaceId = số mấy để cho hình tương ứng không anh?
Em cảm ơn!

Bạn xem trong hình này. Không phải là tất cả nhưng chắc cũng đủ để bạn dùng.