Shapes Textausrichtung
23.06.2022 23:13:00
Stefan
intNameLen = Len(strShapeName)
intCurrLen = Len(FormatCurrency(curBetrag))
intSpaces = (intCountChar - intNameLen - intCurrLen)
For bytX = 1 To intSpaces
strSpace = strSpace & Chr(115)
Next bytX
strText = strShapeName & strSpace & FormatCurrency(curBetrag)
Debug.Print Len(strText)
With Sheets(1)
.Shapes.AddShape(msoShapeRoundedRectangle, intLeft, intTop, intWidht, intHeight).Name = strShapeName
.Shapes(strShapeName).TextFrame2.TextRange.Characters.Text = strText
End With
wird beliebiger Text geteilt und mit x bis zu einer bestimmten Zeichenanzahl aufgefüllt. Leider ist es so nicht möglich den Text rechts- und linksbündig auszurichten. Ich habe es bereits mit der Space-Funktion und anderen Zeichen versucht - es ergiebt sich einfach kein ordentliches Bild....
gibt es einen Lösung Text in einem Shape so darzustellen das linksbündig der Zahlungsgrund und rechtbündig der Betrag dargestellt wird?
Danke - Stefan