vba把当前excel的工作表转成图片

以下是将当前Excel工作表转换成图片的VBA代码：

Sub SheetToImage()
    Dim sheetName As String
    Dim filePath As String
    
    sheetName = ActiveSheet.Name
    filePath = "C:\Users\UserName\Desktop\" & sheetName & ".png"
    
    ActiveSheet.CopyPicture xlScreen, xlPicture
    
    With CreateObject("WIA.ImageFile")
        .LoadFromVariant Selection
        .SaveFile filePath
    End With
    
    MsgBox "Sheet '" & sheetName & "' has been saved as an image at " & filePath
End Sub

在这个代码中，我们首先获取当前活动的工作表的名称，并指定要保存图片的文件路径。然后，使用`CopyPicture`方法将工作表复制到剪贴板上。接下来，使用Windows Image Acquisition（WIA）对象将剪贴板中的图像保存为PNG格式的文件。最后，弹出一个消息框，显示保存的文件路径。

请注意，此代码中的文件路径需要根据自己的需要进行修改。另外，WIA对象可能需要在计算机上进行安装，才能正常工作。