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

Question

遗憾的是，我没有可分享的代码，但这是一个简单的问题。我正在寻找一段代码，将创建一些png文件(可以是空白，彩色，无论什么)与一个特定的名称( QR_ID.png )。

在我的示例中，它用于存储通过Print DownloadHTTP( URL, DestinationPath )获得的二维码

网址是："https://qrickit.com/qrickit_apps/qrickit_api.php“，它将生成二维码。

DownloadHTTP将只访问具有特定ID的url并下载图像，然后将DestinationPath中的现有文件更改为下载的二维码图像

该代码适用于已创建的PNG，因此创建png文件是唯一缺少的部分。但是我找不到一种方法来创建一些png文件，google今天对我并不友好:(。

最糟糕的是我不是windows的管理员，所以几乎什么都做不了。

如果人们试图提供帮助，那就谢谢了！

Answer 1

要使用WIA-Libary转换、调整大小、翻转、旋转、合并甚至创建图像

可以在devhut.net上找到一些示例

Public Sub CreateBlankPngImage()

Dim PathToCreatedImage As String
PathToCreatedImage = "" ' insert path and filename here

Dim sFormatID As String
sFormatID = "{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}" 'https://docs.microsoft.com/en-us/previous-versions/windows/desktop/wiaaut/-wiaaut-consts-formatid

Dim sExt As String
sExt = "PNG"

Dim oWIA As Object    'WIA.ImageFile    
Set oWIA = CreateObject("WIA.ImageFile")

Dim v As Object ' Wia.Vector
Set v = CreateObject("WIA.Vector")

v.Add &HFFFFFFFF 'White (A=255,R=255,G=255,B=255)

Set oWIA = v.ImageFile(1, 1) ' create image with size 1x1

With CreateObject("WIA.ImageProcess")
    .Filters.Add .FilterInfos("Scale").FilterID
    .Filters(1).Properties("MaximumWidth") = 200 'Width
    .Filters(1).Properties("MaximumHeight") = 200 'Height

    .Filters.Add .FilterInfos("Convert").FilterID
    .Filters(2).Properties("FormatID") = sFormatID 'convert to PNG
    .Filters(2).Properties("Quality") = 100

    Set oWIA = .Apply(oWIA) 'process image
End With

oWIA.SaveFile PathToCreatedImage

Set v = Nothing
Set oWIA = Nothing
End Sub

当然，为了您的目的，复制一个默认的PNG-File就足够了-