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.
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.