user_lwonh 发表于 2016-4-12 13:27:09

演示PPT加载可执行文件


43645765 发表于 2016-4-12 16:45:48

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
页: [1]
查看完整版本: 演示PPT加载可执行文件