Ich habe das folgende Programm hier aus dem Archiv (vielen Dank - ich glaube Sepp hat es geschrieben vielen dank Sepp ) es fungkioniert auch soweit
Es sucht in Spalte A eine Foto Adresse und fügt das Bild ein.
Leider in zu großer Größe und immer übereinander.
Gibt es eine Möglichkeit das Foto auch in die Zelle neben der AdressZelle (zB A2) an Zellgrösse b2 einzufügen
gibt es hierzug eine Lösung ?
vielen Dank im voraus
Stefan
Dim rng As Range
Dim lngR As Long
Dim i As Integer
Dim wks As Worksheet
Set wks = ActiveSheet
On Error Resume Next
Application.ScreenUpdating = False
If blnChk = False Then
lngR = wks.Range("A65536").End(xlUp).Row
blnChk = True
For Each rng In wks.Range("A2:A" & lngR)
If rng "" And rng.Rows.Hidden = False Then
rng.Select
wks.Pictures.Insert(rng.Value).Name = "Bild_" & intC
rng.RowHeight = wks.Pictures("Bild_" & intC).Height
intC = intC + 1
End If
Next
Else
For i = 0 To intC - 1
wks.Pictures("Bild_" & i).Delete
Next
wks.Range("A:A").Rows.AutoFit
blnChk = False
intC = 0
End If
Application.ScreenUpdating = True