Hallo nochmal,

OCR ist wie gesagt leider nicht möglich. Und auch sonst ist das so wie du dir das vorstellst leider nicht umsetzbar. Du markierst mit einem Shape einen Teil eines anderen Shapes und erwartest, dass nur dieser Teil kopiert wird. Warum machst du das nicht einfach mit dem Snipping Tool? Damit kannst du Bildteile markieren kopieren und wieder einfügen, allerdings nur manuell. Per VBA ist die verknüpfte Grafik eine mögliche Lösung. Allerdings wird das dann inkl. des blauen Rahmens angezeigt. Und du darfst das große Bild nicht verschieben oder löschen, denn sonst wird das in den verknüpften Grafiken angepasst. Habe deinen Code minimal angepasst und die Verknüpfung auf false gesetzt. Versuche mal.

Option Explicit

Sub RFB_Link()
   
    
'PURPOSE: Determine the currently selected shape
Dim rfbsheet As String
Dim shapename As String
Dim ActiveShape As shape
Dim UserSelection As Variant

rfbsheet = ActiveSheet.Name
'Pull-in what is selected on screen
  Set UserSelection = ActiveWindow.Selection
  

'Determine if selection is a shape and set active shape and save it's name in the string "shapename"
  On Error GoTo NoShapeSelected
    Set ActiveShape = ActiveSheet.Shapes(UserSelection.Name)
    shapename = ActiveShape.Name
    Range(ActiveShape.TopLeftCell, ActiveShape.BottomRightCell).Copy
    
  On Error Resume Next

'Change to Input data Sheet an write the name of the sheet and the name of the object into the selected cell

    Sheets("Input data").Select
    ActiveCell.Value = rfbsheet & "_" & shapename
    ActiveCell.Offset(0, -1).Select
    ActiveSheet.Pictures.Paste(link:=False).Select
    Selection.TopLeftCell.EntireRow.RowHeight = Selection.Height
    
Exit Sub

'Error Handler
NoShapeSelected:
  MsgBox "Please select a shape"

End Sub