室内设计培训
平面设计培训
部落窝教育
网站首页 >> 软件技巧 >> 文章内容

ppt行间距批量调整

[日期:2011-10-06]   来源:主流技术阁  作者:主流技术阁   阅读:11492[字体: ]
内容提要:本文介绍ppt行间距的三种方法来设置PPT文本框行间距。

  PPT中设置段落行间距,可以改善PPT的美观效果。ppt行间距怎么调呢?如果是很少的一两个文本款里的文字行间距,直接通过行距命令可以完成,如果是几百张PPT,都需要调整PPT行间距,那么使用VBA代码会更加明智快捷。

  ppt行间距设置方法一:

  选中需要调整的文字——单击菜单“格式”——“行距”命令。打开行距对话框,按需设置行间距就OK。

  ppt行间距设置方法二:

  ppt行间距也可以通过组合键来打开行距对话框,ALT+O+S。

  ppt行间距设置方法三:

  如果是好几百张PPT就使用下面的代码完成。按下ALT+F11,打开VBE对话框,单击插入——模块,复制下面的代码,按F5键运行就可以完成PPT行间距设置。

Sub ChangeTextFont()  
    Set pages = ActivePresentation.Slides.Range  
    pageCount = pages.Count    
    '第一页和最后一页跳过  
    For i = 2 To pageCount - 1 
        DoEvents  
        ActiveWindow.View.GotoSlide Index:=i  
        shapeCount = ActiveWindow.Selection.SlideRange.Shapes.Count    
        For j = 1 To shapeCount  
            ActiveWindow.Selection.SlideRange.Shapes(j).Select  
            shapeType = ActiveWindow.Selection.SlideRange.Shapes(j).Type    
            '1  - 自选图形  
            '7  - 公式  
            '13 - 图片  
            '14 - 占位符  
            '15 - 艺术字  
            '17 - 文本框  
            '19 - 表格  
            'Debug.Print shapeType  
            Select Case shapeType  
            Case 1, 14, 17 
                Set txtRange = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange  
                txtRange.Select    
                If txtRange.Text <> "" Then  
                    '设置字体为宋体, 24号  
                    With txtRange.Font  
                        .Name = "宋体" 
                        .Size = 24 
                    End With    
                    '设置段落格式为1.3倍行距  
                    With txtRange.ParagraphFormat  
                        .SpaceWithin = 1.3 
                    End With  
                End If  
            Case 7, 13, 15 
            Case 19 
            End Select  
        Next j  
    Next i  
End Sub 

主流技术阁PS,CDR,213班 分享到: QQ空间 新浪微博 腾讯微博 人人网
photoshop教程
Photoshop教程
平面设计教程
Photoshop教程