Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen

Txtbox hoehe automatisch anpassen | Herbers Excel-Forum


Betrifft: Txtbox hoehe automatisch anpassen von: Dirk aus Dubai
Geschrieben am: 13.10.2008 22:18:33

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

  

Betrifft: AW: Textbox-Höhe automatisch anpassen von: Erich G.
Geschrieben am: 15.10.2008 20:15:46

Hallo Dirk,
was ist MyRange? Da soll doch einfach nur der Top-Wert stehen.
TextRange und BoundHeight hast du wohl der PowerPoint-Welt entliehen. Mein Excel-VBA kennt das nicht.

Probier mal das:

Sub tst()
   Dim sngWidth As Single, MyRange As Single
   
   MyRange = 11   ' ist Top, warum dieser Variablenname?
   sngWidth = 500
   ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
      40, MyRange, sngWidth, 60).Select
   With Selection
      With .Characters.Font
         .Name = "Arial"
         .FontStyle = "regular"
         .Size = 14
         .ColorIndex = xlAutomatic
      End With
      .ShapeRange.LockAspectRatio = msoFalse
      .Text = "aaaaaaaaa bbbbbbbbbb aaaaaaaaa" & vbLf _
         & "aaaaaaaaa bbbbbbbbbb " & vbLf _
         & "aaaaaaaaa bbbbbbbbbb aaaaaaaaa bbbbbbbbbb "
      .AutoSize = True
      .Width = sngWidth
   End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort


  

Betrifft: AW: Textbox-Höhe automatisch anpassen von: Dirk aus Dubai
Geschrieben am: 16.10.2008 10:52:32

Hallo Erich,

danke fuer Deine Antwort.

Du hast recht. Ich erzeuge die Textbox in einer Powerpoint presentation und befuelle sie mit den Werten aus dem aktiven Blatt.

a mein Macro in Excel laeuft, aber in PP aktionen ausfuehrt, war ich der Meinung, das dann auch die PP Anweisungen funktionieren sollten.

Ich werde dein Macro mal ausporbieren.

Gruss

Dirk aus Dubai


Beiträge aus den Excel-Beispielen zum Thema "Txtbox hoehe automatisch anpassen"