ich habe aus einem größeren Projekt ein Tabellenblatt (Eingabe) kopiert und in eine neue Arbeitsmappe gepackt.
auf einem zweiten Tabellenblatt steht der Pfad zu einem Bild.
Ich möchte auf dem Blatt "Eingabe" an der Stelle "Z55" die bestehende Grafik löschen und die im Pfad hinterlegte Grafik einfügen.
Mit dem folgenden Code klappt das wunderbar:
Sub grafikeinfügen()
Dim p As Picture
Dim S
Dim Pfad As String
ThisWorkbook.Worksheets("Tabelle1").Activate
Pfad = Cells(2, 2)
Worksheets("Eingabe").Visible = xlSheetVisible
ThisWorkbook.Worksheets("Eingabe").Activate
For Each S In ThisWorkbook.Worksheets("Eingabe").Shapes
If Not Intersect(S.TopLeftCell, Cells(55, 26)) Is Nothing Then S.Delete
Next S
On Error GoTo weiter
Set p = ActiveSheet.Pictures.Insert(Pfad)
p.Left = Range("Z55").Left
p.Top = Range("Z55").Top
p.Height = 50
'p.Width = 70
weiter:
Worksheets("Eingabe").Visible = xlSheetVeryHidden
End Sub
Also habe ich den Code kopiert und in das große Projekt eingefügt.
Jetzt bricht das Programm bei der intersect Programmzeile ab (ohne Fehlermeldung)
Dann habe ich diesen Teil (löschen) auskommentiert und wollte wenigstens wissen ob der Einfügen Teil klappt.
Das Bild wird zwar eingefügt, jedoch nicht in Z55 sondern in AR36.
Hat irgendjemand eine Idee warum das so ist?
Und wie die Grafik sich trotzdem in Z55 positionieren lässt?
Dirk