Загрузка в Image не с диска С

[Вадим12091965]

Всем привет. Есть код:

Private Sub ComboBox2_Change()
If ComboBox2.Text = "ßáëîíÿ òîëåäî, RON 108" Then
Image2.Picture = LoadPicture("c:\RON108 ßáëîíÿ òîëåäî.bmp")
End If
If ComboBox2.Text = "Âåíãå, RON 015" Then
Image2.Picture = LoadPicture("c:\RON 015 Âåíãå.bmp")
End If
End Sub

Excel находится в папке "Калькулятор кухни". В ней же находится папка "Image" с текстурами в формате JPEG.
Вопросы:
1. При прописывании кода не загружается рисунок с расширением JPEG, после обработки рисунка в bmp, все работает. Но мне лучше JPEG, так как текстур около 300, и все переводить в bmp - это куча времени.
2. Нужно, чтобы картинка загружалась не с диска С, а именно из папки "Image". Удобно, если перемещать папку "Калькулятор кухни", не изменится дорога.
3. Так как картинок будет около 300, можно ли сократить код или писать так же как написан.

[doober]

Указывайте путь к рисунку
"c:\RON108 ßáëîíÿ òîëåäî.jpg"
а не "c:\RON108 ßáëîíÿ òîëåäî.jpeg"
Все прекрасно грузится,если действительный формат рисунка jpeg.
Расширение и формат не всегда могут совпадать.

[Вадим12091965]

Попробовал jpg, работает. Спасибо. А как на счет дороги загрузки не с диска С ?

[doober]

Папка Image должна быть рядом с книгой Excel

Dim ImagePath As String
ImagePath = ThisWorkbook.Path & "\Image\"
Image2.Picture = LoadPicture(ImagePath & "Имя картинки.jpg")

[Вадим12091965]

Спасибо, что помогаете. При коде

Dim ImagePath As String
ImagePath = ThisWorkbook.Path & "\Image\"
Image2.Picture = LoadPicture(ImagePath & "Имя картинки.jpg")

получаю ошибку
Run-time error '76':
Path not found.

[doober]

А папку Image вы создали?

[Вадим12091965]

Книга Excel и папка Image были у меня изначально, находятся в папке "Калькулятор кухни". Посмотрел видео, делал так-же, только для ComboBox, но нет результата. Может в коде закралась ошибка?
Вот у меня какой код:
Private Sub ComboBox2_Change()
If ComboBox2.Text = "Яблоня толедо, RON 108" Then
Dim ImagePath As String
ImagePath = ThisWorkbook.Path & "\Image\"
Image2.Picture = LoadPicture(ImagePath & "RON108 Яблоня толедо.jpg")
End If
If ComboBox2.Text = "Венге, RON 015" Then
Dim ImagePath As String
ImagePath = ThisWorkbook.Path & "\Image\"
Image2.Picture = LoadPicture(ImagePath & "RON 015 Венге.jpg")
End If
End Sub

Сначала ошибки нет, но подсвечивается синим цветом
ImagePath As String для 2-го рисунка, появляется окно с надписью
compile error: duplicate declaration in current scope. А когда я убрал ImagePath As String для 2-го рисунка, то получаю ошибку
Run-time error '76':
Path not found.

[doober]

Добавил проверку наличия файла

Function IsExists(FileName) As Boolean
        Dim oFS: Set oFS = CreateObject("Scripting.FileSystemObject")
        If oFS.FileExists(FileName) Then
                IsExists = True
        Else
                IsExists = False
        End If
        Set oFS = Nothing
End Function
Private Sub ComboBox2_Change()
        Dim ImagePath As String
        ImagePath = ThisWorkbook.Path & "\Image\"
        If ComboBox2.Text = "Яблоня толедо, RON 108" And IsExists(ImagePath & "RON108 Яблоня толедо.jpg") Then
                Image2.Picture = LoadPicture(ImagePath & "RON108 Яблоня толедо.jpg")
        End If
        If ComboBox2.Text = "Венге, RON 015" And IsExists(ImagePath & "RON 015 Венге.jpg") Then
                Image2.Picture = LoadPicture(ImagePath & "RON 015 Венге.jpg")
        End If
End Sub

[Вадим12091965]

Все получилось. Большое спасибо.