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

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

Sub DisableAutoWrapAndFormat()Dim shp As Shape' 检查是否选中了一个形状（文本框）If ActiveWindow.Selection.Type = ppSelectionShapes ThenSet 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 WithElseEnd If
End Sub