работа с Image

Программирование на Visual Basic for Applications
Штурман
Новичок
Новичок
 
Сообщения: 37
Зарегистрирован: 25.07.2003 (Пт) 10:47
Откуда: Москва

работа с Image

Сообщение Штурман » 25.07.2003 (Пт) 10:54

Кто нибудь,объясните,почему один и тот же код в одной книге работает,а в другой кричит что нет такого объекта Run-time Error 424, хотя все папки и файлы на месте,и во время выполнения кода переменные принимают нужные значения.Второй день бьюсь,крыша скоро поедет :evil:
Private Sub ComboBoxShifr_Change()
'как получается р не стал показывать,но там все правильно
проф1 = Sheets("каталог").Cells(p, 6)
проф = "C:\профиля\" & проф1

With UserFormGlavn
On Error GoTo Errors1

With Image1
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeZoom
.Picture = LoadPicture(проф)

GoTo Ends:
Errors1:
.Picture = LoadPicture("C:\профиля\проф.jpg")
Resume Next
Ends:
End With
End With
End Sub

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 25.07.2003 (Пт) 15:56

With Image1

Имхо, точки не хватает перед image1

Штурман
Новичок
Новичок
 
Сообщения: 37
Зарегистрирован: 25.07.2003 (Пт) 10:47
Откуда: Москва

Сообщение Штурман » 28.07.2003 (Пн) 10:14

Не сточкой нормально,я тут на выходных повозился и заметил такую закономерность,если код привязан к кнопке,все путем,а если под кнопкой что нибудь типа "выполнить макрос такой то",то тут начинаеться глюк.В пошаговом режиме все переменные принимают нужные значения,но на строке .Picture = LoadPicture(проф)
говорит что нет такого объекта.Хотя повторяю,все на месте и переменная "проф" принимаем значение с правильными путями и прекрасно определяет нужный файл.
Закономерность то я выявил,но эт меня не спасает,потму как макрос должен отрабатываться с шести разных кнопок,а проект и так перегружен


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 61

    TopList