演示PPT加载可执行文件

user_lwonh

43645765

Sub 录制宏()
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
    With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick)
        .Run ="C:Documents and Settingsuser桌面轻轻系列播放器.exe"
        .Action = ppActionRunProgram
        .SoundEffect.Type = ppSoundNone
        .AnimateAction = msoFalse
    End With
    With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseOver)
        .Action = ppActionNone
        .SoundEffect.Type = ppSoundNone
        .AnimateAction = msoFalse
    End With
   Application.VBE.MainWindow.SetFocus
End Sub