Shape in Zellen positionieren
Gregor
Mit folgendem Code setze ich Shapes in der Spalte A Zeilen 4 bis 7 (es können auch mehr sein).
Sub test()
With Sheets("Tabelle1")
.Cells(4, 2).Value = "Zeile 4"
Set shp = .Shapes.AddShape(msoShapeOval, 40, 40, 9.75, 9.75)
shp.Fill.ForeColor.SchemeColor = 5
shp.Name = "Ellipse 1"
.Cells(5, 2).Value = "Zeile 5"
Set shp = .Shapes.AddShape(msoShapeOval, 40, 53, 9.75, 9.75)
shp.Fill.ForeColor.SchemeColor = 4
shp.Name = "Ellipse 2"
.Cells(6, 2).Value = "Zeile 6"
Set shp = .Shapes.AddShape(msoShapeOval, 40, 66, 9.75, 9.75)
shp.Fill.ForeColor.SchemeColor = 2
shp.Name = "Ellipse 3"
.Cells(7, 2).Value = "Zeile 7"
Set shp = .Shapes.AddShape(msoShapeOval, 40, 79, 9.75, 9.75)
shp.Fill.ForeColor.SchemeColor = 3
shp.Name = "Ellipse 4"
End With
End Sub
Ich stelle fest, dass diese manchmal von dieser Position abweichen, das heisst nicht in der gewünschten Zelle (A4, usw) positioniert werden.
Wie kann ich die Shapes zellbezogen, zB rechts, in der Mitte oder links einer definierten Zelle positionieren?
Vielen Dank
Gregor