Início / coding / Perguntas / 79423528
Accepted
Kram Kramer
Asked: 2025-02-09 00:23:34 +0800 CST

Tamanho automático do texto para ajustar à forma via vba

  • 772

Execute o código a seguir.

Sub Macro1()

'Delete all shapes
For i = ActiveSheet.Shapes.Count To 1 Step -1
    ActiveSheet.Shapes(i).Delete
Next i

'Add rectangle
With ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left:=50, Width:=100, Top:=50, Height:=40)
    .TextFrame2.MarginLeft = 0
    .TextFrame2.MarginRight = 0
    .TextFrame2.MarginTop = 0
    .TextFrame2.MarginBottom = 0
    .TextFrame2.VerticalAnchor = msoAnchorMiddle
    .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
    .TextFrame2.TextRange.Font.Size = 30
    .TextFrame2.AutoSize = msoAutoSizeTextToFitShape
    .TextFrame2.TextRange.Characters.Text = "Stackoverflow"
End With

End Sub

A imagem a seguir mostra minha pergunta.

insira a descrição da imagem aqui

desde já, obrigado

excel

2 respostas

  1. Best Answer

    Você pode tentar isso?

    Sub Test()
    Dim i As Long, myShp As Shape
    
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        ActiveSheet.Shapes(i).Delete
    Next i
    
    Set myShp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left:=50, Width:=100, Top:=50, Height:=40)
    
    With myShp
        .TextFrame2.MarginLeft = 0
        .TextFrame2.MarginRight = 0
        .TextFrame2.MarginTop = 0
        .TextFrame2.MarginBottom = 0
        .TextFrame2.VerticalAnchor = msoAnchorMiddle
        .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
        .TextFrame2.TextRange.Font.Size = 1
        .TextFrame2.AutoSize = msoAutoSizeTextToFitShape
        .TextFrame2.TextRange.Characters.Text = "Stackoverflow"
        .TextFrame2.WordWrap = msoFalse
        
        Do While .TextFrame2.TextRange.BoundWidth < myShp.Width
          .TextFrame2.TextRange.Font.Size = .TextFrame2.TextRange.Font.Size + 1
        Loop
    End With
End Sub
    • 1

  2. Seu código de macro já inclui ".TextFrame2.TextRange.Font.Size = 30". Você pode alterar 30 para 17 ou precisa do tamanho da fonte.

    • 0

relate perguntas