【ppt内如何随意设置段落】设定PPT VBA| |幻灯片文字方块的自动对齐、内缩和段落设定

设定幻灯片文字方块的自动对齐、内缩和段落设定，直接检视程式码。

Sub幻灯片文本框不是自动对齐和内缩()

On Error Resume Next

Dim I As Single

For I=1 ~ AC

For j=1 to AC (I)。S.

With AC (I)。shapes (j)。文本框架

.WordWrap=msoFalse

.AutoSize=ppAutoSizeNone

.MarginLeft=0

.MarginRight=0

.MarginTop=0

.MarginBottom=0

.Tex=ppAlignLeft

.Tex=1.3 '行高

End With

next

next

End Sub

Sub当前幻灯片文本框不是自动对齐和内缩()

On Error Resume Next

声明变量和对象

Dim oPres As Presentation

Set oPres=A

Dim oSlide As Slide

Dim oShape As Shape

Dim j As Integer

指定最后一张幻灯片或指定幻灯片上第一个对象的字体和段落格式

“Dim k As Integer”当前幻灯片索引号

K=A

Set oSlide=oPres。Slides.Item(k)

For j=1 To oSlide。s

Set oShape=oSlide。S(j)

With oS

.WordWrap=msoTrue

.AutoSize=ppAutoSizeNone

.MarginLeft=0

.MarginRight=0

.MarginTop=0

.MarginBottom=0

.Tex=ppAlignLeft

.Tex=1.3 '行高

.在段落Tex=0 '之前

End With

OS 2 . text range . paragraphs . paragraph format . left indent=0 '段落缩排

next

删除对象

Set oShape=Nothing

Set tr=Nothing

Set oSlide=Nothing

Set oPres=Nothing

End Sub

Sub目前幻灯片1文字方块不是自动对齐和内缩()

On Error Resume Next

声明变量和对象

Dim oPres As Presentation

Set oPres=A

Dim oSlide As Slide

Dim oShape As Shape

指定最后一张幻灯片或指定幻灯片上第一个对象的字体和段落格式

“Dim k As Integer”当前幻灯片索引号

K=A

Set oSlide=oPres。Slides.Item(k)

Set oShape=oSlide。S(1)

With oS

.WordWrap=msoFalse

.AutoSize=ppAutoSizeNone

.MarginLeft=0

.MarginRight=0

.MarginTop=0

.MarginBottom=0

.Tex=ppAlignLeft

.Tex=1.3 '行高

End With

删除对象

Set oShape=Nothing

Set tr=Nothing

Set oSlide=Nothing

Set oPres=Nothing

End Sub

– End –