Visual Basic - Correccion codigo Importar Foto

Sub ImportPicture()

Dim row As Long

Dim i As Long

Dim Blatt As Long

Dim picPath As String

Dim Picture As Object

Dim dHeight As Double

Dim dWidth As Double

Dim mylmg As Object

Blatt = 12

Blatt = Blatt * 19 + 32

row 52

On Error Resume Next

While Cells(row, 7) <> ""

picPath = "K:\11PCB\99FAROLEAN\C_Dokumente und Vorlagen\Logo\FAROLEAN_LOGO.jpg" + Cells(row, 7) + "jpg"

Sheets(Hoja2).Select

i = 32

On Error Resume Next

While i <> Blatt

Cells(12, i).Select

Set mylmg = ActiveSheets.Pictures.Insert(picPath)

With mylmg

dWidth = .Width

dHeight = .Height

.Width = 300

.Height = 200

End With

mylmg.Top = ActiveCell.Top

mylmg.Left = ActiveCell.Left

Rows(row).RowHeight = mylmg.Height

i = i + 19

Wend

End Sub

Sub ImportPicture()

Dim ro As Long

Dim i As Long

Dim Blatt As Long

Dim picPath As String

Dim Picture As Object

Dim dHeight As Double

Dim dWidth As Double

Dim mylmg As Object

Blatt = 12

Blatt = Blatt * 19 + 32

'asumo que en las celdas de la columna 7 de la hoja1 estan el nombre de las imagenes que deseas cargar

'no se si row es palabra reservada asi que coloque ro

ro = 52

On Error Resume Next

While Cells(ro, 7) <> ""

picPath = "K:\11PCB\99FAROLEAN\C_Dokumente und Vorlagen\Logo\" + Cells(row, 7) + ".jpg"

Sheets(Hoja2).Select

i = 32

On Error Resume Next

' no se si el valor de blat es mutiplo de 19 por lo que coloque < en lugar de <>

While i < Blatt

Cells(12, i).Select

Set mylmg = ActiveSheets.Pictures.Insert(picPath)

With mylmg

dWidth = .Width

dHeight = .Height

.Width = 300

.Height = 200

End With

mylmg.Top = ActiveCell.Top

mylmg.Left = ActiveCell.Left

Rows(ro).RowHeight = mylmg.Height

i = i + 19

Wend

' si no increentas la varioable ro queda en loop infinito

ro = ro + 1

wend

End Sub