Ok, Joseph. I have not added the initialization code you provided. I have been trying the other (see code below) and it works the first time. The second time (after closing the userforms and opening them again), the attempting to input a picture into the now empty image control using the same code (below) causes excel to crash. In order to make the workbook work again I have to reboot the computer.
Private Sub Vio1ChoosePhoto1_Click()
Dim myFiles As String
ChDir "C:\$0Temp"
myFiles = Application.GetOpenFilename(, , , , False)
If myFiles = "" Then Exit Sub
Worksheets("Photos").Activate
ActiveSheet.Pictures.Insert(myFiles).Select
Selection.CopyPicture xlScreen, xlPicture
With Violations1.Image1
.Picture = PastePicture(xlPicture)
.PictureSizeMode = fmPictureSizeModeZoom
End With
End Sub
Bookmarks