Markierten Zellbereich nutzen, statt B2:B42
12.12.2024 12:23:55
Dieter(Drummer)
Suche die Variante, den markierten Zellbereich zu nutzen, statt "Range("B2:B42").
Mein jetziger Code (aus Herber ...), der gut funktioniert, aber eben nicht auf markierten Zellbereich bezogen.
Mit der Bitte um Anpassung des Codes,
grüßt, Dieter(Drummer)
Jetziger Code, der Shapes in Zelle zentriert:
Public Sub Center_Picture()
Dim objShape As Shape
For Each objShape In Worksheets("Tabelle1").Shapes
With objShape
If .Type = msoPicture Then
If Not Intersect(.TopLeftCell, Worksheets("Tabelle1").Range("B2:B42")) _
Is Nothing Then
.Left = .TopLeftCell.Left + .TopLeftCell.Width / 2 - .Width / 2
.Top = .TopLeftCell.Top + .TopLeftCell.Height / 2 - .Height / 2
End If
End If
End With
Next
End SubAnzeige