excel - 使用 vba 将图像加载到用户表单中的标签

Question

我正在开发一个用户表单来在标签上加载图像，我得到了一个

Run time error '75': Path/File access error

使用以下代码，

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"没有收到错误...
有更好的方法吗？

Answer 1

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