Bild suche und kopieren
Günter
ich habe mal wieder ein Problem an dem ich hänge.
Ich möchte aus einer Mappe ein bestimmtes Bild in eine andere Mappe kopieren.
dazu habe ich folgendes geschrieben:
For Each Sh In VV.Shapes
If Sh.Type = 13 And Sh.Height > 100 Then
MsgBox Sh.Type & " " & Sh.Name
Sh.Select
Selection.Copy
NN.Activate
NN.Range("M3").Select
ActiveSheet.Paste
End If
Next Sh
Sh.select
Mit der MsgBox bekomme ich das richtige Bild angezeigt.
Was mache ich falsch?
Danke im Voraus.
Gruß Günter