Shapes-Größe
18.06.2022 10:00:42
Stefan
Sub Test_Textfeld3()
Dim intLeft%, intTop%, intWidht%, intHeight%, intSpace%
Dim wks As Worksheet
Dim strText$
intLeft = 1
intTop = 1
intWidht = 400
intHeight = 400
intSpace = 10
Set wks = Worksheets(1)
strText = "Textfeld1"
wks.Shapes.AddShape(msoShapeRoundedRectangle, intLeft, intTop, intWidht, intHeight).Name = strText
wks.Shapes(strText).TextFrame2.TextRange.Characters.Text = strText
End Sub
fügt ein Shape auf dem Tabellenblatt ein. Da Widht und Hight gleich sind ist es quadratisch - aber leider nicht beim Drucken. Die gedruckte Form hat eine Höhe von 136mm und eine Breite von 156mm.
Wie kann das sein? Welche Ursache kann das haben?
Danke
Stefan