Dear All,
The code above replace my font Size and Apart from this I need to align to the below mentioned position . Please help me to incorporate this code
The code above replace my font Size and Apart from this I need to align to the below mentioned position . Please help me to incorporate this code
.Top=23
.Left=44
.Height=44
Thanks in anticipation.
The code above replace my font Size and Apart from this I need to align to the below mentioned position . Please help me to incorporate this code
Code:
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
The code above replace my font Size and Apart from this I need to align to the below mentioned position . Please help me to incorporate this code
.Top=23
.Left=44
.Height=44
Thanks in anticipation.