Shape zeigt nicht den gesamten Text

Question

Ich muss mit einer Zahl beschriftete Formen erstellen, aber die Form zeigt nicht die ganze Zahl.

Zum Beispiel, wo die Zahl 1 bis 9 ist es angezeigt, aber für 10 bis 19 es zeigt nur 1.

Ich will nicht, um den Radius ändern es das gleiche sein.

Sheets(xRiS).Select 
Dim textRectangles As Shape 
Dim radius As Integer 
radius = 15 

Set textRectangles = ActiveSheet.Shapes.AddShape(msoShapeOval, (Range("D13").Left - radius/2), _ 
    Range("D13").Top - radius/2, radius, radius) 

textRectangles.Name = "Groups " & i 
textRectangles.TextFrame.Characters.Text = i 
textRectangles.TextFrame.VerticalAlignment = xlVAlignCenter 
textRectangles.TextFrame.HorizontalAlignment = xlHAlignCenter 
textRectangles.TextFrame.Characters.Font.Size = 9 
textRectangles.TextFrame.Characters.Font.Name = "Georgia" 
textRectangles.Fill.ForeColor.RGB = RGB(220, 105, 0) 
textRectangles.Fill.Transparency = 0.5 

Dies ist das aktuelle Ergebnis:

Dies ist das Ergebnis Ich möchte:

Wie kann ich konfigurieren, dass die Form die Nummer anzuzeigen, wo die Nummer ist 10-19?

Answer 1

Es gibt ein paar theoretische Optionen, aber beide scheinen nicht zu funktionieren mit radius = 15 und textRectangles.TextFrame.Characters.Font.Size = 9.

Zuerst ist textRectangles.TextFrame.AutoSize = True die Größe der Form, um den Text zu beheben - jedoch wird dies die radius deutlich erweitern.

Zweite ist textRectangles.TextFrame2.AutoSize = msoAutoSizeTextToFitShape - dies funktioniert jedoch nur, wenn der Mindestwert radius = 33 ist.

Möglicherweise müssen Sie den Radius erhöhen.