automatische Schriftgröße in einer Textbox

Forumthread: automatische Schriftgröße in einer Textbox

29.08.2024 07:35:03

Romeo

Hallo zusammen,

ich habe die VBA Code um eine Textbox mit fester Größe zu erstellen. In diese Textbox sollen verschiedene Zeichen eingetragen werden.
Damit die Textbox nicht "überläuft" möchte ich die Schrift größe automatisch anpassen. Wie kann ich das bewältigen?

Sub Vierzig_h_Farbe()

' Vierzig_h_Farbe Makro

Sheets("Textbox").Select
Range("O4").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = Application.Dialogs(xlDialogPatterns).Show
End With

a = Range("O4").Interior.Color

ActiveSheet.Shapes.Range(Array("Rounded Rectangle 5")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = Range("O4").Interior.Color
.Transparency = 0
.Solid
End With

Selection.Copy
Sheets("Planung").Select
Range("C20").Select
ActiveSheet.Paste

End Sub

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: automatische Schriftgröße in einer Textbox

29.08.2024 08:26:06

MCO

AW: automatische Schriftgröße in einer Textbox

29.08.2024 08:26:06

MCO

Moin!

Geht zwar "etwas" über das hinaus, was du möchtest, gibt dir aber den richtigen Weg vor:

Das "with shp" entspricht dabei deinem "with Selection"
Sauberer ist es die Eigenschaften alle nacheinander im Objekt abzuarbeiten, statt für jede eingenschaft ein "With" zu machen.

Deine Anforderung wird direkt im ersten Absatz mit "size" erfüllt

    With shp

        .TextFrame.Characters.Text = txt

        Set t_range = .TextFrame2.TextRange

        With t_range

            With .Characters(1, t_range.Characters.Count).Font

                .Fill.ForeColor.RGB = RGB(255, 0, 0)

                .Size = 12

            End With

            For i = 0 To UBound(fett_beginn_arr) - 1

                With .Characters(fett_beginn_arr(i) - 2 * i, fett_ende_arr(i) - 3).Font

                    .Bold = msoTrue

                    .UnderlineStyle = msoUnderlineSingleLine

                End With

            Next i

        End With

        

        .ParagraphFormat.Alignment = msoAlignLeft

        .TextFrame2.VerticalAnchor = msoAnchorMiddle

        .TextFrame2.AutoSize = msoAutoSizeShapeToFitText

        

        With .Fill.ForeColor

            .ObjectThemeColor = msoThemeColorAccent3

            .Brightness = 0.400000006

        End With

        

        With .Line

            .Visible = msoTrue

            .ForeColor.ObjectThemeColor = msoThemeColorText1

            .Weight = 3

        End With

    End With

Gruß, MCO

Beliebteste Forumthreads (12 Monate)

automatische Schriftgröße in einer Textbox

Forumthread: automatische Schriftgröße in einer Textbox

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread