Snasui Excel Forum

Code: Select all

Dim picPath As String

Private Sub Addimage_Click()
   'Other code
    If sFile <> "" Then
        Image1.picture = LoadPicture(sFile)
    End If
    picPath = sFile
End Sub

Private Sub CommandButton2_Click()
    Dim audit_date, auditor, comment, department, place, responce_within, Img As String
    Dim rowlast As Integer, imgIcon As Object
    'Other code
    Sheet2.Range("G" & rowlast).Value = responce_within
    With Worksheets("Data Base")
        Set imgIcon = .Shapes.AddPicture( _
            Filename:=picPath, _
            LinkToFile:=False, saveWithDocument:=True, _
            Left:=.Cells(rowlast, "c").Left, Top:=.Cells(rowlast, "c").Top, _
            Width:=.Cells(rowlast, "c").Width, Height:=.Cells(rowlast, "c").Height)
    End With
    TextBox1.Text = ""
    'Other code

Code: Select all

'Other code
With Worksheets("Data Base")
    If picPath <> "" Then
        Set imgIcon = .Shapes.AddPicture( _
            Filename:=picPath, _
            LinkToFile:=False, saveWithDocument:=True, _
            Left:=.Cells(rowlast, "c").Left, Top:=.Cells(rowlast, "c").Top, _
            Width:=.Cells(rowlast, "c").Width, Height:=.Cells(rowlast, "c").Height)
            picPath = ""
    End If
End With
'Other code