Shapes zentrieren im bestimmten Bereich
25.11.2018 23:03:04
Fred
Ich habe eine Tabell mit bis zu hunderten Shapes und habe im Netzt einen Code gefunden, womit ich diese in der Zelle zentrieren kann. Das Problem ist wenn ich den Code für das ganze Blatt anwende funktioniert er sehr gut, zerstörrt dann aber die Ansicht meiner Tabelle. Deshalb habe ich gedacht ich beschränke den Code auf einen Bestimmten Bereich damit meine Tabelle erhalten bleibt dann meckert aber der Debugger rum das das Objekt nicht unterstütz wird. Weis jemand Rat wie ich den Code abändern müsste damit nur im Bereich A3 Bis W32 die Shapes zentriert werden?
Public Sub Center_Picture()
Dim objShape As Shape
For Each objShape In Sheets("Brandschutz_Kreuz").Range("A3:W32").Shapes
With objShape
If .Type = msoPicture Then
.Left = .TopLeftCell.Left + .TopLeftCell.Width / 2 - .Width / 2
.Top = .TopLeftCell.Top + .TopLeftCell.Height / 2 - .Height / 2
End If
End With
Next
End Sub
Grüße fred