Bilder und zeichnungen in Spalten integrieren

[Kuwer]

Hallo schegg,

per VBA, bezogen auf Deine Beispieldatei, z.B. so:

Sub RechteckeEinpassen()
  Dim i As Long
  For i = 1 To 4
    With ActiveSheet.Shapes("Rechteck " & i)
      .Width = .TopLeftCell.Width - 1
      .Height = .TopLeftCell.Height - 1
      .Top = .TopLeftCell.Top + 0.5
      .Left = .TopLeftCell.Left + 0.5
    End With
  Next i
End Sub

Gruß Uwe