29.06.2018, 08:25
Hallo schegg,
per VBA, bezogen auf Deine Beispieldatei, z.B. so:
per VBA, bezogen auf Deine Beispieldatei, z.B. so:
Sub RechteckeEinpassen()Gruß Uwe
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