Excel 如何从url下载图像并使用VBA调整大小？

我想从URL下载图片并自动调整大小，有什么想法吗

选项显式
专用声明函数urldownloadtofilelib“urlmon”_
别名“URLLdownloadtofilea”（ByVal pCaller，只要_
ByVal szURL作为字符串，ByVal szFileName作为字符串_
ByVal dwReserved As Long，ByVal lpfnCB As Long）As Long
暗色尽可能长
子样本（）
将ws设置为工作表
昏暗的最后一排一样长，我一样长
将strPath设置为字符串
将文件设置为字符串
将路径设置为字符串
作为整数的Dim X
Dim FolderName作为字符串
设置ws=Sheet1
FolderName=“C:\try”
LastRow=ws.Range（“A”&Rows.Count）.End（xlUp）.Row
对于i=4到最后一行
对于X=19到27
如果表1.单元格（i，X）.值为“”，则
strPath=FolderName&“\”&i-3&“-”&X-18&“.jpg”
Ret=URLDownloadToFile（0，Sheet1.Cells（i，X）.Value，strPath，0，0）
如果结束
下一个X
接下来我
端接头

“调整大小”可以表示不同的含义-您具体想问什么？除非您发布的代码与您的实际问题不相关，否则…@TimWilliams我已成功下载带有上述代码的图像，但我希望在下载图像时自动调整大小。下载和调整大小无关，因此您的问题是关于调整大小，这意味着，准确地解释“调整大小”的含义将非常有用。从这里开始：尝试一些你找到的方法。发回您在代码中遇到的任何具体问题。