【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
相关推荐
样子201822 分钟前
Uniapp 之renderjs解决swiper+多个video卡顿问题
前端·javascript·css·uni-app·html
黑客飓风1 小时前
JavaScript 性能优化实战大纲
前端·javascript·性能优化
l1t3 小时前
利用DeepSeek辅助WPS电子表格ET格式分析
人工智能·python·wps·插件·duckdb
YeeWang3 小时前
🎉 Eficy 让你的 Cherry Studio 直接生成可预览的 React 页面
前端·javascript
gnip3 小时前
Jenkins部署前端项目实战方案
前端·javascript·架构
Orange3015114 小时前
《深入源码理解webpack构建流程》
前端·javascript·webpack·typescript·node.js·es6
李明卫杭州5 小时前
CSS `clamp()` 函数详解
javascript
奶丝兔蜜柚5 小时前
栈溢出优化
javascript
小高0075 小时前
📈前端图片压缩实战:体积直降 80%,LCP 提升 2 倍
前端·javascript·面试
BillKu6 小时前
vue3+element-plus 输入框el-input设置背景颜色和字体颜色,样式效果等同于不可编辑的效果
前端·javascript·vue.js