AddShape pixelgenau, Versatz 5pixel?
27.01.2023 07:49:47
Chuck
ich versuche mehrere Shapes in ein Excelblatt einzufügen.
Es geht hier um einfache Rechtecke, die - ohne Lücke - direkt nebeneinander und untereinander eingefügt werden sollen.
Es entstehen dabei Lücken zwischen den Spalten und Überlappungen, die sich mir nicht erklären.
Hier der Code:
Sub kasten_build()
Dim sh As Object
Dim i, m As Integer
Kasten_width = 60
Kasten_Length = 70
Bwidth = 6
Blength = 8
For i = 0 To Bwidth - 1
For m = 0 To Blength - 1
Set sh = Worksheets("Blatt1").Shapes.AddShape(msoShapeRectangle, 120 + i * (Kasten_Length), 350 + m * (Kasten_width), Kasten_width, Kasten_Length)
sh.Name = "Position-" & m + 1 & "x" & i + 1
Next
Next
End Sub
Grüsse Anzeige