[英]How to insert an image in an imagebox through path on a server
嗨,我正在使用这样的代码将图像加载到图像框中:
Dim ws As Worksheet, fname As String
Dim p As Object
'~~> Adding a temp sheet
Set ws = ThisWorkbook.Sheets.Add
'~~> Insert the picture in the newly created worksheet
fname = "\\IPADDRESS\folder\fototest\image.jpg"
SavePicture img.Picture, fname
DoEvents
Set p = ws.Pictures.Insert(fname)
问题是图像位于我通过IP地址访问的服务器上,由于无法访问该地址,excel崩溃了。 我该如何解决?
由于缺乏对目标目录的权限,您的VBA崩溃了。 为了使用SavePicture
过程,首先,您需要在远程目标目录中具有read write execute
权限,并确保如果该服务器位于其他域中,则可以访问该服务器。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.