Vba code to replace, position and remove indentation in powerpoint.

[shoun2502]

The code works with the replace , position except with the indentation I am trying to establish


Before text = 0 cm, Special = None, Alignment = Left"




I have established the code below

Sub changeFont()
For Each aSlide In ActivePresentation.Slides
For Each aShape In aSlide.Shapes
Dim x As Long


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 = 10 Then
      With aShape
            .TextFrame.TextRange.Font.Size = Replace(aShape.TextFrame.TextRange.Font.Size, 10, 25)
          With aShape
            .TextFrame.TextRange.Ruler
            For x = 1 To .Levels.Count
                .Levels(x).FirstMargin = 0
                .Levels(x).LeftMargin = 0
                Next
            End With
            
            .Top = 23
            .Left = 44
            .Height = 44
        End With
End If
End If
End If


End If
Next
Next
End Sub

I look for suggestions to run with the above subroutine.
Thanks in anticipation

 

[sijpie]

Would this help?

http://www.pptfaq.com/FAQ00794_Working_with_Tab_settings_in_text.htm

https://stackoverflow.com/questions/47386557/how-to-change-an-existing-tabstop-in-powerpoint-by-vba