Есть ли функция Excel VBA для изменения размера текста, чтобы соответствовать форме? - PullRequest
Новая
       28

Есть ли функция Excel VBA для изменения размера текста, чтобы соответствовать форме?

0 голосов
/ 22 января 2019

Я рисую круги в Excel с числом в них, но как только это число достигает двойной цифры, вторая цифра не отображается.

Я бы хотел, чтобы размер текста соответствовал форме.

Я не могу изменить размер круга, потому что это основано на значении возможности.

Я работаю над бизнес-воронкой, соответствующий вход воронки: - номер билета - стоимость возможности (потенциальный доход): используется для определения размера круга

Круги нарисованы в воронке, которая состоит из четырех этапов, которые изображены в виде четырех фигур.

Я пытался: 

Public Function DrawCircle(x As Integer, y As Integer, tickets As Collection, ticketIndex As Integer)

    Dim myCircle As Shape

    Dim circleSize As Integer
    circleSize = GetTicketSize(tickets, ticketIndex)

    Dim name As String
    name = "" & tickets.Item(ticketIndex).id

    Set myCircle = ThisWorkbook.Sheets("Graphic funnel").Shapes.AddShape(msoShapeOval, x, y, circleSize, circleSize)
    myCircle.Select
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.TextFrame.Characters.Text = name
    Selection.ShapeRange.Left = Selection.ShapeRange.Left
    Selection.ShapeRange.Top = Selection.ShapeRange.Top - circleSize / 2

    With myCircle
        .DeleteText
        .wrapformat = msoWrapFormat
        .WordWrap = True
        .AutoSize = msoAutoSizeTextToFitShape
    End With

Но он возвращает: «объект не поддерживает это свойство или метод»

...