使用vba将图像加载到userform中的标签

我正在一个用户窗体上加载图像的标签,我正在得到一个

运行时错误“75”:path/文件访问错误

用下面的代码,

dim solArr as variant solArr = Split("1.jpg,2.jpg,3.jpg",",") For i = LBound(solArr) To UBound(solArr) 'For rating image Dim ratingImageName As String ratingImageName = "D:\somepath" & "\" & solArr(i) Set imageStar = UserForm1.Frame3.Controls.Add("Forms.Label.1") imageStar.Top = 40 + (i * 50) imageStar.Left = 420 imageStar.Height = 20 imageStar.Width = 100 imageStar.Picture = LoadPicture(ratingImageName) Next 

但是,如果我使用ratingImageName作为"D:\Somepath\1.jpg"没有收到错误…有没有更好的方法来做到这一点?

嗯.. solArr = Array("1.jpg","2.jpg","3.jpg")

我正在从单元格中提取一个值

 1.jpg 2.jpg 3.jpg 

replace(arrSol(i),chr(10),"")句子replace(arrSol(i),chr(10),"")解决了这个问题。