
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