Embed a Picture (with Code)

[AlexanderBB]

I have a .bmp image I'd like on my worksheet via code, but not having much success.

pname= "D:\logo4.bmp"
With Worksheets("Test")
  .shapes.addpicture(pname,False, True,100, 10, -1, -1)
End With

It won't compile, tells me "Expected = "

Thanks for any help

 

[Domenic]

Try removing the brackets around the arguments for AddPicture...

.Shapes.AddPicture pname, False, True, 100, 10, -1, -1

Hope this helps!

 

[lrobbo314]

Something like this. This is some old code, so you can adjust the parameters of the addpicture function.

Private Sub InsertPic(filePath As String, ByVal insertCell As Range)
    Dim xlShapes As Shapes
    Dim xlPic As Shape
    Dim xlWorksheet As Worksheet

    If IsEmpty(filePath) Or Len(Dir(filePath)) = 0 Then
        MsgBox ("File Path invalid")
        Exit Sub
    End If

    Set xlWorksheet = Sheets("Test")
    
    Set xlPic = xlWorksheet.Shapes.AddPicture(filePath, msoFalse, msoCTrue, insertCell.Left, insertCell.Top, insertCell.Width, insertCell.Height)
    xlPic.Placement = xlMoveAndSize
    xlPic.LockAspectRatio = msoCTrue
End Sub

Sub test()
InsertPic "C:\Users\Pictures\Picture.bmp", Range("A1")
End Sub

 

[AlexanderBB]

Many thanks, it was the brackets, but much appreciate the other example.