Как написать функцию, которая автоматически масштабирует шрифты в vba

Question

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

With .Paragraphs.First.Range.Font.Scaling = 41
end with

, и я пытаюсь получить ширину шрифта, и cal c расстояние между шрифтами, но не лучшее решение

With .PageSetup
.PageWidth = CentimetersToPoints(21)               
.LeftMargin = CentimetersToPoints(2.8)              
.RightMargin = CentimetersToPoints(2.6)
end with  
with 
.Paragraphs.First.Range.font.size = 60            
.Range.Font.Spacing = CentimetersToPoints(15.6) - (180 ^ (1 / 2)) * (.Range.Characters.Count - 1)) / (.Range.Characters.Count - 2)     'not correct

, кто Полный и хороший код. Долго ищу по net. Но бесполезно. Пожалуйста, помогите или попробуйте дать некоторые идеи, как этого добиться.

Answer 1

Это, вероятно, не то, что вам нужно, поскольку он регулирует только интервал, а не масштабирование, но если вы вставляете текст в таблицу с одной ячейкой и удаляете границы таблицы, вы можете настроить параметры ячейки так, чтобы она соответствовала тексту: