Automatische Ausrichtung von Bildern
24.12.2020 19:42:18
Bildern
ich möchte alle, die sich in einem Blatt befinden automatisch positionieren.
Ich habe dafür folgenden Code:
Public Sub Center_Picture()
Dim objShape As Shape
For Each objShape In Tabelle1.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
Soweit funktioniert das. Jedoch habe ich das Problem, dass ich bei den Platzhaltern verbundene Zellen habe und die Ausrichtung nur nach einer der verbundenen Spalten ausgerichtet wird und nicht nach der verbundenen Zelle (in der Mitte der Spalten B,C,D sowie in der Mitte der Spalten F,G,H,I,J,K,L und in der Mitte der Spalten O,P,Q,R).
Könnt ihr mir hier bitte bitte weiterhelfen?
Vorab vielen Dank!
LG
Daniel