Hepl with Import picture in Excel

[KlausW]

Hi, I found this code from Barb Henderson.
Works great. j I have a small challenge, in column B, starting with B2 are the names of the images to be imported, for this I use a formula. Sometimes the cell is empty, but there is still a formula in it.

So, I get this error in this line.

ActiveSheet.Pictures.Insert("C:\Users\k-wit\Documents\Rejseafregning\" & pictname & ".png").Select 'Path to where pictures are stored

Someone who can help, all help will be appreciated.

Best regards Klaus W

 

[JackDanIce]

Maybe:

If Len(Trim(pictname)) > 0 Then
  ActiveSheet.Pictures.Insert("C:\Users\k-wit\Documents\Rejseafregning\" & pictname & ".png").Select 'Path to where pictures are stored
End If

 

[KlausW]

No I got an error in
.Left = Cells(pasterow, 2).Left + (Cells(pasterow, 3).Width - .Width / 1)

 

[KlausW]

Forgot VBA code.

Sub Rektangelafrundedehjørner1_Klik()

Dim pictname As String
Dim pastehere As Range
Dim pasterow As Long
Dim x As Long
Dim lastrow As Long

lastrow = Worksheets("Billeter").Range("B1").CurrentRegion.Rows.Count
x = 2
For x = 2 To lastrow
Set pastehere = Cells(x, 1)
pasterow = pastehere.Row
Cells(pasterow, 1).Select 'This is where picture will be inserted

pictname = Cells(x, 2) 'This is the picture name
If Len(Trim(pictname)) > 0 Then
ActiveSheet.Pictures.Insert("C:\Users\k-wit\Documents\Rejseafregning\" & pictname & ".png").Select 'Path to where pictures are stored
End If

With Selection

.Left = Cells(pasterow, 2).Left + (Cells(pasterow, 3).Width - .Width / 1)
.Top = Cells(pasterow, 2).Top + (Cells(pasterow, 1).Height - .Height / 1.1)



.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 370#
.ShapeRange.Width = 470#
.ShapeRange.Rotation = 0#
End With

Next


End Sub

 

[KlausW]

The code should look for the last cell in column B include image names, not the formula stated in.

 

[KlausW]

I got

The code should look for the last cell in column B include image names, not the formula stated in.

I found another solution not a code. Thanks

 

[smozgur]

I found another solution not a code. Thanks

Do you mind briefly mentioning the solution even it is not a code? Then it is perfectly fine to mark it as a solution.