fout 400

[podestron]

hallo iedereen

Eerst en vooral even zeggen dat ik een leek ben op vlak van macro's en VBA.
Ik heb het volgende probleem.

Ik heb een werkmap met 11 bladen. Op blad 11 zit volgende macro:

Sub InsertPicture()
Dim i As Integer
i = 5
Do Until Cells(i, 2).Value = ""
With ActiveSheet.Pictures.Insert( _
ThisWorkbook.Path & "\" & Cells(i, 2).Value)
.Top = Cells(i, 2).Top
.Left = Cells(i, 3).Left
.Width = (.Width / .Height) * Cells(i, 2).Height
.Height = Cells(i, 2).Height
End With
i = i + 1
Loop
End Sub

Deze heb ik ergens op het net gevonden. Er wordt dus een foto opgehaald als de naam van de foto in de kolom ervoor staat.
Als ik deze macro uitvoer geeft hij steeds foutmelding 400. Ik begrijp niet goed wat het probleem is. Heb ergens gelezen dat het iets met beveiligde bladen had te maken dus ik het ze allemaal onbeveiligd gezet maar dit helpt ook niet.

Weet iemand wat ik hier fout doe en beter hoe ik dit moet oplossen?

bedankt.

 

[trucker10]

@podestron welkom op het forum , je kan de fout opzoeken door op Alt F11 te drukken dan waar de macro staat door de code te lopen met de F8 toets en kijken waar hij blokkeert ga met je muis daar opstaan en druk F1 . kleine hint gebruik het # op het invulformulie teken om de code te plaatsen

Sub InsertPicture()
Dim i As Integer
i = 5
Do Until Cells(i, 2).Value = ""
With ActiveSheet.Pictures.Insert( _
ThisWorkbook.Path & "\" & Cells(i, 2).Value)
.Top = Cells(i, 2).Top
.Left = Cells(i, 3).Left
.Width = (.Width / .Height) * Cells(i, 2).Height
.Height = Cells(i, 2).Height
End With
i = i + 1
Loop
End Sub

Dit leest voor de helpers beter