Ich habe ein Problem mit dem auswählen eines Bereichs in dem ein Bild liegt.
Wenn ich den Makro Recorder laufen lasse, habe ich das Problem das der Bildname fest steht. Die Grafik Name ist aber jedes mal ein anderer.
Momentan benutze ich dazu folgenden Code um ein Bild deren Name mir nicht bekannt ist zu kopieren und einzufügen:
Sub UnterschriftenKopieren()
Dim Bild As Shape
For Each Bild In Sheets("K Sander-EB").Shapes
If Bild.TopLeftCell.Address = "$R$54" Then
Bild.Copy
With Sheets("K Dateninput-USV")
.Paste .Range("$W$68")
End With
End If
Next
End Sub
Leider ist es so das der Bereich in dem das Bild gesucht wird R54 ist. Eigentlich soll aber ein Bereich von R54 bis AG57 durchforstet werden.Außerdem würde ich das Bild das im Bereich R54 bis AG57 liegt gern in seiner größe so verkleinern das es anstatt zB. 150x300 Pixel nur noch 100x200 hat.
Kann mir da jemand weiterhelfen? Am liebsten wäre mir ein Code Schnipsel, da ich nicht so versiert bin.
(PS ich habe nicht Cross Gepostet)