Giúp tạo menu lệnh Paste Special và Copy, Cut (1 người xem)

[vuthanhlam]

Mình có đoạn code được share như sau:

Sub CreateShortcut()
DeleteShortcut
Set myBar = CommandBars.Add _
(Name:="MyShortcut", Position:=msoBarPopup, Temporary:=True)

Set myItem = myBar.Controls.Add(Type:=msoControlButton)
With myItem
.Caption = "&Number Format..."
.OnAction = "ShowFormatNumber"
.FaceId = 1554
End With

Set myItem = myBar.Controls.Add(Type:=msoControlButton)
With myItem
.Caption = "&Alignment..."
.OnAction = "ShowFormatAlignment"
.FaceId = 217
End With

Set myItem = myBar.Controls.Add(Type:=msoControlButton)
With myItem
.Caption = "&Font..."
.OnAction = "ShowFormatFont"
.FaceId = 291
End With


Set myItem = myBar.Controls.Add(Type:=msoControlButton)
With myItem
.Caption = "&Borders..."
.OnAction = "ShowFormatBorder"
.FaceId = 149
.BeginGroup = True
End With

Set myItem = myBar.Controls.Add(Type:=msoControlButton)
With myItem
.Caption = "&Patterns..."
.OnAction = "ShowFormatPatterns"
.FaceId = 1550
End With

Set myItem = myBar.Controls.Add(Type:=msoControlButton)
With myItem
.Caption = "Pr&otection..."
.OnAction = "ShowFormatProtection"
.FaceId = 2654
End With
End Sub


Sub ShowFormatNumber()
Application.Dialogs(xlDialogFormatNumber).Show
End Sub


Sub ShowFormatAlignment()
Application.Dialogs(xlDialogAlignment).Show
End Sub


Sub ShowFormatFont()
Application.Dialogs(xlDialogFormatFont).Show
End Sub


Sub ShowFormatBorder()
Application.Dialogs(xlDialogBorder).Show
End Sub


Sub ShowFormatPatterns()
Application.Dialogs(xlDialogPatterns).Show
End Sub


Sub ShowFormatProtection()
Application.Dialogs(xlDialogCellProtection).Show
End Sub


Sub DeleteShortcut()
On Error Resume Next
CommandBars("MyShortcut").Delete
End Sub

Bạn nào vui lòng giúp mình tạo thêm lệnh Paste Special, Cut và Copy với !