КОД VBA ДЛЯ ЗАМЕНЫ И ПОЗИЦИОННОГО ТЕКСТА В ТЕКСТЕ МЕСТО - PullRequest
Новая
       8

КОД VBA ДЛЯ ЗАМЕНЫ И ПОЗИЦИОННОГО ТЕКСТА В ТЕКСТЕ МЕСТО

1 голос
/ 28 июня 2019

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

Sub changeFont()
For Each aSlide In ActivePresentation.Slides
For Each aShape In aSlide.Shapes
If aShape.Type = msoTextBox Then
If aShape.TextFrame.HasText Then
If aShape.TextFrame.TextRange.Font.Name = "Franklin Gothic Demi" Then
If aShape.TextFrame.TextRange.Font.Size = 40 Then
      aShape.TextFrame.TextRange.Font.Size = Replace(aShape.TextFrame.TextRange.Font.Size, 40, 25)
End If
End If
End If

End If
Next
Next
End Sub

Код успешно работает для получения желаемых результатов. Однако мне нужно выровнять текстовое поле по 

.Top=23
.Left=44
.Height=44

Пожалуйста, помогите мне с подпрограммой, так как мне нужно разместить текстовый держатель

Спасибо в ожидании

1 Ответ

0 голосов
/ 28 июня 2019

Попробуйте следующее: 

Sub changeFont()
    Dim aSlide As Slide, aShape As Shape
    For Each aSlide In ActivePresentation.Slides
        For Each aShape In aSlide.Shapes
            If aShape.Type = msoTextBox Then
                If aShape.TextFrame.HasText Then
                    If aShape.TextFrame.TextRange.Font.Name = "Franklin Gothic Demi" Then
                        If aShape.TextFrame.TextRange.Font.Size = 40 Then
                              aShape.TextFrame.TextRange.Font.Size = Replace(aShape.TextFrame.TextRange.Font.Size, 40, 25)
                              aShape.Top = 23
                              aShape.Left = 44
                              aShape.Height = 44
                        End If
                    End If
                End If
            End If
        Next
    Next
End Sub
...