是否有用于创建空白/任何PNG文件的VBA代码(用于Access 2016)

Sub CreateBlankPNG()
    Dim objPic As Object
    Dim objGraph As Object
    Dim objImage As Object
    
    ' 创建一个新的图片对象
    Set objPic = CreateObject("WIA.ImageFile")
    
    ' 设置图片的宽度和高度
    objPic.Width = 800
    objPic.Height = 600
    
    ' 创建一个图形对象
    Set objGraph = objPic.ActiveFrame
    
    ' 填充图形对象为白色
    objGraph.FillColor = RGB(255, 255, 255)
    
    ' 创建一个图像对象
    Set objImage = objGraph.Image
    
    ' 保存图像为PNG文件
    objImage.SaveAs "C:\path\to\blank.png", 2 ' 2 表示保存为PNG格式
    
    ' 释放对象
    Set objImage = Nothing
    Set objGraph = Nothing
    Set objPic = Nothing
    
    MsgBox "空白PNG文件创建成功！"
End Sub