【VBA】WPS/PPT设置标题字体

通过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