VBA to insert picture

[saekehoe]

I am working on a macro to insert an electronic signature based on the password that the user inputs. I use the vlookup function to match the password to the image location. However, I am haing trouble getting the image to show up in the document. my vba code is below:

with this code i keep recieving the error: 1004 Unable to get the insert property of the picture class.

vb
Option Explicit
Private Sub cmdSignature1_Click()
Dim strPassword As String
Dim rngSigloc As Range
Dim varLocation As Variant
Dim rngSig1 As Range
Dim rngpassword As Range
Dim pfind As Range
Set rngSig1 = Range("signature1")
Set rngSigloc = Range("PasswordFind")
Set rngpassword = Range("a1")
Set pfind = Range("passwordfind")
strPassword = InputBox("Please enter your password")
Sheets("signature").Select
Range("A1").Select
ActiveCell.Value2 = strPassword
varLocation = Application.WorksheetFunction.VLookup(rngpassword, pfind, 2, False)
Debug.Print varLocation
Sheets("101 IR FORM").Select

rngSig1 = ActiveSheet.Pictures.Insert(varLocation).Select
Selection.ShapeRange.ScaleHeight 0.25, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.4, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 159#
Selection.ShapeRange.IncrementTop 2#

end sub

vb



Any help or suggestions would be greatly appreciated.

 

[klarowe]

It may be able to be simplified, but this is the code I use for a series of reports I have:

Sub Signature()
User:   UserName = LCase(InputBox("Please enter username.", "Username", vbOKCancel))
        If UserName = "" Then Exit Sub
        If UserName = "'first user" Then
PWordJS:        Password = InputBox("Please enter password.", "Password", vbOKOnly)
                If Password = "" Then Exit Sub
                If Password = "'password" Then
                    Sheets("Home").Range("C27").Select
                    ActiveSheet.Pictures.Insert( _
                    "'location of picture/image" _
                    ).Select
                    Selection.ShapeRange.LockAspectRatio = msoFalse
                    Selection.ShapeRange.Width = 168#
                    Selection.ShapeRange.Height = 15#
                    Selection.ShapeRange.IncrementTop 2.25
                    Selection.ShapeRange.IncrementLeft 0.75
                Else:
                    MsgBox "You have entered an incorrect password.", vbOKOnly, "Incorrect Password"
                    GoTo PWordJS
                End If
        
        ElseIf UserName = "'2nd user" Then
PWordDM:        Password = InputBox("Please enter password.", "Password", vbOKOnly)
                If Password = "" Then Exit Sub
                If Password = "2nd password" Then
                    Sheets("Home").Range("C27").Select
                    ActiveSheet.Pictures.Insert( _
                    "'location of 2nd image" _
                    ).Select
                    Selection.ShapeRange.LockAspectRatio = msoFalse
                    Selection.ShapeRange.Width = 168#
                    Selection.ShapeRange.Height = 15#
                    Selection.ShapeRange.IncrementTop 2.25
                    Selection.ShapeRange.IncrementLeft 0.75
                Else:
                    MsgBox "You have entered an incorrect password.", vbOKOnly, "Incorrect Password"
                    GoTo PWordDM
                End If
        Else:
            MsgBox "You have entered an incorrect user name.", vbOKOnly, "Incorrect User Name"
            GoTo User
        End If
End Sub

 

[saekehoe]

Thanks!

That is exactly what I was trying to do, but your code is much more refined than mine.

 

[saekehoe]

klarowe,

When i put in my file location, I get the error again... what could be causing this?

Thanks,

Scott