【VBA/ppt】WPS/PPT设置标题指定字体快捷操作

LAM LAB

已于 2025-05-19 23:52:45 修改

阅读量532

点赞数 2

文章标签： wps powerpoint javascript VBA

于 2025-03-06 11:02:43 首次发布

本文链接：https://blog.csdn.net/weixin_35944332/article/details/146062040

版权

通过VBA，配合左上角的快速访问工具栏，实现自动化调整选中文本框的字体位置、大小、颜色。
配合quicker更加便捷

在这里插入图片描述


Sub DisableAutoWrapAndFormat()
    Dim shp As Shape
    
    ' 检查是否选中了一个形状（文本框）
    If ActiveWindow.Selection.Type = ppSelectionShapes Then
        Set shp = ActiveWindow.Selection.ShapeRange(1)
        
        ' 取消自动换行
        shp.TextFrame.WordWrap = msoFalse
        
        ' 设置文本框的位置（左上角大标题位置）
        shp.Left = 70   ' X 坐标（可调整）
        shp.Top = 10    ' Y 坐标（可调整）
        
        ' 设置字体格式
        With shp.TextFrame.TextRange.Font
            .Size = 48                 ' 设置字体大小（可修改）
            .Color = RGB(112, 48, 160)     ' 设置字体颜色（红色，可修改）
        End With
    Else
        
    End If
End Sub