是这个吗- https://learn.microsoft.com/zh-cn/previous-versions/windows/desktop/wiaaut/-wiaaut-shared-samples#create-an-imagefile-object-that-contains-a-blank-page
复制代码
- Dim v 'As Vector
- Dim Img 'As ImageFile
- Dim c 'As Long
-
- c = &hFFFEFFFF 'opaque blue (A=255,R=0,G=0,B=255)
- Set v = CreateObject("WIA.Vector")
-
- v.Add c
- v.Add c
- v.Add c
- v.Add c
-
- Set Img = v.ImageFile(2, 2)
-
- Img.SaveFile "123." & Img.FileExtension
复制代码
|