DANKE P@ulchen! Habe aber noch eine kurze Frage!
11.05.2004 22:57:25
Peter
Ursprüngliches Problem :
Hi Peter,
die nachfolgenden Codes mußt Du gegebenenfalls noch anpassen. Ich habe sie getestet, laufen bei mir ohne Probleme.
Entweder erstellst Du Dir im Blatt Schaltflächen und weist ihnen die Codes zu oder Du startest die Codes im Workbook_Open(Bilder_einfügen) bzw. Workbook_BeforeClose(Bilder_löschen).
Im Augenblick funktioniert der Code für jpg-Grafiken.
Sub Bilder_einfügen()
Dim pic As Picture
Dim xRow As Integer
Dim xName As String
On Error Resume Next
xRow = [X65536].End(xlUp).Row
For i = 4 To xRow
Range("Y" & i).Activate
xName = Range("X" & i).Value
Set pic = ActiveSheet.Pictures.Insert("D:\Produktabbildungen\" & xName & ".jpg")
With pic
.Left = ActiveCell.Left
.Top = ActiveCell.Top
.Width = ActiveCell.Width
.Height = ActiveCell.Height
End With
Next
End Sub
Sub Bilder_löschen()
For i = ActiveSheet.Pictures.Count To 1 Step -1
If Left(ActiveSheet.Pictures(i).Name, 3) <> "Com" Then
ActiveSheet.Pictures(i).Delete
End If
Next
End Sub
Gruß aus Leipzig
P@ulchen
===========================================================================
DANKE ! ... war wieder ein Super TIP!
Habe leider noch ein kleines Problem:
Wenn ich den Code einbinde funktioniert er einwandfrei, sobald ich jedoch einige Zeilen bearbeite, Zeilen einfüge .... dann kommt das Ganze aus dem Ruder.
Die Bilder werden an anderen Stelle (tiefere Zelle) oder es wir garnichts angezeigt...
Hier ist die Demodatei:
https://www.herber.de/bbs/user/6246.xls
Könnt Ihr bitte nochmals einen Blick darauf werfen?
Schon jetzt besten Dank
Schönen Gruß
Thomas