目录

【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
本文是转载文章,点击查看原文
如有侵权,请联系 xyy@jishuzhan.net 删除
相关推荐
uhakadotcom13 分钟前
Bun vs Node.js:何时选择 Bun?
前端·javascript·面试
前端snow27 分钟前
前端工程师看docker是什么?
前端·javascript·docker
鱼樱前端1 小时前
技术路线升级:从“纯前端”到“高价值前端”
前端·javascript
堕落年代1 小时前
Uniapp当中的async/await的作用
前端·javascript·uni-app
vjmap2 小时前
如何一键自动提取CAD图中的中心线(如墙体、道路、巷道中心线等)
前端·javascript·gis
小鱼儿20202 小时前
vue入门:函数式组件
前端·javascript·vue.js
uhakadotcom2 小时前
🚀 使用 Bun 快速搭建 HTTP 服务器:一步步教程
前端·javascript·面试
程序员易晶3 小时前
仿照管理系统布局配置
javascript·vue.js·elementui
JiangJiang4 小时前
🚀 Vue 人转 React 必踩的 useEffect 坑,我来填平了
javascript·react.js·面试
十八朵郁金香4 小时前
一天时间,我用AI(deepseek)做了一个配色网站
前端·javascript·人工智能·vue