常用功能加载宏——调用微信截图

Excel2010版本以上有一个屏幕截图功能：

但这个功能在使用的时候，不是很方便，电脑版微信的截图功能就比较丰富，使用也很方便。

使用VBA来调用微信的dll就可以实现在Excel里使用微信的截图功能了：

首先在customUI.xml中增加代码：

    <button id="rbbtnWeiXinPrScrn" label="微信截图&#13;" size="large" onAction="rbbtnWeiXinPrScrn" imageMso="PhotoAlbumInsert" />

回调函数：

Sub rbbtnWeiXinPrScrn(control As IRibbonControl)
    Call MOther.WeiXinPrScrn
End Sub

函数实现：

插入模块MOther，因为要调用dll，所以要使用API，首先定义微信dll的API：

Private Declare Function PrScrn Lib "PrScrn.dll" () As Long

VBA在加载dll的时候，默认是在系统目录中查找对应的dll的，所以，可以先把PrScrn.dll复制一份到系统目录，但不建议轻易去操作系统目录，我们使用另外一种方法来加载dll。

创建一个空白加载宏，命名vbapKernel32.xlam，目的是把kernel32这个dll的函数声明都放在这里，输入代码：

Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long

添加工具-引用vbapKernel32.xlam。

实现微信截图函数：

Private Declare Function PrScrn Lib "PrScrn.dll" () As Long

Sub WeiXinPrScrn()
    Dim hdll As Long
    Dim dllpath As String
    
    '指定dll的文件路径
    dllpath = "…………PrScrn.dll"
    '加载dll
    hdll = LoadLibrary(dllpath)
    If hdll = 0 Then
        MsgBox "dll加载错误：" & dllpath
        Exit Sub
    End If
    '调用PrScrn.dll的截图函数
    PrScrn
    '释放dll
    FreeLibrary hdll
End Sub

注：

如果没有安装电脑微信，或者微信安装目录没有PrScrn.dll，也可以百度搜索PrScrn.dll，下载存放到电脑上，然后设置程序中的dllpath就可以。