VBA Добавочный интервал между символами - PullRequest
Новая
       9

VBA Добавочный интервал между символами

0 голосов
/ 14 ноября 2018

У меня есть этот код для сжатия текста до 0,2, но я бы хотел, чтобы он был инкрементным. Поэтому каждый раз, когда я запускаю код, текст сокращается на 0,2. Кто-нибудь знает, что мне нужно добавить в мой код? 

Sub CondenseText()

    On Error GoTo Catch

    Dim o As Shape, b As Boolean
    Set o = ActiveWindow.Selection.ShapeRange(1)
    If Not o Is Nothing Then
        With o
            .TextFrame2.TextRange.Font.Spacing = -0.2
        End With
    End If
    Exit Sub
Catch:
    If Err.Number = -2147188160 Then MsgBox CG_NOTHING_SELECTED
End Sub
...