vbappt系统菜单的二种调用方法

'CommandBars ；SendKeys
Sub tt()
'CommandBars("Menu Bar").FindControl(Id:=109, Visible:=True, Recursive:=True).Execute
'Application.CommandBars.FindControl(Id:=109).Execute
 On Error GoTo ErrorHandler
  ActiveWindow.View.PasteSpecial DataType:=ppPasteBitmap, DisplayAsIcon:=msoTrue, IconLabel:="New Bitmap Image"
  SendKeys "%hg", True
 Exit Sub
ErrorHandler:     MsgBox "选择性粘贴性失败，请先Copy图片再执行本功能", vbOKOnly + vbCritical, "选择性粘贴"
End Sub