Hallo Forum,
wie kann ich excel per VBA veranlassen, die Hoehe einer Textbox entsprechend dem eingefuegten Text anzupassen, dabei aber die Breite beizubehalten?
Meine Textbox wird mitfolgendem Kommando kreiert:
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 40, MyRange, 500, 60).Select
und mit folgenden Anweisungen formatiert:
With Selection.Characters.Font
.Name = "Arial"
.FontStyle = "regular"
.Size = 14
.ColorIndex = xlAutomatic
End With
Leider funktioniert folgende Anweisung nicht:
With Selection.Height = Selection.TextFrame.TextRange.BoundHeight + 5
end with
Bin fuer jede Hilfe dankbar!
Gruesse
Dirk aus Dubai