Macro para eliminar fácilmente saltos de línea y espacios en blanco excesivos en Microsoft Power Point

0

 


Código:


Sub EliminarEspaciosSaltosDeLinea()

Dim F As Shape, C As textRange, T As String

If Not ActiveWindow.Selection.Type = ppSelectionShapes Then

MsgBox "Selecciona un cuadro de texto.", vbInformation

Exit Sub

End If

Set F = ActiveWindow.Selection.ShapeRange(1)

If Not F.HasTextFrame Then

MsgBox "Selecciona un cuadro de texto.", vbInformation

Exit Sub

End If

Set C = F.TextFrame.textRange

C.Text = Replace(C.Text, Chr(13), " ")

T = ""

For I = 1 To Len(C.Text)

If Not Mid(C.Text, I, 1) = " " Then

T = T & Mid(C.Text, I, 1)

ElseIf Not Mid(C.Text, I + 1, 1) = " " Then

T = T & Mid(C.Text, I, 1)

End If

Next I

C.Text = T

C.ParagraphFormat.Alignment = ppAlignJustify

End Sub

Entradas que pueden interesarte

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel