Ms access 是否有VBA代码（用于Access 2016）来创建空白/任何PNG文件

遗憾的是，我没有代码可以共享，但这是一个简单的问题。我正在寻找一段代码，它将创建一些png文件（可以是空白的，彩色的，等等），并带有一个特定的名称（QR\uid].png）

在我的例子中，它是存储通过打印下载http（URL，DestinationPath）

url为：“”，将生成二维码

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

代码在已经创建的PNG上工作，因此PNG文件的创建是唯一缺少的部分。但是我找不到创建png文件的方法，谷歌今天对我不友好：（

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

---

感谢大家的帮助！

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

一些例子可以在

Public子组件CreateBlankPngImage（）
Dim PATH将DIMAGE创建为字符串
PathToCreatedImage=“”在此处插入路径和文件名
Dim sFormatID作为字符串
sFormatID=“{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}”https://docs.microsoft.com/en-us/previous-versions/windows/desktop/wiaaut/-wiaaut-consts-formatid
作为字符串的Dim-sExt
sExt=“PNG”
将oWIA设置为对象“WIA.ImageFile”
设置oWIA=CreateObject（“WIA.ImageFile”）
作为对象“Wia.矢量”的尺寸v
Set v=CreateObject（“WIA.Vector”）
v、 添加&hffffff'白色（A=255，R=255，G=255，B=255）
设置oWIA=v.ImageFile（1，1）'创建大小为1x1的图像
使用CreateObject（“WIA.ImageProcess”）
.Filters.Add.filterInfo（“刻度”）.FilterID
.过滤器（1）.属性（“最大宽度”）=200'宽度
.过滤器（1）.属性（“最大高度”）=200'高度
.Filters.Add.FilterInfos（“转换”）.FilterID
.Filters（2）.Properties（“FormatID”）=sFormatID'转换为PNG
.过滤器（2）.属性（“质量”）=100
设置oWIA=.Apply（oWIA）'进程映像
以
oWIA.SaveFile路径创建图像
设置v=无
设置oWIA=无
端接头

---

当然，出于您的目的，复制一个默认的PNG文件就足够了-

只需使用一个默认的.PNG文件，并在覆盖副本之前复制它。如果您在Windows上，您有，您可以使用它绘制并保存到PNG。这是不平凡的，但可以在VBA中使用GDI+代码。