Application.Run 方法
运行 Visual Basic 宏。
语法
表达式.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, varg17, varg18, varg19, varg20, varg21, varg22, varg23, varg24, varg25, varg26, varg27, varg28, varg29, varg30)
表达式 必选。一个代表 Application 对象的变量。
参数
名称 必选/可选 数据类型 说明
MacroName 必选 String 宏的名称。
varg1...varg30 可选 Variant 宏参数值。最多可以给指定宏传递 30 个参数值。
说明
MacroName 参数可以是任意模板、模块和宏名的组合。例如，下列语句均有效。
Visual Basic for Applications
Application.Run "Normal.Module1.MAIN"
Application.Run "MyProject.MyModule.MyProcedure"
Application.Run "'My Document.doc'!ThisModule.ThisProcedure"
如果指定了文档名，则此代码只能运行与当前环境有关的文档中的宏，而不是任何文档中的任何宏。
虽然 Visual Basic 代码可直接调用宏（无需使用 Run 方法），但当宏名存储在变量中时该方法仍很有用。（有关详细信息，请参见本主题示例。）下面三条语句作用相同。前两条语句需要引用 Normal.dot（被调用宏所在的项目）；第三条语句由于使用 Run 方法，因此无需引用 Normal.dot 项目。
Visual Basic for Applications
Normal.Module2.Macro1
Call Normal.Module2.Macro1
Application.Run MacroName:="Normal.Module2.Macro1"
示例
本示例提示用户输入模板名、模块名、宏名以及参数值，然后运行该宏。
Visual Basic for Applications
Dim strTemplate As String
Dim strModule As String
Dim strMacro As String
Dim strParameter As String
strTemplate = InputBox("Enter the template name")
strModule = InputBox("Enter the module name")
strMacro = InputBox("Enter the macro name")
strParameter = InputBox("Enter a parameter value")
Application.Run MacroName:=strTemplate &"." _
&strModule &"." &strMacro, _
varg1:=strParameter
Android 从 4.0 开始就提供了手机录屏方法，但是需要 root 权限，比较麻烦不容易实现。但是从 5.0 开始，系统提供给了 app 录制屏幕的一系列方法，不需要 root 权限，只需要用户授权即可录屏，相对来说较为简单。本文是在参考了网络上其他录屏资料后完成的， 感谢 。以下将介绍开发录屏功能的一系列步骤以及实现过程中所遇到的一些需要注意的事项。
因为录制用到麦克风，所以需要加上 AUDIO 权限，
如果开发的 app targetApi 在 6.0 以上时，还需要动态获取权限。
这里先介绍 MediaProjectionManager , MediaProjectionManager 是系统提供的一种服务，当我们拿到这个服务对象，可以创建一个 Intent ，通过这个 Intent 可以启动一个弹框样式的 Activity,如果用户授权了，那我们便可以继续下一步屏幕录制。需要说明的是，Intent 是去启动另一个 Activity 的，有极少极少的机型是没有对应的授权Activity 的，所以这里需要多加判断，防止应用奔溃。
即使用户授权了，同意录制操作，仍然需要捕获异常，因为有可能会出现这样一种情况，就是用户在同意录屏的时候系统也正在录屏，录屏操作冲突了。
这一步是整个录屏操作最为关键的一步！我们初始化了 MediaRecorder,设置了是否录上声音、录屏文件格式、录屏文件路径、音视频的编码器、比特率、视频帧率等
然后将在步骤 3 中的 resultCode 以及 data 作为必要的参数通过 MediaProjectionManager 创建 VirtualDisplay。VirtualDisplay 可以理解为虚拟的呈现器，它可以捕获屏幕上的内容，并将其捕获的内容渲染到 Surface 上(Surace 由 MediaRecorder 提供，通过 getSurface() 方法得到),MediaRecorder 再进一步将其封装处理为 Mp4 文件。
经过以上步骤 prepare 之后，当再次调用 MediaRecorder.start() 就可以开始录屏了，这里同意也需要注意的时，调用 start() 方法开始录屏之后，不能立即调用 stop()方法停止录屏，否则会奔溃。测试在测试录屏功能时立马停止录屏，应用奔溃，一直找不到原因。直到看到了源码( API 26 )里的注释
所以为了反正奔溃，在 stop 的时候捕获异常，并且置空 MediaRecorder,下次录屏的时候再重新生成 MediaRecorder。
由于知识水平有限，难免有错误遗漏，欢迎指正！项目地址为 屏幕录制
