'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
vba ppt 系统菜单的二种调用方法
最新推荐文章于 2019-09-25 12:43:00 发布